Comment и Protect UserInterfaceOnly

[Avtopic]

Здравствуйте!

Protect .., UserInterfaceOnly
В основном, работает, так как надо.
Единственное, в моем случае, не дает возможности, программно добавить Comment (AddComment) к ячейке.
.Locked = False для ячейки тоже не помогает.

Вопрос, как добавить Comment к ячейке без Unprotect целого листа.

Спасибо!

[Pavel55]

Может так? )

Код: Выделить всё

Sub Macro1()
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, UserInterfaceOnly:=True
    With Range("D1")
        .ClearComments
        .AddComment
        .Comment.Text "bla-bla-bla"
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, UserInterfaceOnly:=True
End Sub

[Avtopic]

Действительно! Спасибо!