关于取消宏的问题

jidanbing · 发表于 2005-3-11 14:51

天天向上

zz5151353 · 发表于 2005-3-12 12:03

以下是引用ml666在2004-2-22 22:10:00的发言： 我看了一下不知哪位前辈的大作（下载后研究了一下，呵呵……和一楼的一样，也不知到谁是原作了，对不起），觉得这样也不错：第一段 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 文件先将重要表隐藏起来（取消隐藏工作表也不能运行），在打开文件时，如不执行宏，就打不开重要的工作表，执行宏后，这将重要的工作表显示出来，这样的方法也不错。

很好,謝謝 !!! 頂一頂

button · 发表于 2004-9-13 19:21

好啊！

ldy888 · 发表于 2006-1-4 19:39

学习

nych · 发表于 2006-9-29 13:31

学习

stx1980710 · 发表于 2006-9-29 13:57

又学了一招,多谢各位!

ldhyob · 发表于 2003-7-2 10:23

TO 蓝天SKY: 看了截图,蓝天兄弟还不明白啊?呵呵插入----名称----定义输入sheet1!auto_activate作为名称,引用输入=宏表1!$A$1 当工作表sheet1激活时,就会去执行宏表1的4.0的宏.这样才可以达到目的.

ldhyob · 发表于 2003-7-1 17:53

这其中有一很重要的技术要点就是定义名称:

如果文档隐藏了名称,可执行该段宏让其可见: Sub dddd() Dim aa As Name For Each aa In ThisWorkbook.Names aa.Visible = True Next End Sub

ldhyob · 发表于 2003-7-1 08:23

呵呵,的确是刀兄的大作,参:http://club.excelhome.net/dispbbs.asp?boardID=2&ID=16089&replyID=16706&skin=1 蓝天SKY兄弟,你上传的例子我试了没什么问题啊,当取消宏时文档将会自动关闭.

peter-chen · 发表于 2009-3-6 18:12

very good 4 study

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