VBA Makro alle Blätter schützen mit optionen
03.08.2014 12:33:07
Daniel
Ich habe ein Makro gefunden was schon fast alles macht was ich brauche, ich würde allerdings gerne zusätzlich noch definieren können was an Funktionen weiterhin erlaubt ist. Hier ist insbesondere der autofilter wichtig.
Ich habe schon probiert das in den code einzufügen, bekomme aber jedes mal die Fehlermeldung: Laufzeitfehler '438' Objekt unterstützt diese Eigenschaft nicht
Hier der VBA code von DumDum gefunden auf Office-Lösung.de:
Option Explicit
Sub Schutz()
Dim i As Long
Dim p1 As String
Dim p2 As String
p1 = InputBox("Bitte Passwort eingeben!", "Passworteingabe")
p2 = InputBox("Bitte Passwort wiederholen!", "Passworteingabe")
If p1 = "" Or p2 = "" Then
MsgBox "Eingaben waren nicht korrekt!" & vbLf & vbLf & "Kein Blattschutz!"
Exit Sub
End If
If p1 p2 Then
MsgBox "Eingaben waren nicht korrekt!" & vbLf & vbLf & "Kein Blattschutz!"
Exit Sub
End If
For i = 1 To Sheets.Count
Sheets(i).Protect p1
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
Ich hoffe Ihr könnt mir weiterhelfen, am liebsten hätte ich eine Liste mit allen Optionen die ich dann im Code einzeln an und aus schalten kann. Währe super wenn Ihr auch noch definieren könntet welcher in der Liste was genau erlaubt.
Wenn Ihr auch noch erklären könntet warum der Fehler auftritt währe mein Tag perfekt ;-)
Schon mal im Voraus vielen Dank
Anzeige