Gruppe
Allgemein
Bereich
Blattschutz
Thema
Kennwort für Blattschutz
Problem
Wie kann ich den Blattschutz aufheben, wenn ich das Kennwort vergessen habe?
Lösung
Kopieren Sie den Inhalt des geschützten Blattes in ein neues, nicht geschütztes Blatt. Bitte beachten: Wenn beim Zellformat unter Schutz die Checkbox "Formel ausblenden" aktiviert ist, kann die Formel nicht wiederhergestellt werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, oCell As Range
If Target.Font.Bold = False Then Exit Sub
If Target.Value = "" Then Exit Sub
If IsNumeric(Target.Value) = False Then Exit Sub
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
With Range("A1").CurrentRegion
For Each oCell In .Cells
If oCell.Value = Target.Value And oCell.Font.Bold And oCell.Address <> Target.Address Then
Beep
MsgBox "Der eingegebene Wert existiert bereits!"
Target.ClearContents
Exit For
End If
Next oCell
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Sub a()
Application.EnableEvents = True
End Sub