Mit VBA schreibgeschützt speichern

[dera1]

Hallo,

irgendwas habe ich bei .SaveAs nicht verstanden.

Code: Alles auswählen

Private Sub SchreibSch()
Dim wb As Workbook, ws As Worksheet
Set wb = Workbooks.Add()
Set ws = wb.Worksheets(1)
ws.Range("A1") = "XXXYYYY"
wb.SaveAs "C:\Users\Icke\Desktop\Meins\Test.xlsx", 51, "Hund", "Katze"
End Sub

Speichert die Datei problemlos ab, aber vom Passwortschutz nichts zu sehen. Weder das eine, noch das andere.
Wo habe ich denn jetzt das Brett vorm Kopf?

Danke
dera

[d'r Bastler]

Moin dera,

welche Art von Schreibschutz meinst Du denn? Workbook/Sheet/Zelle(n) auf XL-Ebene oder die ganze Datei im FileSystem?

Grüße

[RPP63]

Moin!
Funktioniert einwandfrei!
Setzt das Datei-Kennwort Hund und das Schreibschutz-Kennwort Katze.
Natürlich nur, wenn man die erstellte Datei schließt und wieder öffnet.



Gruß Ralf

[dera1]

Moin,

sag ich ja, Brett vorm Kopf
Funktioniert einwandfrei.

Danke
dera