Im unteren Code kann ich mit Doppellklick einen Kommentar eingeben.
Das funktioniert auch,nur beim verlassen der Zelle kommt die Meldung das die Zelle gesperrt ist.
Wie müsste ich bitte Protect richtig setzen ?
Gruß
Heinz
'Kommentare bei Doppelklick & Schriftgrösse Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean) Application.ScreenUpdating = False ActiveSheet.Unprotect Password:="test" Dim RaBereich As Range Set RaBereich = Range("C3:AG156") Set RaBereich = Intersect(RaBereich, Range(target.Address)) If Not RaBereich Is Nothing Then Application.ScreenUpdating = False Dim eing As String Dim coKommentar As Comment eing = InputBox("Kommentar eingeben!") If eing "" Then ActiveCell.AddComment ActiveCell.Comment.Visible = False ActiveCell.Comment.Text Text:=eing End If For Each coKommentar In ActiveSheet.Comments coKommentar.Shape.DrawingObject.Font.Size = 12 coKommentar.Shape.OLEFormat.Object.AutoSize = True Next coKommentar End If ActiveSheet.Protect Password:="test" Application.ScreenUpdating = True End Sub