Datei per VBA schreibgeschützt neu öffnen
04.11.2016 16:00:46
Bernd
ich hab mal ne Interessensfrage an die Spezialisten hier.
Kann ich in ein AutoOpen-Makro eine Funktion einbauen, mit der ich den Schreibschutz der gleichen Datei für diese eine Sitzung setzen kann?
Wie könnte eine Prozedur lauten, die direkt beim Öffnen nach Lese- oder Schreibzugriff fragt und ggf. die Datei selbst neu mit dem gewählten Parameter öffnet?! Meine erste Idee funktioniert logischerweise nicht.
Private Sub Workbook_Open()
Datei = ThisWorkbook.FullName
Schreibschutz = MsgBox("Soll die Datei schreibgeschützt geöffnet werden?", vbYesNo)
If Schreibschutz = vbYes Then
Application.OnTime Now + TimeValue("00:00:10"), Workbook.Open(Datei), ReadOnly:= True
ThisWorkbook.Close false
' Datei schliessen und neu öffnen mit aktiviertem Schreibschutz...
End If
End Sub