VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kennwort für Blattschutz

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Blattschutz