datei schließen & neu öffnen

[Enclave]

Hallo zusammen,
ich habe eine mit Passwort schreibgeschütze datei.

ich möchte wenn die datei gerade schreibgeschützt geöffnet ist die datei zu machen und wieder neu aufmachen und das Passwort dafür eingeben.
datei schließen und neu aufmachen geht, aber das mit der Passworteingabe geht nicht.

einzeln funktioniert "schreibschutz" aber so nicht =/

Code:

Sub klick1()
If ThisWorkbook.ReadOnly = True Then

Application.OnTime Now + TimeValue("00:00:03"), "schreibschutz"
ThisWorkbook.Close True

End If
End Sub

Code:

Sub schreibschutz()


Workbooks.Open ("datei.xlsm"), Password:="Inbound", WriteResPassword:="Inbound"


End Sub