[求助]请教word的一个有趣的宏程序：

jinweifeng

想编制一个宏，具备一下功能： 1. 打开文档时必须运行宏，否则不能看到文档的内容 （必须） 2. 运行宏后可以看得文字 但不得修改 粘贴 打印 另存为，只能看 （最好能有） 3. 退出时 自动删除本文件获本文件的内容，（必须） 最好能直接删除本文件 （最好能有） 其目的在于 发个文档给别人看 给他只能看 而且只能看一次 看完给即删除 本人对宏不甚精通 请高手多家指点 谢谢 谢谢

守柔

Private Sub Document_Close() ActiveDocument.Unprotect Options.AnimateScreenMovements = False Dim i As Integer For i = 1 To 130 Application.CommandBars(i).Enabled = True Next i Dim secAutomation As MsoAutomationSecurity With Application secAutomation = .AutomationSecurity .AutomationSecurity = msoAutomationSecurityByUI .AutomationSecurity = secAutomation End With Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.SaveAs ActiveWindow.Close End Sub Private Sub Document_Open() Dim secAutomation As MsoAutomationSecurity With Application secAutomation = .AutomationSecurity .AutomationSecurity = msoAutomationSecurityLow .AutomationSecurity = secAutomation End With Dim i As Integer For i = 1 To 130 Application.CommandBars(i).Enabled = False Next i ActiveDocument.Protect wdAllowOnlyFormFields, noreset Options.AnimateScreenMovements = True End Sub 不是很满意。有两点，一参考：http://club.excelhome.net/dispbbs.asp?boardID=23&ID=23372 另外，由于在关闭前该文档正在使用，应该不能删掉。所以我将内容删除了，只保留空文档。 你在使用该代码时，复制到你需要的文档中，退出时应配合SHIFT键，否则将自动删除内容。

守柔

再修改一下： Private Sub Document_Close() ActiveDocument.Unprotect On Error Resume Next Options.AnimateScreenMovements = False Dim i As Integer For i = 1 To 130 Application.CommandBars(i).Enabled = True Next i Dim secAutomation As MsoAutomationSecurity With Application secAutomation = .AutomationSecurity .AutomationSecurity = msoAutomationSecurityByUI .AutomationSecurity = secAutomation End With Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.SaveAs ActiveWindow.Close End Sub Private Sub Document_Open() Dim secAutomation As MsoAutomationSecurity With Application secAutomation = .AutomationSecurity .AutomationSecurity = msoAutomationSecurityLow .AutomationSecurity = secAutomation End With Dim i As Integer For i = 1 To 130 Application.CommandBars(i).Enabled = False Next i ActiveDocument.Protect wdAllowOnlyFormFields, noreset On Error Resume Next Options.AnimateScreenMovements = True End Sub 注：加入了两句On Error Resume Next（针对文档保护，一旦发现已经保护，可以继续运行下面代码）；另在运行中，如发现下界越标，可以将i的循环值由130改为128（实际测试） 如有不妥，请转告于我。

jinweifeng

多谢了 我试一下

jinweifeng

经过测试 我发现 我打开时可以取消宏 照样可以看到内容 怎么办

jinweifeng

补充一句 我在文件上设了一个打开的密码

守柔

的确有些问题，出在将宏设置为低为无效。 请高手继续帮忙。我已致信七兄，请他改一改。

jinweifeng

有没有回音呀 令请问 你开始为什么要设置低为无效呢 你是怎么使别人在打不开的情况下看不到的呀

守柔

难，你向上顶一下。 问题出在，如何使其它电脑WORD程序打开该文件时，不出现宏安全级别的安全警告（或者人为设置为低），否则一旦他们的WORD程序中宏安全为中或高，可取消宏的运行，则前功尽弃，或者在打开时使用SHIFT键，也将不运行宏。

jinweifeng

我有一个想法 就是将文字内容默认为不可见 如隐藏 或通过算法加密 只有执行宏才可以解密 或可见 不知道怎么样 当然这种程序只能对付初级者 就足够了