Makro für Blattschutz

[Aydin77]

Servus ihr Experten,
habe folgendes Problem.

Ich habe ein Makro für Blattschutz aktivieren und zum aufheben erstellt, was auch funktioniert.
Sieht so aus.

Sub Blatt_schützen()
' Blattschutz aktivieren
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 Blattschutz_aufheben()
'Blattschutz 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 mein Problem.
=>wenn ich das Blattschutz aktiviere kann ich z.B. die Schriftart, die Füllfarbe oder die Schriftfarbe nicht mehr ändern, obwohl ich
mit "Zellenformatieren" unter "Schutz" den Hacken für "Gesperrt" schon weggemacht habe. Text kann ich schon eintippen.


Kann mir da jemand weiter helfen??

[schauan]

Hallöchen,

schaue Dir dazu mal die Optionen beim Blattschutz an. Dort musst DU z.B. auch das Formatieren erlauben.

[Aydin77]

Wie meinst du das?

Wo soll das ändern?

Kannst du bitte das genauer schildern.

Danke dir für die schnelle antwort.

Gruß Aydin

[atilla]

Hallo Aydin,

wenn Du manuell den Blattschutz setzt, dann kannst Du einige Optionen auswählen, bei denen der Anwender trotz Schutz die ausgewählten Dinge machen darf.
Diesen Aktion kannst Du mit dem Recorder aufzeichnen und erhältst die Syntax für den Schutz mit Passwort und Formatierungen erlauben.

In Deinem Fall muss die folgende Zeile:

Code:

Sheets(i).Protect p1

so aussehen:

Code:

Sheets(i).Protect p1, DrawingObjects:=True, Contents:=True, Scenarios:=True _
       , AllowFormattingCells:=True

[Aydin77]

Atilla  du bist der SPEZIALIST.

Es hat super geklappt. Mein Respekt geht an dich.

Danke

MfG Aydin