Office: Blattschutz mit Makro

Hallo,

ich habe folgendes Makro für den Blattschutz:

Sub BlattschutzAlle()
Dim pw As String
Dim sh As Worksheet
pw = InputBox("Bitte Passwort eingeben:", "Blätter schützen")
If InputBox("Passwort wiederholen:", "Blätter schützen") <> pw Then
MsgBox "Passwörter waren nicht identisch!", vbCritical, "Abbruch"
Exit Sub
End If
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:=pw
Next sh
End Sub

Sub BlattschutzLoeschen()
Dim pw As String
Dim sh As Worksheet
pw = InputBox("Bitte Passwort eingeben:", "Passwort löschen")
If InputBox("Passwort - Bestätigung:", "Passwort löschen") <> pw Then
MsgBox "Passwörter waren nicht identisch!", vbCritical, "Abbruch"
Exit Sub
End If
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:=pw
Next sh
End Sub



Mein Problem ist, dass ich nicht jedes Blatt komplett geschützt haben möchte, sondern eine Ausnahmeregelung für A9:U43 und W3:Y43. Ich finde aber nicht die Stelle, an der ich das passend einfügen könnte.

Vielen Dank für die Hilfe.

 

das geht nicht. Du könntest die Zellen formatieren, Register Schutz und gesperrt entfernen.

 

Hallo,

aber das muss ich bei jedem Blatt extra durchführen... und das wollte ich aufgrund der Anzahl vermeiden.

Gibt es keine andere Lösungsmöglichkeit?

 

zeichne die Aktion mit dem Makrorecorder auf und binde es in Deinem Makro ein.

 

es kommt dann immer beigefügte Mitteilung. Kann es sein, dass das Makro diese bereichsweise Blattschutzentfernung einfach generell blockt?

 

die Zellen müssen formatiert werden, wenn Tabelle nicht geschützt.