再说“启用宏”

山菊花

教育局下发的毕业生报名表，工作簿中使用了宏代码，以前使用老刀的宏表法，提示操作人员要启用宏，现在不行了，不少人在使用Excel2007，宏表这东西在2007下蔫了。
其实，用保护工作表的办法也挺好的。
思路1：如果你启用宏，我就撤销工作表保护。
在ThisWorkbook模块中加入代码：

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. Sheet1.Range("a1:f1000").Locked = True '锁定单元格
   
3. Sheet1.Protect ("123456") '保护工作表
   
4. End Sub

复制代码

1. Private Sub Workbook_Open()
   
2. Sheet1.Unprotect ("123456") '撤销工作表保护
   
3. End Sub

复制代码

思路2：借用数据有效性控制。
如附件所示，给B列单元格设置数据有效性，条件是A1为“考号”(或使用其它条件，如G1=1、IV1=1等)。
如果打开工作簿时启用宏，用代码给A1写入“考号”。

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. Sheet1.Range("a1") = " 考号 "
   
3. End Sub

复制代码

1. Private Sub Workbook_Open()
   
2. Sheet1.Range("a1") = "考号"
   
3. End Sub

复制代码

顺着这个思路，还有不少办法可以实现不启用宏你就无法正常工作。
总有朋友关心，它的强度如何。说实话，它的强度很弱，仅仅是善意地提醒操作者，要启用宏。
请启用宏.zip (19.86 KB, 下载次数: 681)

2009-6-6 17:19 上传

点击文件名下载附件

思路3：启用与不启用宏，您说了算。
制作一份试卷订数统计表，为了汇总的方便，设计了一段宏用于修改文件名。有些学校安装的Office是简装版，不能运行宏，针对这种情况，采用两种办法处理，如果没有启用宏，当选择学校名称后，显示一个提示框，要求自行修改文件名(见附件)。
本方法适用于类似本示例特简单的情况。
2009年下期期末试卷订数表.zip (7.05 KB, 下载次数: 449)

2009-10-27 13:05 上传

点击文件名下载附件

飞云楼主

学习。。。。

mobuli

这个很实用，谢谢总版

TY1011

山版的东东一定是好的

thtfzhaobo

比较善意，呵呵

yuanzhuping

我是用工作表深度隐藏的方法，在工作簿的BeforeClose事件中将除了一张空白工作表外的所有工作表的Visible属性设置为xlSheetVeryHidden，使其深度隐藏，无法通过“格式”→“工作表”→“取消隐藏”菜单来取消隐藏。然后在工作簿的Open事件中取消工作表的深度隐藏，如果在打开时没有启用宏，则只能显示一张空白工作表，达到强制启用宏的目的。
2007的我没用过，不知是否支持。

[ 本帖最后由 yuanzhuping 于 2009-6-8 09:32 编辑 ]

killsoft

留个位置学习学习

jxb8088

好思路，学习！！

jilijun

好思路，会用到实际工作中的！！

一丨丿丶乙

学习学习！