取消宏则关闭工作簿（整理版）

martingm

老刀的“取消宏则关闭工作簿”确实很精彩，根据我的理解、使用重新整理了一下，供新手借鉴。

宏创建步骤：
1、首先在你的工作薄中插入4.0宏表(ctrl+f11)
2、然后把 MACRO工作表中的内容原样复制刚插入的宏表中。在thisworkbook的Workbook_NewSheet事件中插入以下代码：
功能：自动在新增的工作表中插入"Macro! auto_activate名称
Private Sub Workbook_NewSheet(ByVal Sh As Object)
ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersToR1C1:="=Macro!R2C1"
End Sub
3、在VBE中插入一个新模块，复制以下宏到新模块中，运行一下后。
Public Sub AddName()  '扫描已有的工作表，检测是否已插入"Macro! auto_activate名称，如果没有则自动增加
    For Each Sh In ActiveWorkbook.Sheets
        If Not ChkName(Sh.Name) Then
            ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersToR1C1:="=Macro!R2C1"
        End If
    Next
End Sub

Function ChkName(ByVal Sh As String) As Boolean
Dim Ck As Boolean
For Each nm In ActiveWorkbook.Names
    If InStr("Auto_Activate", UCase(nm.Name)) > 0 Then
        Ck = True
        Exit For
    End If
Next
ChkName = Ck
End Function
运行 AddName宏，保存后退出，重新打开试一下。
4、注意：在提交用户时别忘了，隐藏宏表（MACRO）。运行以下代码可以深度隐藏宏表。
Sub Hide()
ThisWorkbook.Sheets("Macro").Visible = 2 '-1为解除隐
End Sub
隐藏后将上述代码删除。

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

AVEL

竟然发现论坛的机器人也会重复发帖？
看了下时间，是一样的。。。 不是发帖时间要间隔一分钟么？

AVEL

另想说的是，如果禁用宏就关闭工作簿，这样作法可能不好。
因为万一人家以为是电脑问题，而不知道是因为没有启用宏呢。
所以最好还是建一张红白工作表，每次关闭都直接隐藏其余工作表。
等到启用宏，打开工作表时，再显示其余工作表。
如果没有启用宏，则会直接显示空白工作表。
当然 ， 你可以在空白工作表中添加提示，让使用者开启宏。

martingm

最近本人遇到了一个问题，即在2007版里这个招不管用了，请高手指导一下。

martingm

5楼的考虑是有一定道理的，值得思考。