Wiederöffnen einer Arbeitsmappe
18.03.2022 18:51:07
Steve
Ich habe mal wieder ein Problem mit meinem Urlaubsplan.
Folgender Sachverhalt.
Die Arbeitsmappe wird grundsätzlich schreibgeschützt geöffnet (a)
In der "aufploppenden" UserForm2 kann per Checkbox der Schreibschutz entfernt werden.(b)
Private Sub Workbook_Open() '(a)
If ThisWorkbook.ReadOnly = True Then
Else: ThisWorkbook.ChangeFileAccess xlReadOnly
End If
UserForm2.Show
end sub
Private Sub CheckSchreibschutz_Click() '(b)
ThisWorkbook.ChangeFileAccess xlReadWrite
End Sub
Nun möchte ich, bei der schreibgeschützten Variante, angezeigt bekommen, wenn sich etwas geändert hat. Das klappt soweit über den Vergleich von FileDateTime und Öffnungszeit, welche ich beim Öffnen in das Tabellenblatt Bemerkungen Zelle A1 schreibe.
If ThisWorkbook.ReadOnly And Sheets("Bemerkungen").Range("A1").Value liegt hier vielleicht der Fehler
ThisWorkbook.Saved = True
Application.Workbooks.Open Filename:=ThisWorkbook.path & "***.xlsb", ReadOnly:=True, Password:="0815"
Case vbNo
'Tunix
End Select
End If
Die neu geöffnete schreibgeschützte Mappe müsste quasi in die Zelle A1 das neue Speicherdatum schreiben. Irgendwie macht der das aber nich beim erneuten Öffnen
Leider habe ich das nicht hinbekommen und ich denke ich seh den Wald vor lauter Bäumen nich ^^'
Habt ihr da eine Idee?
Danke im vorraus