der Befehl
Application.OnTime Now + TimeValue("00:15:00"), "CloseWorkbook"
führt nicht zum Schliessen der Datei, solange der Benutzer eine Zelle aktiviert hat.
Kann man das umgehen ??
Gruß,
Tim
der Befehl
Application.OnTime Now + TimeValue("00:15:00"), "CloseWorkbook"
führt nicht zum Schliessen der Datei, solange der Benutzer eine Zelle aktiviert hat.
Kann man das umgehen ??
Gruß,
Tim
Private Sub Workbook_Open()
CloseWorkbook
End Sub
in ein "normales" Modul:
Public Sub CloseWorkbook()Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Code eingefügt mit Syntaxhighlighter 1.14
Dim i As Integer
For i = 1 To 9000
Sleep (100)
DoEvents
Next
ThisWorkbook.Close True
End Sub
Gruß
Nepumuk
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen