Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Verfalldatum abgelaufen

Gruppe

Open

Problem

Wie kann ich das Öffnen einer Arbeitsmappe nach einem bestimmmten Datum verhindern.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

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