如何防止误删除某一工作表？

foshan · 发表于 2005-7-17 15:53

根据 button 兄的代码修改后，遇到一个问题：不可以被删除的工作表必须是第一张工作表，见图示。有四个问题想请教：

1、如何才能实现不管不可以被删除的工作表处于第几张工作表，均不能被删除？

2、为何 if sht.name="禁止删除" then …… 出现错误提示？而改为 if sht(1).name="禁止删除" then …… 就没问题，难道 sht 是工作表集合？

3、如何实现多个工作表(例如三个)均不能被删除？

4、如果只要求一张工作表不能被删除，当同时选定了几个工作表，其中不能被删除的工作表也被同时选定了，在不重新选定要删除的工作表的情况下，如何实现只删除其余的工作表，而不删除该工作表？

6I5VRVW3.rar (11.09 KB, 下载次数: 152)

[此贴子已经被作者于2005-7-17 16:06:03编辑过]

foshan · 发表于 2005-7-19 17:18

以下是引用button在2005-7-17 23:11:46的发言：
改了一下，请测试。

经测试，可行。如果把代码放到加载宏中，更加好用!再次多谢 button 兄!

foshan · 发表于 2005-7-29 09:36

请教 button 兄：您在第17楼上传的文档中，消息框右上角的“叉叉”是用什么代码实现禁用的？据我所知，要禁用 msgbox 消息框右上角的“叉叉”是要用到 API 函数的，为什么您用“类模块”调出 msgbox 消息框，不用API 函数，就能禁用 msgbox 消息框右上角的“叉叉”？

foshan · 发表于 2005-7-29 10:01

完全明白了，因未曾用过有两个或三个按钮的 Msgbox 消息框，所以提出这样的问题。原来有两个或三个按钮的Msgbox 消息框，右上角的“叉叉”会自动禁用，谢谢 button 兄释法。

cxddx0 · 发表于 2005-7-29 11:31

还是版主厉害啊

hyingqun_78 · 发表于 2006-1-6 16:38

请教 button 兄，你这个东东里名为“禁止删除”的工作表在改名后依然可删除!!

这个小程序还有改进的可能吧!

foshan · 发表于 2006-1-6 17:03

button 兄提供的例子就是禁止删除工作表的名称为“禁止删除”的工作表的噢!

zz5151353 · 发表于 2006-1-22 11:32

很好, 謝謝 button 版主修改後呈上交流,剛好可以用上,謝謝了 !!!

button · 发表于 2005-7-29 09:47

是Msgbox自带的常数设置的，代码里这个常数vbYesNo是控制的开关，其它常数也会导致这个现象，原因是系统必须要求返回一个已经限定范围的回复，在此代码中必须是VbYes或VbNo，而不能关闭消息框不答，否则导致错误发生。

plxmm · 发表于 2005-7-18 10:04

还是 button 版主的东东简单！

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