ich möchte meine Formeln und Zellen ohne den Excel intergierten Blattschutz zubenutzen. Gibt es dafür eine Möglichkeit?
DAnke
Thomas B
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim InMldg As Integer
' Variante 2 Zellen mit Formeln schützen
If Target.HasFormula Then
MsgBox "Diese Formel ist absichtlich geschützt", 16, "Warnung"
Application.EnableEvents = False
Cells(6, Target.Column).Select
Application.EnableEvents = True
End If
End Sub