1、第一步,打开Excel2016,点击开发工具里面的Visual Basic。
2、第二步,在vba编辑器中,插入模块。
3、第三步,输入:Private Sub Worksheet_SelectionChange(幞洼踉残ByVal Target As Range)朐袁噙岿If Worksheets(1).Name <> "开心" ThenWorksheets(1).Name = "开心"End IfEnd Sub当我们要修改工作表名称的时候,它会触发SelectionChange属性变回一开始设置的名称,从而实现工作表名称不被修改的功能。