kann mir jemand weiterhelfen? Ich möchte verhindern, daß in einem bestimmten Bereich eines Arbeitsblattes Kommenbtare eingegeben werden können. Und wenn doch, dann nur über ein Passwort.
Danke im Voraus
Michael
Hallo Michael
Ich weiss nicht wie gut deine Exceluser sind, aber für Standardeinfach ginge es evtl so:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bereich As Range
On Error Resume Next
CommandBars("Insert").FindControl(ID:=1589).Enabled = True
CommandBars("Cell").FindControl(ID:=2031).Enabled = True
If[a1] = "passwort" Then Exit Sub 'musst du dir anpassen
Set bereich = Range("A:B") 'musst du dir anpassen
If Not Intersect(Target, bereich) Is Nothing Then
CommandBars("Insert").FindControl(ID:=1589).Enabled = False
CommandBars("Cell").FindControl(ID:=2031).Enabled = False
End If
End Sub
Ransi