Excel Datei schreibgeschützt speichern
Rolf Koenig
Ich möchte per VBA eine Excel-Datei mit dem Datei-Attribut
"Schreibgeschützt" (ReadOnly) speichern.
Kann mir jemand helfen?
Besten Dank
Rolf
Thomas Wolf
"Rolf Koenig" <rolf-...@gmx.net> schrieb im Newsbeitrag
news:359f65c2.02123...@posting.google.com...
Wenn ich das bei mir aufzeichne, erhalte ich folgendes:
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\Wolfi\Favoriten\Mappe1.xls",
FileFormat:= _
xlNormal, Password:="habakuk", WriteResPassword:="",
ReadOnlyRecommended _
:=False, CreateBackup:=False
Hilft Dir das weiter?
--
Viele Gruesse vom Rheinknie
---------------------------------------------
Thomas Wolf
W2K Pro SP3, Office XP Pro SP2
'It is better to remain silent and be thought a fool,
than to open one's mouth and remove all doubt.'
by Samuel Johnson
Rolf Koenig
Noch nicht ganz. Habe das selbe bei mir auch ausprobiert. Der Effekt
ist, dass ich beim Öffnen der Datei nach dem Kennwort (habakuk)
gefragt werde oder ich den Hinweis erhalte, dass es empfohlen wird die
Datei schreibgeschützt zu öffnen.
Was ich suche hat den gleichen Effekt, wie wenn man im
Windows-Explorer die Eigenschaften einer Datei via rechte Maustaste
aufruft und dort das Dateiattribut "Schreibgeschützt" mittels
Markierung setzt.
MfG
Rolf
Peter Huber
verwende
SetAttr "dateiname.xls", vbReadOnly 'setzt schreibgeschützt
'mehr Info in der Onlinehilfe unter
SetAttr
danach ist die Datei schreibgeschützt
du solltest vorher aber die datei speichern sonst kann es zu Problemen
kommen
ciao Peter
"Rolf Koenig" <rolf-...@gmx.net> schrieb im Newsbeitrag
news:359f65c2.02123...@posting.google.com...
Rolf Koenig
Besten Dank für Deine Hilfe, hat wunderbar geklappt.
Wichtig war nur, dass die Datei vor dem Anbringen des Schreischutzes
zu speichern ist, da ja eine schreibgeschützte Datei nicht mehr so
ohne weiteres gespeichert werden kann.
mit Grüssen
Rolf