不保护工作簿时禁止插入、删除工作表和修改工作表名称

excel333 · 发表于 2013-5-11 22:47

本帖最后由 excel333 于 2013-5-12 21:09 编辑

不保护工作簿时禁止插入、删除工作表和修改工作表名称：

excel333 · 发表于 2013-6-30 23:27

dygcs 发表于 2013-6-30 17:25
为什么他没有自动检测多余的表并且删除呢？

加上这个：

......
Sh.Visible = xlSheetVisible

Sh.Delete '删除工作簿中新增的工作表
......

dygcs · 发表于 2013-6-30 17:25

excel333 发表于 2013-6-28 22:12
把隐藏了的工作表删除；

或将隐藏了的工作表的名称加入 Case "登录", "权限设置", "邮寄业务表"中即可 ...

为什么他没有自动检测多余的表并且删除呢？

dygcs · 发表于 2013-6-17 16:14

本帖最后由 dygcs 于 2013-6-17 16:19 编辑

经测试，以上代码还有问题
1.可以通过复制来增加工作表（建立副本）
2.有时能够自动检测并删除非指定的工作表，删除工作表的代码不能及时执行，没有发挥保护作用

excel333 · 发表于 2013-6-17 22:19

本帖最后由 excel333 于 2013-6-17 22:20 编辑

dygcs 发表于 2013-6-17 16:14
经测试，以上代码还有问题
1.可以通过复制来增加工作表（建立副本）
2.有时能够自动检测并删除非指定的工 ...

谢谢提醒，超过时间无法更新一楼了。请看本楼更新了的附件：

dygcs · 发表于 2013-6-28 11:51

excel333 发表于 2013-6-17 22:19
谢谢提醒，超过时间无法更新一楼了。请看本楼更新了的附件：

附近已完善检测以拖动复制的方式插入表，
但我复制代码到附件却会出错，请见附件
其中登录框为 admin admin
QQ图片20130628114659.jpg

excel333 · 发表于 2013-6-28 22:12

dygcs 发表于 2013-6-28 11:51
附近已完善检测以拖动复制的方式插入表，
但我复制代码到附件却会出错，请见附件
其中登录框为 admin ...

把隐藏了的工作表删除；

或将隐藏了的工作表的名称加入 Case "登录", "权限设置", "邮寄业务表"中即可。

		自动登录	找回密码
密码			免费注册