excel - 如何保护工作表名称而不是整个工作表？

Question

我需要通过防止来保护工作表名称

对工作表名称的任何更改，或

被删除的工作表。

必须这样做 没有 使用 Protect Sheet 保护整张纸或 Protect Workbook选项。

有没有办法用VBA做到这一点？

Answer 1

右键单击要保护的工作表标签

查看代码

复制粘贴下面的代码

当工作表被激活时，此代码禁用工作表上的删除控件(但不是右键单击单元格)菜单。禁用工作表时启用控件

当工作表被停用时，代码还将将该工作表命名为“NameOfSheet”。这是防止工作表被重命名的解决方法

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