VBA禁止更改工作表名称

最新推荐文章于 2024-08-26 10:14:42 发布

B2_F22

最新推荐文章于 2024-08-26 10:14:42 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA 数据分析

本文链接：https://blog.youkuaiyun.com/rocket2020/article/details/117160638

数据分析同时被 2 个专栏收录

32 篇文章

订阅专栏

VBA

12 篇文章

订阅专栏

这篇博客介绍了如何使用VBA编程来实现工作表保护，具体为当用户试图更改Sheet16的名称时，会自动将其重置为'数据'，并保存工作簿。这提供了一种防止意外修改工作表名称的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'VBA禁止更改工作表名称
Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)

    If Sheet16.Name <> "数据" Then Sheet16.Name = "数据"
     ThisWorkbook.Save

End Sub

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

B2_F22

关注关注

0
点赞
踩
4

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

专栏目录

VBA学习(16)：工作表事件示例：输入数据后锁定单元格

nianfen的博客

06-22

1151

这样，右击想要重新输入数据的单元格，会弹出一个消息框，询问你是否要重置这个单元格，如果点击“是”，则会清空该单元格并供输入新数据。可以使用右击单元格的方式，来重置想要重新输入数据的单元格。在工作表单元格中输入数据后，该单元格就被锁定，不能再编辑。这里，假设锁定工作表的密码为“123”。

VBA助力Excel工作薄另存备份和自我销毁，确保工作薄名称自始至终不被修改

BeijixingVBA的博客

05-08

1132

VBA助力Excel工作薄另存备份和自我销毁，确保工作薄名称自始至终不被修改

参与评论您还未登录，请先登录后发表或查看评论

VBA 禁止删除以及更改工作表名称

最新发布

记录

08-26

744

在不保护工作簿的情况下，禁止删除工作表以及更给工作表名称。

VBA，禁止修改workbook的所有内容

奔跑的犀牛先生

01-30

2850

1 代码1：禁止修改工作簿所有内容在workbook的 sheetchange() 里增加判断只要内容发生变化，触发 sheetchange() 就把 target参数内容置回之前的内容需要事先捕捉，修改前的范围内容 Dim arr1 Private Sub Workbook_Open() MsgBox "此工作簿不允许修改" End Sub Private S...

禁止Excel工作表更名(2/2)

神奇的BI

08-22

478

此方案同样适用于单个工作表和不切换工作表的场景，但是凡事都有利有弊，此方案中的Commandbar对象的事件代码将会被多次激活，例如：选中单元格、切换工作表等等操作都会激活该事件代码。第5~6行代码为工作表的Open事件，在工作簿打开之后将被执行，第6行代码实现CommandBar对象的实例化。修改工作表名称后，按回车键之后，系统事件被触发，恢复工作表名称，进而实现了禁止更名。第2~4行代码为CommandBard的更新事件，用于监测工作表的名称。第1行代码声明带事件接口的对象。操作效果如下图所示。

基于VBA实现Excel十字交叉高亮显示

梁海江的博客

03-01

6438

平时做表用的OFFICE的Excel 1 打开vbe编辑器具体操作过程见我关于Excel利用VBA实现去掉单元格两边空格的方法。 2 双击左侧thisworkbook标签，并粘贴代码 3 查看效果 4.另存为xlsm格式，如果其他可能会把vba代码抹除 ...

【VBA】点击工作簿中的每个单元格，整行整列变色

ajsyipsc40270的博客

08-03

1518

需求描述在点击单元格的时候，单元格所在行与列都变色显示实现方案打开Excle表格，按住ALT+F11双击上图中的ThisWorkbookPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.Interior.Pattern = xlNone Ro...

Excel-VBA宏编程实例源代码-工作表的操作-禁止选定.zip

12-14

在VBA中，我们可以通过修改工作表的属性来实现这一功能。主要涉及以下两个属性： 1. `Application.Interaction`：这个属性可以控制Excel的交互性，例如，我们可以设置`Application.Interaction = False`来禁用所有...

Excel VBA编程实例：禁止选定工作表操作的宏源代码

5. 保护工作表：虽然标题中提到的是通过VBA禁止选定单元格，但实际上，如果要完全防止用户更改单元格内容，可以使用Excel的内置功能，即工作表保护功能。在VBA中，可以通过工作表的Protect方法对工作表进行保护。 6...

Excel 2010 VBA 入门 067 导入多个工作簿中的工作表

复行数十步

04-26

1345

示例如图所示，在同一个目录下有多个工作表名称相同的工资汇总月报。现希望通过VBA建立该多个月份的月报总表，将多个工作簿中的“工资汇总”工作表导入当前工作簿，并以月份命名。该如何实现呢？ ...

VBA：控制工作表一二行填写数据后不允许修改

weixin_51465537的博客

03-10

2523

使用VBA控制工作表一二行填写数据后不允许修改

VBA学习(18)：VBA制作任意工作表均可使用的聚光灯

nianfen的博客

06-22

1147

但需要说明的是，一旦使用VBA代码，Excel将会丧失“后悔”功能，也就是说Ctrl+Z的撤销功能会失去效果了。在需要制作聚光的工作簿，按组合键，打开VBE编辑器。如果你只是需要对某个工作表制作聚光灯，可以换用工作表事件，将以上代码修改为如下，并复制粘贴到相关工作表模块代码窗口即可。除此之外，该代码还会取消单元格原有设置的填充色，不过不会取消【条件格式】以及【表】功能设置的单元格填充色。当然，代码还有很多优化空间，比如，调整聚光灯的范围，仅限数据区域，参考代码如下▼。

【Excel神技】之禁止复制移动工作簿

cheer_zhang的专栏

02-08

4779

简单的设置，直接上干货！勾选【窗口】、【结构】并设置密码：效果如下，相关复制、移动功能都不可用：

自动为当前单元格所在行和列加上颜色

国际海员

01-26

5573

自动为当前单元格所在行和列加上颜色当光标定位在工作表中某单元格中时，Excel自动为该单元格或者该单元格所在的行或列加上颜色，这个技巧可用于在工作表中突出显示当前单元格及其所在的行和列，以强调数据，并方便阅读。下面介绍了实现此功能的几种方法。使用条件格式下面将使用条件格式实现当前单元格和当前单元所在行或列突出显示的效果。在公式中使用了Cell函数，并将ScreenUpdation属性的值设置为Tr

Excel-事件（Workbook、Worksheet、Range、OnKey/OnTime）

lizhenxiqnmlgb的博客

06-04

4086

转载自：https://www.cnblogs.com/wzh313/articles/9741148.html 一、Excel事件介绍 Excel事件就是一个能被对象识别的操作。当某个事件发生后自动运行的过程称为事件过程。事件过程也是Sub过程。实践过程必须写在特定对象所在的模块中，而且只有过程所在的模块里的对象才能触发这个事件。事件过程名由Excel自动设置，以“对...

第5章 Excel事件

往前的娘娘

09-07

4404

1 让Excel自动响应你的行为 1.1、让Excel自动问好 Private Sub Workbook_Open() MsgBox "你好，主人" End Sub 保存退出，重新打开就能看到效果 1.2、事件、VBA里的自动开关 Workbook_Open() （Workbook事件作用的对象为工作簿，Open对象的事件是打开） 1.3、事件过程

excel vba 高亮显示当前行代码

jh035512的博客

11-26

1136

例如，当鼠标点击F7单元格，XM便等于F7，ROW(XM)=7，设置条件格式的区域中，凡是Row()等于7(说白了就是第7行)的单元格便显示背景色。当选中B6单元格时有不一样的情况出现，是因为区域中设置了两个条件格式，它符合第一个条件便显示第一种格式，符合第二个条件便显示第二个格式。这几行代码的作用是，当选择新的单元格时，将这个单元格(或者区域)定义为名称“XM”，在条件格式设置中可以引用这个名称。Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色。

让Excel像WPS一样点击行列就可以高亮

finny7的博客

07-24

3059

Alt + F11，选择TihsWorkbook粘贴代码并保存即可。 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Cells.FormatConditions.Delete iColor = 40 With Target.EntireRow.FormatConditions .Delete