09.04.2022, 07:27
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 =/
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 SubCode:
Sub schreibschutz()
Workbooks.Open ("datei.xlsm"), Password:="Inbound", WriteResPassword:="Inbound"
End Sub