Hallo,
habe folgendes für einen Shutdown-Timer, der nach 1 Minuten bei nicht Verwendung der Excel Datei, diese speichert und schließt:
Option Explicit
Option Private Module
Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Public Enum Parameter
HWND_TOPMOST = -1
SWP_NOSIZE = &H1
SWP_NOMOVE = &H2
SWP_NOACTIVATE = &H10
SWP_SHOWWINDOW = &H40
End Enum
Public DaEt As Date
Public DaET1 As Date
Public DaET2 As Date
Public BoZu As Boolean
Public Const DaZeit As Date = "00:01:00"
Public Const DaZeit1 As Date = "00:00:20"
Public Const DaZeit2 As Date = "00:00:01"
Public BoEnde As Boolean
Nun meine Frage: Kann man diesen Timer umgehen, wenn man sich im Entwurfsmodus bzw. direkt in VBA befindet?
Danke! :)
Grüße.
|