HERBERS Excel-Forum - die Beispiele

Thema: Kommentare in geschützte Tabellen einfügen

Home

Gruppe

Allgemein

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kommentar

Arbeitsblatt schützen Kommentare aber noch möglich Zeilenumbruch im Kommentar
Kommentar in erste zelle einess Bereiches Problem mit Kommentaren
Kommentar Eintrag löschen und einrücken Kommentarzeilen in Variablen einlesen
Kommentar Formatierung Kommentare löschen
Kommentare einfügen Kommentar abfragen und ändern
Kommentare wieder sichtbar machen Bild in Kommentar oder Zelle einfügen
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
Werte automatisch in Kommentare setzen Freigegebene Arbeitsmappe: Kommentare verschwinden
Pop-Up-Kommentare kann man Kommentare (per Makro) durchsuchen?
Kommentare Kommentar mit Zellenhintergrundfarbe
Kommentare in der Größe ändern mit Makro, wei Kommentar in Abhängigkeit vom Zellinhalt
Kommentare in freigegebener Datei Kommentar suchen löschen
Kommentar-Formatierung Kommentare
Kommentare auslesen Kommentar mit VBA
Kommentarfläche manipulieren Kommentare drucken
Ein Kommentar auf mehrere Zellen Größe der Kommentare
Tabelle sperren u. Kommentar In Zelle Kommentar abhängig vom Wert
2 Schriftgrößen im Kommentar Kommentar nicht scrollen
kommentar fortlaufend nur 10 zeilen Kommentare verschwinden
Problem Kommentarzeichen CommandButton Kommentar zuordnen
allgemein Datei, Seite einrichten, Tabelle, Kommentare grau
Einfügen von Zeilen oberhalb ändert Kommentargr Kommentar Feld
Kommentar Formatierung Kommentare per Makro eintragen
Kommentare in geschütztem Blatt von AA22 nach Kommentar B5 kopieren
Kommentar automatisch formatieren