|
Hallo Liebe Community,
ich habe ein Problem mit einer Abfrage.
Mein Macro soll erreichen, dass der Nutzer darauf hingewiesen wird, wenn er ein ausgechecktes Dokument (Sharepoint), für eine bestimmte Zeit geöffnet hat.
Mein Code ist:
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
Der Timer und die Ausgabe funktionieren einwandfrei.
Problematisch ist die Abfrage: Workbooks(ActiveWorkbook.FullName).CanCheckIn = True
Wenn ich das Macro ausführe kriege ich den Laufzeitfehler 9 und beim debuggen wird mir die Zeile angezeigt.
Die Abfrag ein einer MsgBox auszuführen hat auch nicht geholfen.
Ich kriege den Fehler einfach nicht weg und kann nicht erkennen was ich falsch gemacht habe.
Die Funktion habe ich hier gefunden: https://docs.microsoft.com/de-de/office/vba/api/excel.workbook.cancheckin
Vielen Dank im Vorraus :)
|