工作表Sheet名称限制修改，节后就用这招驰骋职场！

自我提升也是一种修养数万Excel爱好者聚集地

2021年3月7日 周日

【Excel情报局｜文案回收铺子】

所得皆所期

所求皆所愿

所行化坦途

正常情况下，我们右击工作表名称标签，点击重命名，是可以修改工作表标签名称的。但是我偷偷往同事的工作表中放入了一段代码，对方在修改工作表标签名称时，提示了限制更改的对话框，并自定义显示了“请给我发个红包，告诉你怎么修改”的字样。

这并不是一个简简单单的工作之余的同事之间的玩笑，从另一个侧面反映出了我们如何对自己的工作表进行部分功能的保护问题！

弹出的有趣的限制修改工作表名称的对话框：

实现步骤：

右击工作表名称标签，点击查看代码，自动弹出的VBA代码窗口。

在弹出的VBA代码输入窗口中，复制粘贴下面一段代码，关闭VBA窗口，自动回到Excel主界面。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name <> "汇总表" Then
MsgBox "给我发个红包，告诉你怎么修改!"
  ActiveSheet.Name = "汇总表"
End If
End Sub

最后，当我们修改工作表名称时，就限制禁止了修改！

286期（个）Office技巧学习视频

免费打包下载方式

百度云下载链接：

https://pan.baidu.com/s/1VzuHfu9LTgYokcb6b4w4mQ

扫描下方二维码 关注公众号

上方公众号后台聊天窗口

回复关键字

“我要学习”

获取下载 提取码

阅读完文章之后，希望大家在文末帮我点亮“在看”按钮，坚持的路上需要有你们的鼓励

如何在【Excel情报局】微信公众号内通过输入关键字搜索历史文章？

常识普及：

①第1步：进入【Excel情报局】微信公众号，点击底部菜单“情报.xls”

②第2步：点击“历史文章”按钮

③第3步：顶部搜索框内输入你要搜索的关键字，比如“合并”，点击确定，进行搜索。参照下面视频操作：

相互尊重，抱团成长。

Excel2016版安装包(含永久激活工具) 百度网盘

下载链接：
https://pan.baidu.com/s/11eE-oGEyHojXHoYSuDbBAA