Thanks for your help Bob!

Jos

"Bob Phillips" schreef in bericht
...
Jos,

I think that, rather than call the builtin control directly, you would
have
to have a button that unprotects the sheet, insert the comment via code,
then protect the sheet.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jos Vens" wrote in message
...
Thanks Bob,

it works, but not on my protected sheet (the cell is editable, but the
commandbutton stays grey). I cannot unprotect the sheet because users
will
delete my formula's. It's the button to edit/create comment on a cell.

Can you still help?
Thanks
Jos Vens


"Bob Phillips" schreef in bericht
...
Jos,

You set the ID to the BuiltinId for that control

Set cbCtl = CB.Controls.Add(Type:=msoControlButton, _
ID:=BuiltinId, _
Temporary:=True)

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jos Vens" wrote in message
...
Hi,

I created a commandbar for my application. Adding a custom button
works
with
this procedure, but I want ot add a standard button of excel. How can
I
do
this?

Thanks a lot
Jos Vens

CB_LibraAdd "Maak/Bewerk Opmerking", "TB_CommentCreate", 1589, True

In this line, I want to have the original excel button for editing
comments
in stead of my procedure TB_CommentCreate. FaceID is correct.

Function CB_LibraAdd(vTooltipText As String, vOnAction As String,
vFaceId
As
Long, vGroup As Boolean)

Dim cbLibra As CommandBar
Dim vControl As CommandBarControl

On Error Resume Next

Set cbLibra = CommandBars("Libra")

Set vControl = cbLibra.Controls.Add

vControl.TooltipText = vTooltipText
vControl.OnAction = vOnAction
vControl.FaceId = vFaceId
vControl.Style = msoButtonIcon
vControl.BeginGroup = vGroup

End Function