怎样使用VBA禁止修改工作表表名?
来源:网络收集 点击: 时间:2024-05-21首先在开发工具中打开VBA编辑器

在单元格区域当中输入一些内容作为例子

在VBA编辑器中插入模块

在模块当中输入如下代码,然后运行
Dim aa, bbPrivate Sub Workbook_Open()aa=ActiveSheet.Namebb=ActiveSheet.IndexEnd SubPrivate Sub Workbook_SheetActivate(ByVal Sh As Object)aa=ActiveSheet.Namebb=ActiveSheet.IndexEnd SubPrivate Sub Workbook_SheetDeactivate(ByVal Sh As Object)On Error Resume NextIf Sheets(bb).Name aa Then Sheets(bb).Name=aaEnd SubPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object,ByVal Target As Range)On Error Resume NextIf Sheets(bb).Name aa Then Sheets(bb).Name=aaEnd Sub

修改任意工作表表名试试,不管如何修改马上自动恢复,包括新建工作表

智能手机助理给我们的生活带来了极大的便利!
版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_821706.html