Schutz für mehrere Blätter

Bild

Betrifft: Schutz für mehrere Blätter von: tobias
Geschrieben am: 07.03.2005 12:31:41

Hallo!

Ich möchte gerne den Schutz mehrer Blätter gleichzeitig aufheben und vieder herstellen - geht das? Mit strg und markieren ist es mir nicht gelungen.

Für einen Tipp wäre ich sehr dankbar.

Grüße tobias

Bild


Betrifft: AW: Schutz für mehrere Blätter von: Josef Ehrensberger
Geschrieben am: 07.03.2005 12:35:27

Hallo Tobias!

Das geht nur mit einer Schleife!

Z.B.:

Sub SchutzAn()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
wks.Protect Password:="deinPasswort"
Next
End Sub
Sub SchutzAus()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
wks.Unprotect Password:="deinPasswort"
Next
End Sub
Gruß Sepp
<font color=blue>P.S.: Rückmeldung nicht vergessen!</font>
<hr noshade style="height:5px; background-color:#EEEEEE; border:1px solid blue">


Bild


Betrifft: AW: Schutz für mehrere Blätter von: Gert Seler
Geschrieben am: 07.03.2005 12:35:51

Hallo Tobias,
Lösung:"Services" --->"Excel-Recherche" --->"Blattschutz aufheben" eingeben.
Lösung wahrscheinlich in VBA.

mfg
Gert


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schutz für mehrere Blätter"