wordVBA加密解密
如何办理基金定投使⽤VBA对WORD⽂档进⾏加解密，使⽤Protect⽅法和unprotect⽅法。
⼀、Protect ⽅法
注意 如果在使⽤本⽅法之前⽂档已经加以保护，则会导致出错。
expression.Protect(Type, NoReset, Password)
expression 必需。该表达式返回“应⽤于”列表中的⼀个对象。
Type 必需，特定⽂档的保护类型。WdProtectionType。
WdProtectionType 可以是下列 WdProtectionType 常量之⼀：
wdAllowOnlyComments
wdAllowOnlyFormFields
wdAllowOnlyRevisions
wdNoProtection
NoReset Variant 类型，可选。如果本参数为 False，则将窗体域重新设置为默认值。如果本参数为 True，⽽指定⽂档⼜是处于保护状态，则保留窗体域原来的值。如果 Type 不是 wdAllowOnlyFormFields，则忽略 NoReset 参数。
Password Variant 类型，可选。特定的⽂档要求密码来“解除保护”。
⽰例
本⽰例保护活动⽂档的窗体，不重新设置窗体域中的内容。
If ActiveDocument.ProtectionType = wdNoProtection Then
怎么回删除的聊天记录ActiveDocument.Protect _
央视女主播李小萌Type:=wdAllowOnlyFormFields, NoReset:=True
End If
本⽰例保护 Monthly Report.doc，以⾄只能向该⽂档添加备注。“free”是解除⽂档保护所⽤的⼝令。
Set myDoc = Documents("Monthly Report.doc")
myDoc.Protect Type:=wdAllowOnlyComments, Password:="free"
⼆、UnProtect ⽅法
朴信惠绯闻清除对指定⽂档的保护。如果对⽂档没有加以保护，则此⽅法会导致出错。
expression.UnProtect(Password)
expression 必需。该表达式返回⼀个 Document 对象。
Password Variant 类型，可选。⽤于保护⽂档的⼝令字符串。⼝令区分⼤⼩写。如果⽤户在使⽤⼀篇设置有⼝令的⽂档时没有提供正确的⼝令，就会显⽰⼀个对话框，提⽰⽤户输⼊⼝令。
⽰例
赌王的子女介绍本⽰例解除对活动⽂档的保护，并以“Blue”为密码。如果⽂档有密码，则显⽰⼀个对话框提醒⽤户输⼊密码。
If ActiveDocument.ProtectionType <> wdNoProtection Thenqq孤独签名
ActiveDocument.Unprotect Password:="Blue"
End If
本⽰例解除对活动⽂档的保护。然后插⼊⽂本并对⽂档进⾏修订保护。
Set aDoc = ActiveDocument
If aDoc.ProtectionType <> wdNoProtection Then
aDoc.Unprotect
Selection.InsertBefore "department six"
aDoc.Protect Type:=wdAllowOnlyRevisions, Password:="Blue" End If
发布评论