工作簿内指定多个工作表名不可修改

上善若水888882

日常使用带有VBA的工作簿，VBA代码引用了部分工作表名，如何运用一段VBA代码保护同一工作簿内指定的多个工作表名不被修改，防止其他人使用时误改工作表名，使代码失效？

kuangben8

https://blog.csdn.net/taller_2000/article/details/104106686
如何防止Excel工作表名称被修改

whatyang

借地方反馈个问题：今天使用360浏览器点击"登录"按钮，没有任何反应，换了google浏览器才行，然后准备发帖，提示要求绑定QQ，不绑定发不了，但是准备绑定时又出现错误提示：
redirect uri is illegal(100010)
通知: QQ互联加强网站应用回调地址校验
点此报错      解决方案  


实在解决不了，又不是不知道怎么找管理员，麻烦看到协助处理，谢谢（可以发站内信给我）

上善若水888882

在网上找了段代码，运行不了，啥原因？思路4：在工作簿模块中，综合运用隐藏的Application事件， 字典以及工作表的代码名称（CodeName）。

1. Public WithEvents app As Application
   
2. Dim dic
   
3. 
   
4. Private Sub app_SheetDeactivate(ByVal Sh As Object)
   
5.     If dic.exists(Sh.CodeName) = False Then Exit Sub
   
6.     If dic(Sh.CodeName) <> Sh.Name Then
   
7.             MsgBox "你无权修改工作表名称!"
   
8.             Sh.Name = dic(Sh.CodeName)
   
9.     End If
   
10. End Sub
    
11. 
    
12. Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    
13.     If dic.exists(ActiveSheet.CodeName) = False Then Exit Sub
    
14.     If dic(ActiveSheet.CodeName) <> ActiveSheet.Name Then
    
15.            MsgBox "你无权修改工作表名称!"
    
16.            ActiveSheet.Name = dic(ActiveSheet.CodeName)
    
17.     End If
    
18. End Sub
    
19. 
    
20. Private Sub Workbook_Open()
    
21.     dic.Add "Sheet1", "生产计划表"
    
22.     dic.Add "Sheet2", "销售计划表"
    
23.     dic.Add "Sheet3", "财务计划表"
    
24.     Set app = Application
    
25. End Sub

复制代码

上善若水888882

上善若水888882 发表于 2020-9-6 13:19
在网上找了段代码，运行不了，啥原因？思路4：在工作簿模块中，综合运用隐藏的Application事件， 字典以及 ...

案例网页地址：https://zhuanlan.zhihu.com/p/165917071

上善若水888882

谁能看看上面的代码？

f8b1987

加工作簿保护即可，添加后无法修改工作表名称，也无法删除工作表

上善若水888882

f8b1987 发表于 2020-9-7 00:21
加工作簿保护即可，添加后无法修改工作表名称，也无法删除工作表

这个方法好，简单、粗暴

szjiaxb

上善若水888882 发表于 2020-9-6 13:19
在网上找了段代码，运行不了，啥原因？思路4：在工作簿模块中，综合运用隐藏的Application事件， 字典以及 ...

这段代码为什么运行不了？