Excel Vba怎么防止修改工作表名称

1、第一步，打开Excel2016，点击开发工具里面的Visual Basic。

2、第二步，在vba编辑器中，插入模块。

3、第三步，输入：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Worksheets(1).Name <> "开心" Then

Worksheets(1).Name = "开心"

End If

End Sub

当我们要修改工作表名称的时候，它会触发SelectionChange属性变回一开始设置的名称，从而实现工作表名称不被修改的功能。