habe heute im Forum folgendes gefunden von HAJO
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' erstellt von Hajo.Ziplies@web.de 15.12.02
' Formel dürfen nicht geändert werde
' sollen Formel geändert werden sind diese einzeln auszuwählen
Dim RaZelle As Range
Dim InMldg As Integer
For Each RaZelle In Range(Target.Address)
' es dürfen keine Zellen mit Formeln ausgewählt werden
If RaZelle.HasFormula Then
' Diesen Teil reinnehmen falls formeln geändert werden dürfen
InMldg = MsgBox("Wollen Sie die Formel ändern", vbYesNo + vbQuestion, "Formelabfrage ?", "", 0)
If InMldg = 6 Then Exit Sub
Target.Offset(0, 1).Select
Exit For
End If
Next RaZelle
End Sub
funkt TIPTOP, Frage wie kann ich beim Formel ändern nur zulassen
mit Abfrage Passwort in diesem Code
Danke
helena