Disable the comments on the shortcut menu

[bandit_1981]

Hello all title says it all. I need to gray them out so no one can use comments. I can gray out the insert but where the edit and delete are not enabled at that time i cant figure out how to gray them out.

    With CommandBars("Cell")
        .Controls("Insert Comment").Enabled = False
        .Controls("Edit Comment").Enabled = False
        .Controls("Delete Comment").Enabled = False
    End With

This only works for the insert. How can i disable all 3?

 

[a7n9]

Hi,

If you cannot Insert comment how can you Edit it? So what you can do is, first delete all the comments, and then run your code, and add an errorhandler which will make the Sub exit.

<font face=Courier New><SPAN style="color:#00007F">Public</SPAN> <SPAN style="color:#00007F">Sub</SPAN> test()
<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> errorhandler
<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> c <SPAN style="color:#00007F">In</SPAN> ActiveSheet.Comments
    c.Delete
<SPAN style="color:#00007F">Next</SPAN>
<SPAN style="color:#00007F">With</SPAN> CommandBars("Cell")
    .Controls("Delete Comment").Enabled = <SPAN style="color:#00007F">False</SPAN>
     .Controls("Insert Comment").Enabled = <SPAN style="color:#00007F">False</SPAN>
    .Controls("Edit Comment").Enabled = <SPAN style="color:#00007F">False</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
errorhandler:
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>