Ist es möglich, den Zugriff auf eine Excel Datei zeitlich per VBA zu beschränken?
Danke für Eure Hilfe!
Wolfgang
Private Sub Workbook_Open()
If Time < "22" Then ActiveWorkbook.Close SaveChanges:=False
End Sub
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