Mit VBA schreibgeschützt speichern

Moderator: ModerationP

Mit VBA schreibgeschützt speichern

Beitragvon dera1 » 19. Mai 2022, 11:50

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
dera1
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 434
Registriert: 07. Jul 2014, 10:58

Re: Mit VBA schreibgeschützt speichern

Beitragvon d'r Bastler » 19. Mai 2022, 20:36

Moin dera,

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

Grüße
d'r Bastler

Selbst Heiden glauben an min. 10% Mystik in der EDV! Gilt auch für mein Win 10 pro & Office 2019, Win 11 pro & Office 2021 und alle VBAsteleien ... Aktueller Trollfutter-Vorrat: NULL
Benutzeravatar
d'r Bastler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 685
Registriert: 23. Jan 2021, 22:36
Wohnort: VBAsteln makes the world go around

Re: Mit VBA schreibgeschützt speichern

Beitragvon RPP63 » 20. Mai 2022, 05:00

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. :wink:

Bild

Gruß Ralf
Benutzeravatar
RPP63
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 11836
Registriert: 19. Okt 2012, 17:41
Wohnort: mitten im Pott

Re: Mit VBA schreibgeschützt speichern

Beitragvon dera1 » 20. Mai 2022, 05:57

Moin,

sag ich ja, Brett vorm Kopf :D
Funktioniert einwandfrei.

Danke
dera
dera1
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 434
Registriert: 07. Jul 2014, 10:58


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: DerHoepp, lupo1 und 2 Gäste