WORD宏 文档保护/限制编辑

Tobin_Zhang

Option Explicit
Sub batchProtect()
    myPassWord = "XXX"
                   If myResult = vbYes Then                  
                    If .ProtectionType = wdNoProtection Then .Protect Type:=wdAllowOnlyComments, Password:=myPassWord
                Else                     
                    If .ProtectionType <> wdNoProtection Then .Unprotect myPassWord
                End If               
End Sub

以上WORD宏  文档保护/限制编辑 该如何修改，才能正常运行？条件如下：

如果WORD处于“限制编辑”状态，通过宏 解除“限制编辑”状态；如果WORD未处于“限制编辑”状态，通过宏 添加“限制编辑”状态。

谢谢！！！

413191246se

楼主，我也是在录制宏的基础上反复试验，我觉得成功了，不知道是否符合你的要求，你再测试测试。另外，代码中密码是“123”，你可以更改为别的密码：

1. Sub test切换文档保护()
   
2.     With ActiveDocument
   
3.         If .ProtectionType = -1 Then
   
4.             .Protect Password:="123", NoReset:=False, Type:=wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=True
   
5.         ElseIf .ProtectionType = 3 Then
   
6.             .Unprotect Password:="123"
   
7.         End If
   
8.     End With
   
9. End Sub

复制代码

Tobin_Zhang

413191246se 发表于 2019-5-11 00:23
楼主，我也是在录制宏的基础上反复试验，我觉得成功了，不知道是否符合你的要求，你再测试测试。另外，代码 ...

谢谢您的帮助，但我发现当EDTING RESTRICTIONS未选择时，好用；选择时，不好用！我的文档一般都是选择  Filling in forms，您能帮我修改一下宏么？谢谢！