Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not letzteR Is Nothing Then Call arbeite_mit_letzter_kommentarzelle
End Sub

Option Explicit
Global letzteR As Excel.Range
 
Sub arbeite_mit_letzter_kommentarzelle()
If letzteR = Nothing Then Exit Sub
letzteR.Comment.Visible = False
' Auslesen des eingegebenen Kommentars
 
' Wenn nichts eingegeben wurde Kommentar wieder löschen
If letzteR.NoteText = "" Then letzteR.ClearComments
 
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Application.EnableEvents = True
letzteR.Worksheet.Protect Password:="XXXX", UserInterfaceOnly:=True
Set letzteR = Nothing
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 
'Blattschutz aufheben
ActiveSheet.Unprotect Password:="XXXX"
Application.EnableEvents = False
 
'Zur ursprünglichen Zelle springen
Target.Select
 
If Target.NoteText = "" Then Target.ClearComments
    Target.AddComment
    Target.Comment.Visible = True
    Target.Comment.Shape.Select True
    Set letzteR = Target
 
If Not letzteR Is Nothing Then Call arbeite_mit_letzter_kommentarzelle
End Sub
 
Private Sub Worksheet_Deactivate()
If Not letzteR Is Nothing Then Call arbeite_mit_letzter_kommentarzelle
End Sub