宏和工作表命名、新建

wu8313

请教几个问题。

1、如何判断宏的安全级别，并且用代码设置它为最低？

2、如何保护工作表不被重新命名？如何不允许创建一个新的工作表？

老鬼

使用Application.AutomationSecurity=3可以将EXCEL打开时的安全级别设为最低。如果要保护工作表不被重命名或新建工作表，试着把标签的右键给禁掉，或是干脆把菜单栏给禁掉：Application.CommandBars("ply").Enabled = falseApplication.CommandBars(1).Enabled = false

wu8313

写在workbook的事件里面，不行。说不支持这个属性或者方法。Option ExplicitPrivate Sub Workbook_Activate()

'Application.AutomationSecurity = 3

End SubPrivate Sub Workbook_Open()

'Application.AutomationSecurity = 3

End Sub后来，又写在Worksheet这个层次上，还是说不支持这个属性和方法。Private Sub CommandButton1_Click()

MsgBox "wu8313"

End SubPrivate Sub Worksheet_Activate()

Application.AutomationSecurity = 3

End Sub请老鬼帮忙，应该写在哪个层次上的哪个事件中。

老鬼

'Application.AutomationSecurity = 3只对编程的方法打开的文件起作用

wu8313

请看看这个帖子。不想看到宏安全窗口。我的例子在39 floorhttp://www.office-cn.net/forum.php?mod=viewthread&tid=24490

老鬼

使用VBA代码是无法避开手工打开程序的宏提示的。要想避开宏提示，有几种方法：1、将安全性设为“低”。这个方法不太安全。2、使用宏表函数。这种方法比较古老，会宏表函数的人只怕不多了。3、将宏保存为“加载宏”，在工具——加载宏中加载。这个方法比较理想，可以在所有的机子上使用，对一些模型化的程序比较适用。4、数字签名。这种方法比较通用。但使用个人的数字签名只能在创建签名的机子上起作用，到了别的机子上就不行了。

wu8313

宏提示的问题没有解决。

菜单的问题解决了。烦请看看这个例子。

[此贴子已经被作者于2005-1-27 20:12:36编辑过]

lzh1971

我也想知道 关注中 :(