求教：如何用VBA实现文档保护功能？多谢！

beijingwks

即用VBA代码实现菜单中【打开权限密码】和【修改权限密码】的设定和取消？多谢！

守柔

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-3-18 5:49:08 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub ExampleToDocumnetProtectOne() With ActiveDocument '如果文档未设置打开文档密码和未设写权限密码则进行设置 If .HasPassword = False And .WriteReserved = False Then .Password = "Test" .WritePassword = "123" .Save End If End With End Sub '---------------------- Sub ExampleToDocumnetProtectTwo() '利用另存为,进行设置打开和写权限密码 ActiveDocument.SaveAs FileName:="TestForPassword", Password:="Test", WritePassword:="123" End Sub '---------------------- Sub CanCelPassword() With ActiveDocument If .HasPassword And .WriteReserved Then .Password = "" '取消密码 .WritePassword = "" '取消密码 .Save End If End With End Sub '----------------------

beijingwks

多谢！