防止更改工作表名称

工作表的名称显示在工作表标签上，除了在相应的功能菜单中可以对其进行重命名操作外，在工作表标签上双击鼠标也能修改工作表名称。但是一旦工作表名称进行了修改，则后期的引用则会造成很多影响。

下列代码可以保证工作表名称不被修改：

'是的表1的表名为“不能改”不变
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Sheet1.Name <> "不能改" Then
        Sheet1.Name = "不能改"
    End If
    ThisWorkbook.Save
End Sub