Blattschutz per Button setzen, Autofilter aktiviert lassen
27.09.2023 08:10:17
Manu
ich bräuchte mal euere Hilfe. Ich will ein Blatt entsprechend vor Bearbeitung schützen, das soll über einen Button zum "sperren und entsperren" geschehen. Funktioniert mit dem Code auch, außer eben die Autofilter.
Sub Freigabe()
Dim PW As String
With ActiveSheet
If .ProtectContents Then
PW = Application.InputBox("Bitte Passwort eingeben:", "Passwortabfrage")
If PW = "Falsch" Or PW = "False" Then Exit Sub
If PW > "0815" Then
MsgBox "Falsches Passwort", vbCritical
Exit Sub
Else
.Unprotect Password:="0815"
End If
Else
.Protect Password:="0815"
End If
End With
End Sub
Wer kann helfen?
lg Manu
