关于取消宏的问题

老刀 · 发表于 2003-7-26 22:16

恐怕不行！如取消宏,系统就把所有的vba隔绝了,所以vba代码起不到丝毫的作用。 application的visible可以达到第4点的效果。

hxhgxy · 发表于 2003-7-26 22:22

老刀兄，使用宏表，取消宏后弹出警示“。。。有一种无法禁止的宏。。。”是因为EXCEL不能禁止宏4.0，对吧？可能不让这个警示出来吗？

老刀 · 发表于 2003-7-26 23:01

据我的想法，在这之后自己的东西才会起作用，以前全部由系统控制，插不上脚的. 其实根本就不用这么麻烦，把东西做成加载宏，一般情况下，目标都能达到。

beiwind · 发表于 2003-8-1 22:28

稀里糊涂 · 发表于 2004-1-5 10:37

谢谢！来EXCELHOME，天天向上。

ml666 · 发表于 2004-2-22 22:05

我的电脑怎么找不到宏4.0丫？宏表1的查看代码怎么不行？

ml666 · 发表于 2004-2-22 22:10

以下是引用老刀在2003-7-26 22:16:00的发言：
恐怕不行！如取消宏,系统就把所有的vba隔绝了,所以vba代码起不到丝毫的作用。 application的visible可以达到第4点的效果。

我看了一下不知哪位前辈的大作（下载后研究了一下，呵呵……和一楼的一样，也不知到谁是原作了，对不起），觉得这样也不错：第一段 Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet
Sheet1.Visible = True
For Each sh In Me.Worksheets
If UCase(sh.Name) <> "SHEET1" Then sh.Visible = xlSheetVeryHidden
Next sh
Me.Save
End Sub 第二段
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Me.Worksheets
If UCase(sh.Name) <> "SHEET1" Then sh.Visible = xlSheetHidden
Next sh
Sheet1.Visible = True
End Sub 文件先将重要表隐藏起来（取消隐藏工作表也不能运行），在打开文件时，如不执行宏，就打不开重要的工作表，执行宏后，这将重要的工作表显示出来，这样的方法也不错。

w1z · 发表于 2004-10-28 16:00

不太明白

fcy · 发表于 2004-12-25 15:31

学有所获

FENGJUN · 发表于 2005-3-11 14:34

顶！

[此贴子已经被作者于2005-3-11 14:41:36编辑过]

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