Schreibgschützt setzen/entfernen mit VBA
28.09.2006 22:15:43
MartinCH
Wieder mal ich.
Wir haben eine Datei die im Normalfall immer schreigeschützt geöffnet wird, nur wenn die Datei aktualisiert wird, muss sie ohne Schreibschutz geöffnet werden.
Habe es mit diesem Script versucht, es blieb aber beim Versuch (Fehlermeldung: Kann Eigenschaft nicht ändern)
Sub TestSchreibgeschütz_EIN_AUS()
ActiveWorkbook.ReadOnly = True
MsgBox "Schreibschutz aktiv!"
ActiveWorkbook.ReadOnly = False
MsgBox "Schreischutz deaktiviert"
End Sub
Ist es möglich die Eigenschaft zu ändern?
Wie muss der Script aufgebaut sein?
Oder kann ich die Datei per VBA schliessen und wieder öffnen als Readonly = false. Leider hatte mein Versuch dies zu machen fehlgeschlagen da das laufende Makro ebenfalls geschlossen wurde. Ist es möglich eine neue Datei zu öffnen ein Modul zu erstellen und dieses gleich lafen lassen? Natürlich alles mit VBA.
Danke für Hinweise oder Lösungen
Martin