Beveiligd blad toch opmerking invoeren

[GBJ]

Hallo beste Helpmij mensen,

Mijn probleem:
Ik wil dat de celopmaak beveiligd is. Echter is het hierdoor niet mogelijk om een opmerking in te voegen.
Daarnaast de celkleur kunnen aanpassen.

Ik ben de oplossing aan het zoeken in een marcro.

ActiveSheet.Unprotect
.AddComment
.Comment.Visible = False
.Comment.Text Text:="Brenda:" & Chr(10) & ""
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Echter werkt dit niet. Heerft iemand een oplossing ?


Groetjes
Gill

 

[davevanderkist]

Ik ben hier niet zo heel erg in thuis, en ik weet niet of het erg veel uit maakt, maar je gebruikt geen strings.
Als het volgende niet werkt, wat krijg je dan voor fout?

Dim sCR As String
Dim sTekst As String

sTekst = "Brenda"
sCR = Chr(10)


.Comment.Text Text:=sTekst & sCR

 

[fra]

Je hebt verzuimd om aan te geven wélke cel(len) je van commentaar wil voorzien.
Als je dat wel doet, zal je macro wel werken.

fra.