Ich habe folgendes Makro zum Sperren/Entsperren meiner Tabellenblätter:
Option Explicit
Sub Schutz()
Dim i As Long
For i = 1 To Sheets.Count
If Sheets(i).Visible Then
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, Password:="123"
End If
Next i
MsgBox "alle Blätter wurden geschützt"
End Sub
Sub Aufheben()
Dim i As Long
Dim p1 As String
Dim p2 As String
p1 = InputBox("Bitte Passwort eingeben!", "Passworteingabe")
If p1 = "" Then
MsgBox "Kein Passwort eingegeben!" & vbLf & vbLf & "Blattschutz wird nicht nicht _
aufgehoben!"
Exit Sub
End If
On Error GoTo fehler
For i = 1 To Sheets.Count
Sheets(i).Unprotect p1
Next i
MsgBox "alle Blätter wurden entsperrt"
fehler:
If Err Then MsgBox "Falsches Passwort"
End Sub
Jetzt ist es leider so, dass ich zusätzlich gruppierte Daten habe. Damit man die Gruppierung in einem geschützten Blatt verwenden kann, habe ich zusätzlich folgende Makro Befehle gefunden:Sheets(i).Protect userinterfaceonly:=True, Password:="123"
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Ich würde diese Befehle gerne gleich in mein oberes "Schutzmakro" einbauen. D.h. die bereits vorhanden Optionen im geschützten Blatt müssten noch um die der Gruppierung erweitert werden. Ich habe mich daran versucht, aber es leider nie hinbekommen dass alle Optionen funktionieren. Evtl. könnte mir das jemand kurz richtig einfügen?Wäre sehr nett!
Beste Grüße
Thomas