Geschrieben von Robert, modifiziert von mir..
Sub CommandButton1_Click()'Statt CommandButton_Click kann jeder Makroname stehen
' Variable wird gelehrt.
strInpubx = ""
' Passwort über InputBox abfragen.
strInpubx = InputBox("Blätter schützen:", "Passwort abfrage:", "Hier das richtige Passwort eingeben !")
' Wenn keine Eingabe erfolgt dann abbrechen.
If strInpubx = "" Then Exit Sub
' Passwort mit Spalte A in Tabelle1 vergleichen wenn gleich weiter mit For Next.
If Application.CountIf(ThisWorkbook.Sheets([Tabelle1].Name).Range("A:A"), strInpubx) Then
' Alle Blätter werde geschützt.
For intCounter = 1 To Worksheets.Count
Sheets(intCounter).Protect Password:=strInpubx, _
DrawingObjects:=True, Contents:=True, _
Scenarios:=True, userinterfaceonly:=True
Next intCounter
Exit Sub
End If
' Meldung wenn das falsche Passwort angegeben wurde.
MsgBox "Falsches Passwort !"
End Sub
Sub CommandButton2_Click()'Wie oben...
' Gleich wie oben nur Blattschutz aufheben
strInpubx = ""
strInpubx = InputBox("Blätterschutz aufheben:", "Passwort abfrage:", "Hier das richtige Passwort eingeben !")
If strInpubx = "" Then Exit Sub
If Application.CountIf(ThisWorkbook.Sheets([Tabelle1].Name).Range("A:A"), strInpubx) Then
For intCounter = 1 To Worksheets.Count
Sheets(intCounter).Unprotect Password:=strInpubx
Next intCounter
Exit Sub
End If
MsgBox "Falsches Passwort !"
End Sub
Viel Spass beim "Schützen"