[下载]禁用宏则退出之改进版.(感谢，老刀)

chenqihui9

我认为用个宏表不好，能不能直接用vba编一个小的宏解决呢？？？？

rsfzcs

我怎么试都不行，能否给一个完整的例子！我太笨了！

xuzong

应用是关键，我看了半天还是不懂

rsfzcs

问题已经解决！

bsad

请问各位老师：哪里有4.0宏表的插入方法和用法？找了半天都没有找到。

cpali3023

TO：初学此文者

刚接触楼主的文件你们可能会对以下问题产生疑问：

1、宏表如何插入：

ctrl+f11

2、宏表如何隐藏：

运行以下代码为深度隐藏

Sub Hide() ThisWorkbook.Sheets("Macro").Visible = 2 '-1为解除隐藏 End Sub

隐藏后将上述代码删除。

3、如何复制上述宏表在其他工作表中使用

A、在新表中建立一个宏表

B、将楼主宏表中的内容复制到新宏表中

C、在VBE中插入一个新模块，将楼主的

Public Sub AddName() '在工作表中插入"Macro! auto_activate名称

dim sh For Each Sh In ActiveWorkbook.Sheets If Not ChkName(Sh.Name) Then ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersToR1C1:= _ "=Macro!R1C1" End If Next End Sub

Function ChkName(ByVal Sh As String) As Boolean Dim Ck As Boolean,nm For Each nm In ActiveWorkbook.Names If InStr(UCase(nm.Name), UCase(Sh)) > 0 Then Ck = True Exit For End If Next ChkName = Ck End Function

复制到新模块中，运行一下后，删除代码! 保存后退出，重新打开试一下。:)

[此贴子已经被作者于2005-6-6 15:34:14编辑过]

foshan

TO cpali3023 兄：您关于 如何复制上述宏表在其他工作表中使用 的操作方法，我在 office 2003 + win-xp 中，直接将楼主的工作表“Macro”复制(右键单击工作表“Macro”---移动或复制工作表--)到自己的工作薄上保存即可!

cpali3023

使用此方法所达到的目的无非是通过迫使启用宏来达到VBA程序中要达到的意图，如对文件版权的判断，但VBA保护是很脆弱的，版权保护实际上很难实现。

cpali3023

你可将宏表隐藏保存后试一下，看能不能达到效果!

[此贴子已经被作者于2005-6-6 15:57:23编辑过]

foshan

以下是引用cpali3023在2005-6-6 15:46:00的发言：

你可将宏表隐藏保存后试一下，看能不能达到效果!

同样可以达到效果!