Thema: Verfalldatum abgelaufen

Home

Gruppe

Ereignis

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

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open

Msg mit 2 Ereignissen +Cancel	Workbooks open
Ereignisprozedur	Excel-Tabelle in OpenOrg
getopenfilename mit Teil der Dateiname	Makro für ereignisabh. Druck verschiedener Seiten
Benutzerdefinierte Funktion in Open Office	UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?	GetOpenFilename Dateiname vorbelegen
xlDialogOpen anpassen	Symbolleisten durchloopen: löschen & restore
Zeilen aus- einblenden als Ereignis?	Welches Ereignis ist das richtige ??
Symbolleisten durchloopen und ausblenden	Ereignis Arbeitsblatt sperren abfangen
Workbook open	Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis	xlDialogOpen bei Excel 2007 funzt nicht
komisches phänomän bei set xx open workbook	Change-Ereignis in Combobox unterdrücken
Combobox Ereignis	MS OFFICE - OPEN OFFICE
Userform, Ereignis deklarieren im Klassenmodul	Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen	Command Button Ereignis
Workbook Open	Ereignis von Laufzeit-Checkbox
Wochenangabe bei WorkbookOpen	change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern	change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl	Makro Workbook_Open läuft nicht
Objekt_Error - Ereignis in UserForm	Problem mit OpenRecordset (Array)
bei OPEN macros vermeiden	Workbook_open
change ereigniss auf userform.	Click-Ereignis für Checlbox nicht ausführen?
windows.open und selection.change	workbooks.open Fehlermeldung
Speichern einer Kopie durch Ereigniss Workbook_bef	Reagieren auf Tastaturereignisse
Workbooks.OpenText - Datumsformat	Ausnahmen für Exit-Ereignis
Probleme mit Workboos.Open