Blattschutz mehrerer Arbeitsblätter
12.02.2021 10:56:37
Thorsten
ich nutze eine Datei mit mehreren Arbeitsblättern, die alle mit einem Blattschutz versehen sind. Ich benutze den folgenden Code um die ganzen Blätter gleichzeitig zu schützen bzw. zu entsperren:
Sub Aufheben()
Dim strPW As String, I As Integer
On Error GoTo Fehler
strPW = InputBox("Blattschutz - AUS" & vbLf _
& "Bitte Kennwort für Blattschutz eingeben", _
"Blattschutz - A U F H E B E N")
If strPW "" Then
For I = 1 To Sheets.Count
Sheets(I).Unprotect strPW
Next I
End If
Fehler:
With Err
Select Case .Number
Case 0 'Alles OK
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub
Sub Schutz()
Dim strPW As String, I As Integer
On Error GoTo Fehler
strPW = InputBox("Blattschutz - EIN" & vbLf _
& "Bitte Kennwort für Blattschutz eingeben", _
"Blattschutz - A K T I V I E R E N")
If strPW "" Then
For I = 1 To Sheets.Count
Sheets(I).Protect strPW
Next I
End If
Fehler:
With Err
Select Case .Number
Case 0 'Alles OK
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub
Jetzt möchte ich aber in den gesperrten Blättern den Auto Filter verwenden können. Kann man den Code dementsprechend anpassen?
Danke für eure Hilfe.
Gruß TJ
Anzeige