Right Click Sheet Tab

[dannyr3065]

Hi, how can I hide the 'right click' options on a Worksheet Tab (not the Worksheet Cells) pls... I have a Worksheet that I lock with VBA (password) and I dont want users to be able to unlock hte Sheet through the 'right click' option, eg: Insert / Delete / Rename, etc

 

[Paul Ked]

There may be some API coding that could do that, but it's way beyond me!

I hide the tabs and force the user to navigate through buttons.

 

[dannyr3065]

Thanx for ur reply ...I will try it if I get no other laternatives

 

[Logit]

.
Paste this in the ThisWorkbook module :

Option Explicit


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Ply").Enabled = True
End Sub
 
Private Sub Workbook_Open()
    Application.CommandBars("Ply").Enabled = False
End Sub

 

[Paul Ked]

That's neat, where did you find that?

 

[dannyr3065]

Thanx for ur reply ...but that didnt work

 

[Paul Ked]

It does work. Either close and re-open the workbook or enter Application.CommandBars("Ply").Enabled = False in the immediate window.

 

[Logit]

.
Yes, you must close the workbook, then re-open it for it to work.

Or .. I presume you could place it in a separate macro by itself and attached a command button to it. But then,
your users would be able re-enable the Rt Click menu again if you had command buttons.

I simply did a GOOGLE search. GOOGLE I am told is my friend ?

 

[dannyr3065]

Yes sorry ...close and re-open, all good. Thanx

 

[Logit]

Glad to help.

Cheers !