Schreibschutz bei SaveCopyAs
20.06.2007 16:06:33
Jochen
habe ein Template mit Makros erzeugt, dessen Anwendungen bei den Usern teilweise schreibgeschützt geöffnet sind und teilweise ohne Schreibschutz existieren. Momentan gibt es bei folgendem Code eine Fehlermeldung, wenn kein Schreibschutz eingestellt ist:
wb1.Save
wb1.ReadOnly = False
wb1.SaveCopyAs Filename:=Application.GetSaveAsFilename
Wie kann ich es so programmieren, dass wb1.ReadOnly = False nur dann ausgeführt wird, wenn in der Datei ein Schreibschutz eingestellt ist? (Achtung: Das Makro läuft nur, wenn der Schreibschutz beim Öffnen der Datei deaktiviert wurde - dennoch ist die ReadOnly Eigenschaft noch True)
Vielen Dank und Grüße,
Jochen