Sheets("herber1").Protect "DeinPasswort"
24.08.2011 15:12:12
NoNet
Hallo Gabriella,
auch das ist möglich :
Variante 1 : Für jedes Blatt ein eigenes Passwort
Sub BlattSchuetzen1()
Sheets("Herber1").Protect "PW1" 'PW1 ist das Passwort für dieses Blatt
Sheets("Gabriella").Protect "PW2" 'PW2 ist das Passwort für dieses Blatt
Sheets("NoNet").Protect "PW3" 'PW3 ist das Passwort für dieses Blatt
End Sub
Variante 2 : Ein Passwort für alle Blätter :
Sub BlattSchuetzen2()
Const strPW = "DeinPasswort" 'Das Passwort für den Blattschutz
Sheets("Herber1").Protect strPW
Sheets("Gabriella").Protect strPW
Sheets("NoNet").Protect strPW
End Sub
Variante 3 : Ein Passwort für alle Blätter (als ARRAY) :
Sub BlattSchuetzen3()
Dim wsh As Worksheet, strName()
Const strPW = "DeinPasswort" 'Das Passwort für den Blattschutz
strName = Array("Herber1", "Gabriella", "NoNet", "und noch ein Blatt")
For Each wsh In Sheets(strName)
wsh.Protect strPW 'Hier wird das Blatt geschützt
Next
End Sub
Gruß, NoNet
Exceltreffen 28.-30.10.2011 in Chemnitz
Ein Treffen für alle Excel-Freunde und Besucher deutschsprachiger Excel-Foren.
Alle Infos - Programm - Anmeldung - Teilnehmerliste etc. gibt es auf
http://www.exceltreffen.de/index.php?page=211
Wir freuen uns auf euch...