1. Sub Blatt_schützen()
  2. ' Blattschutz aktivieren
  3. Dim i As Long
  4. Dim p1 As String
  5. Dim p2 As String
  6. p1 = InputBox("Bitte Passwort eingeben!", "Passworteingabe")
  7. p2 = InputBox("Bitte Passwort wiederholen!", "Passworteingabe")
  8. If p1 = "" Or p2 = "" Then MsgBox "Eingaben waren nicht korrekt!" & vbLf & vbLf & "Kein Blattschutz!"
  9. Exit Sub End If
  10. If p1 <> p2 Then MsgBox "Eingaben waren nicht korrekt!" & vbLf & vbLf & "Kein Blattschutz!"
  11. Exit Sub End If
  12. For i = 1 To Sheets.Count Sheets(i).Protect p1
  13. Next i
  14. MsgBox "alle Blätter wurden geschützt"
  15. End Sub
  16. Sub Blattschutz_aufheben()
  17. 'Blattschutz aufheben
  18. Dim i As Long
  19. Dim p1 As String
  20. Dim p2 As String
  21. p1 = InputBox("Bitte Passwort eingeben!", "Passworteingabe")
  22. If p1 = "" Then MsgBox "Kein Passwort eingegeben!" & vbLf & vbLf & "Blattschutz wird nicht nicht aufgehoben!"
  23. Exit Sub End
  24. If On Error GoTo fehler
  25. For i = 1 To Sheets.Count Sheets(i).Unprotect p1
  26. Next i
  27. MsgBox "alle Blätter wurden entsperrt"
  28. fehler: If Err Then MsgBox "Falsches Passwort"
  29. End Sub

wie kann ich bei aktivierten Blattschutz den Schriftart und die Füllfarbe ändern?