G
Guest
Guest
I read the message board with interest and tried the code
Private Sub Worksheet_Activate()
ID = 847
For Each CB In Application.CommandBars
Set C = CB.FindControl(ID:=ID, recursive:=True)
If Not C Is Nothing Then C.Enabled = False
Next
End Sub
Which greys out the 'Delete Sheet' option and works well. Trouble is, it seems to have permanently greyed the 'Delete Sheet' option. I have deleted the code from the spreadsheet where I put it, to no effect, how do I get back the Delete Sheet' option - help !
Private Sub Worksheet_Activate()
ID = 847
For Each CB In Application.CommandBars
Set C = CB.FindControl(ID:=ID, recursive:=True)
If Not C Is Nothing Then C.Enabled = False
Next
End Sub
Which greys out the 'Delete Sheet' option and works well. Trouble is, it seems to have permanently greyed the 'Delete Sheet' option. I have deleted the code from the spreadsheet where I put it, to no effect, how do I get back the Delete Sheet' option - help !