Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Kommentare in geschützte Tabellen einfügen

Gruppe

Kommentar

Problem

Wie kann ich bei Blattschutz Kommentare nur in ungeschützte Zellen eintragen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub SetComment()
   Dim oCmt As Comment
   Application.DisplayCommentIndicator = xlCommentIndicatorOnly
   If ActiveCell.Locked Then
      MsgBox _
         prompt:="Eingabe eines Kommentars nicht möglich -" & _
         vbLf & "dieser Bereich ist geschuetzt. ", _
         Buttons:=vbCritical
   Else
      ActiveSheet.Unprotect
      If Not ActiveCell.Comment Is Nothing Then
         ActiveCell.Comment.Delete
      End If
      ActiveCell.AddComment "Mein Kommentar"
      ActiveSheet.Protect
   End If
End Sub