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!"