Blattschutz mit PW funzt nicht!

Bild

Betrifft: Blattschutz mit PW funzt nicht! von: Michael O
Geschrieben am: 24.02.2005 16:12:48

Hallo allerseits,
ich versuche per VBA
...
For blatt = 4 To Sheets.Count
Sheets(blatt).Protect passWoRt
Next
...
alle Blätter in einer Arbeitsmappe zu schützen. Es ist auch geschützt. D. h. ich bekomme eine Meldung wenn ich in ein geschütztes Feld klicke.
Doch trotz PW kann ich danach über
Menue --
Extras --
Schutz --
Blattschutz aufheben

den Schutz ohne Passwortnachfragen für jedes Blatt einzeln wieder aufheben???
Was mach ich falsch??

Gruß und Danke
Michael

Ich habe auch hier noch eine offene Frage über
"Range als Grafik und wieder einfügen".
https://www.herber.de/forum/messages/572945.html

Evtl kann mir ja da auch noch einer weiterhelfen.

Bild


Betrifft: AW: Blattschutz mit PW funzt nicht! von: Bert
Geschrieben am: 24.02.2005 16:18:42

For blatt = 4 To Sheets.Count
Sheets(blatt).Protect password:="passWoRt"
Next

...und

For blatt = 4 To Sheets.Count
Sheets(blatt).Unprotect password:="passWoRt"
Next

Bert


Bild


Betrifft: AW: Blattschutz mit PW funzt nicht! von: Michael O.
Geschrieben am: 24.02.2005 16:23:19

War ja klar das es wieder so einfach ist :-(

DANKE euch beiden

Gruß
Michael


Bild


Betrifft: AW: Blattschutz mit PW funzt nicht! von: u_
Geschrieben am: 24.02.2005 16:19:15

Sheets(blatt).Protect "passWoRt"


Bild


Betrifft: AW: Blattschutz mit PW funzt nicht! von: Juergen
Geschrieben am: 24.02.2005 16:31:28

Versuchs mal mit:
Sheet(xy).Protect password:="kennwort", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet(xy).Unprotect password:="kennwort"

Gruss
Juergen


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz mit PW funzt nicht!"