禁止Excel工作表更名(2/2)

Excel工作表更名非常简单，即使是办公小白也知道如何操作，有些应用场景中不希望用户修改工作表名称，使用VBA是否可以实现这个需求呢？

在上一篇博客中提供了一个不太完美的实现方式，可以适用于多数场景，接下来介绍一个更完善的实现方案。

示例代码如下。

' Thisworkbook module
Public WithEvents cmdBars As CommandBars
Private Sub cmdBars_OnUpdate()
    If Sheets(1).Name <> "Main" Then Sheets(1).Name = "Main"
End Sub
Private Sub Workbook_Open()
    Set cmdBars = Application.CommandBars
End Sub

【代码解析】
第1行代码声明带事件接口的对象。
第2~4行代码为CommandBard的更新事件，用于监测工作表的名称。
第5~6行代码为工作表的Open事件，在工作簿打开之后将被执行，第6行代码实现CommandBar对象的实例化。

操作效果如下图所示。

修改工作表名称后，按回车键之后，系统事件被触发，恢复工作表名称，进而实现了禁止更名。

此方案同样适用于单个工作表和不切换工作表的场景，但是凡事都有利有弊，此方案中的Commandbar对象的事件代码将会被多次激活，例如：选中单元格、切换工作表等等操作都会激活该事件代码。