Question

I need to protect the sheet name by preventing

• any change to the sheet name, or
• the sheet being deleted.

This must be done without protecting the entire sheet using the Protect Sheet or Protect Workbook options.

Is there any way to do this with VBA?

Answer 1

1. Right click the sheet tab that you wish to protect
2. View Code
3. Copy and paste in the code below

This code disables the delete control on the sheet (but not right click on cell) menu when the sheet is activated. The control is enabled when the sheet is de-activated

The code will also name the sheet “NameOfSheet” when the sheet is de-activated. This is a workaround to prevent the sheet being renamed

Private Sub Worksheet_Activate()
Application.CommandBars.FindControl(ID:=847).Enabled = False
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars.FindControl(ID:=847).Enabled = True
Me.Name = "NameOfSheet"
End Sub