恳请大师们帮忙提供一个禁止更改工作表名称的代码

qiongmei6

我这个附件上有代码可以禁止删除工作表和增加工作表，但是没办法禁止更改工作表的名称，恳请大师们帮忙提供一个代码，禁止更改这个附件上所有工作表的名称，谢谢各位大师的帮忙。

huarong7984

可通过禁用工作表标签栏内的右键功能实现

qiongmei6

huarong7984 发表于 2023-6-7 07:51
可通过禁用工作表标签栏内的右键功能实现

这个思路不行呀，左键双击一样可以修改工作表名称，谢谢您的回答

huarong7984

分别在VBA对应的工作表中输入并对应修改工作表序号与工作表名称即可：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets(1).Name <> "出资" Then
     MsgBox "已锁定工作表名称！" & Chr(13) & "你无权修改！", vbCritical, " 特别警告："
     Worksheets(1).Name = "出资"
  End If
End Sub

wx_38322

qiongmei6 发表于 2023-6-7 08:31
这个思路不行呀，左键双击一样可以修改工作表名称，谢谢您的回答

我记得有本书教是检测工作表名称有没有改变，改变就用宏自动改回去

ykcbf1100

把表指定方式改一下，不要用sheets("表名“)指定表，改用Sheet9方式指定表，这样就不用怕表名被改来改去了。

tanglf188

用两个事件强制改回来

嘞马踏

在指定的sheet上右键->查看代码，然后输入以下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Me.Name <> "XXX" Then Me.Name = "XXX"
End Sub

代码意思就是如果选中的sheet名字不是你要求的，那么就改成你要求的名字