wer kann helfen?:
wie kann ich auf einem geschützten Tabellenblatt (im Menü EINFÜGEN ist dann ja der Punkt "Kommentare" deaktiviert) die Eingabe von Kommentaren in einzelne Zellen erlauben ohne den gesamten Blattschutz aufzuheben?
wer kann helfen?:
wie kann ich auf einem geschützten Tabellenblatt (im Menü EINFÜGEN ist dann ja der Punkt "Kommentare" deaktiviert) die Eingabe von Kommentaren in einzelne Zellen erlauben ohne den gesamten Blattschutz aufzuheben?
Henry
Sub Kommentar_einfügen()
ActiveSheet.Protect password:= "gewünschtes Passwort", userinterfaceonly:= true
If Selection.Interior.ColorIndex = 35 Then Exit Sub
Dim strComment As String
strComment = Inputbox("xxx")
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.text text:=Application.UserName & vbLf & strComment
End With
End Sub
mfg
Nico D
der Henry
auch in ungesperrten Zellen kannst Du keinen Kommentar eingeben, wenn das Blatt geschützt ist. Habe aber die Lösung. Schau mal bei den übrigen Antworten auf meine Frage nach!
Trotzdem vielen Dank!!
Michael