Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeit

Laufzeit
21.02.2005 10:54:27
Wolfgang
Hallo Leute!
Ist es möglich, den Zugriff auf eine Excel Datei zeitlich per VBA zu beschränken?
Danke für Eure Hilfe!
Wolfgang

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeit
21.02.2005 11:11:34
Werner
Grüezi Wolfgang

Private Sub Workbook_Open()
If Time < "22" Then ActiveWorkbook.Close SaveChanges:=False
End Sub

Wenn die Zeit kleiner ist als 22.00Uhr wird sie wieder geschlossen. Makros müssen aktiviert sein.
Gruss Werner
AW: Laufzeit
Marcl
Hi Wolfgang,

Sub auto_open()
'Fehlermeldungen ausschalten
Application.DisplayAlerts = False
'mit auto_open startet das makro automatisch
'oder Tatum und Zeit in Zellen eintragen
Dim dates As Date
Dim times As Date
dates = Range("a1") 'A1 das Datum (12.02.2005)
times = Range("A2") 'A2 die Uhrzeit (14:00:00)
dats = (" " & dates & " " & times & " ")
nowi = (" " & Now & " ")
If (nowi) < (dats) Then Exit Sub
' Ganzes Blatt markieren, Zellen schützen und Formeln ausblenden
' Blatt schützen mit Namen test
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect "test" ' Passwort "test"
Range("a1").Select
' Mappe speichern
ActiveWorkbook.Save
MsgBox ("Es sind keine Eingaben mehr möglich!")
End Sub

Gruß
Marcl
Anzeige
AW: Laufzeit
21.02.2005 11:53:45
Wolfgang
Danke Jungs für die rasche Hilfe!
Wolfgang
Danke für die Rückmeldung OT:-)
21.02.2005 12:41:39
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige