Gruppe
Ereignis
Problem
Wie kann ich das Öffnen einer Arbeitsmappe nach einem bestimmmten Datum verhindern.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
If Date > DateSerial(2002, 7, 31) Then
Beep
MsgBox "Verfalldatum abgelaufen!"
ActiveWorkbook.Close savechanges:=False
End If
End Sub