Option Explicit
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal HWnd As Long) As Long
Dim PauseTime, Start, Finish, TotalTime As Integer
Private Sub Workbook_Open()
If Workbooks(ActiveWorkbook.FullName).CanCheckIn = True Then
Application.OnTime Now + TimeValue("0:0:20"), "DieseArbeitsmappe.popUp"
End If
End Sub
Sub popUp()
SetForegroundWindow (FindWindow("xlMain", vbNullString))
MsgBox "Vergessen Sie bitte nicht die Arbeitsmappe zu schließen!", vbSystemModal
End Sub