- 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
wie kann ich bei aktivierten Blattschutz den Schriftart und die Füllfarbe ändern?