Ich habe mir folgenden Beitrag aus dem Archiv genommen und entsprechend meinen Wünschen erweitert. https://www.herber.de/forum/archiv/820to824/t822437.htm
Nun mein Problem: Der Blattschutz mit Formatierungsmöglichkeit erfolgt zwar, aber mein Kennwort, welches ich über die MsgBox vorgebe, wird nicht zur Entsperrung benötigt. Ein einfaches Extras\Schutz\Blattschutz aufheben... reicht und schon ist das Arbeitsblatt entsperrt.
Ohne die Freigabe zur Spalten/Zellen/Zeilen-Formatierung (brauche ich damit die Größe variabel ist) klappt es.
Hier mein fehlerhafter Code:
Sub BlattSchutz()
' kennwort Makro
' Tastenkombination: Keine
Dim wks As Worksheet
myPwd = Application.InputBox("Passwort eingeben")
myPwd2 = Application.InputBox("Wiederholung")
If myPwd = myPwd2 Then
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPwd
' Bis hier läuft alles
' Zellen formatieren erlauben
' Zellen formatieren erlauben
' Zellen formatieren erlauben
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Next wks
Else: MsgBox ("Passwort ok")
End If
End Sub
Kann mir jemand sagen was ich da falsch mache!?
Vielen Dank =]