WORD解除/增加密码保护 宏

Tobin_Zhang

附件WORD表格中的数据  1、2、3、7、8、9，为何当WORD通过下面的宏解除密码保护后，再通过下方的宏添加密码保护，表格中的 1、2、3、7、8、9会自动消失；但是通过以下的宏解除密码保护后，再手动添加密码保护，表格中的1、2、3、7、8、9不会消失；请问各位老师，这是为什么？下方的宏，该如何修改，添加密码后，表格中的数据才不会自动消失？



Sub PasswordRemove()
    With ActiveDocument
        If .ProtectionType = -1 Then
            .Protect Password:="123", NoReset:=False, Type:=wdAllowOnlyFormFields, UseIRM:=False, EnforceStyleLock:=True
        ElseIf .ProtectionType = 2 Then
            .Unprotect Password:="123"
        End If
    End With
End Sub

Tobin_Zhang

Word 文本窗体 使用宏 加密，文本窗体上的内容消失，该如何修改宏？