随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA禁止修改工作表表名?
方法/步骤
-
1
首先在开发工具中打开VBA编辑器
-
2
在单元格区域当中输入一些内容作为例子
-
3
在VBA编辑器中插入模块
-
4
在模块当中输入如下代码，然后运行
Dim aa, bb
Private Sub Workbook_Open()
aa=ActiveSheet.Name
bb=ActiveSheet.Index
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
aa=ActiveSheet.Name
bb=ActiveSheet.Index
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error Resume Next
If Sheets(bb).Name <> aa Then Sheets(bb).Name=aa
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object,
ByVal Target As Range)
On Error Resume Next
If Sheets(bb).Name <> aa Then Sheets(bb).Name=aa
End Sub
-
5
修改任意工作表表名试试，不管如何修改马上自动恢复，包括新建工作表
END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。
作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。
展开阅读全部
文章评论