Hallo Ramses Feierabend ?
16.09.2005 23:09:11
HansH
leider hat das mit der "Feierabenddatei" nicht geklappt. Excel spinnt weiter, wenn ich die Datei öffne. Selbst wenn sie geschlossen wurde kommen Meldungen wie Passwortabfrage, obwohl die datei schon längst geschlossen ist.
Das Problem ist schwer zu beschreiben. Vielleicht mal so:
In "Dieser Arbeitsmappe" habe ich folgenden Code:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime GlobalNextCheck, "CheckTime", schedule:=False
End Sub
Private Sub Workbook_Open()
CheckTIme
End Sub
In einem Modul ist folgender Code:
Option Explicit
Public GlobalNextCheck As Date
Sub CheckTIme()
Dim passwort As String
Dim Verfallzeit As Date
Verfallzeit = TimeValue("18:00:00") 'Hier Verfallzeit im Format 00:00:00 eintragen
If Verfallzeit Application.DisplayAlerts = False
passwort = InputBox("Der heutige Tag ist abgelaufen," & Chr(13) & Chr(13) & " bitte gebe dein Passwort ein:", "Tagesphase abgelaufen, PW erforderlich", "geheim")
If passwort "geheim" Then
MsgBox " Das Kennwort ist ungültig," & Chr(13) & Chr(13) & "der Vorgang wird abgebrochen !"
MsgBox ("Du solltest langsam Feierabend machen.")
Application.DisplayAlerts = True
End If
End If
'Nächste Prüfung in einer Minute
GlobalNextCheck = Now + TimeValue("00:20:00")
Application.OnTime GlobalNextCheck, "CheckTIme"
End Sub
und das ganze macht was es will.
Gruß
HansH
Anzeige