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 :)