Disable Delete Comment, Edit Comment, Show/Hide Comment

Hi,

I have my workbook set up such that when a username and password is entered via a userform, certain cells in the worksheet are unprotected. I would like to disable Delete Comment, Edit Comment and Show/Hide Comment in the right-click command menu even when the worksheets are unprotected.

Here is what I have:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

My Problem:

1. I am getting "Run-time error 5: Invalid procedure call or argument" error at Application.CommandBars("Cell").Controls("Edit Comment").Enabled = True and Application.CommandBars("Cell").Controls("Insert Comment").Enabled = True. Why is this?
2. When I open another Excel workbook, the Insert Comment option is greyed out. Why is this?

I generally have a public Boolean variable that I set, then have that, so my sample is

Public blnEnabled

Please Login or Register  to view this content.

blnEnabled, is a variable name I have chosen, it is a space in memory to hold a TRUE or FALSE. This will be declared as Public meaning its accessible from where ever, so it can be used in other places, like if you're using a userform. Google Visual Basic Boolean Data Types, may help.

The insert comment is greyed out because that line is successfully executed, but as you're getting an error later you are not being shown the command bar at the end of it. Looks like the top 3 lines are ok, just the edit comment one.