※ [本文转录自 Windows 看板 #1aKm_cLE ]
作者: loser1 (基辅罗斯进军乌拉山以西) 看板: Windows
标题: [问题] OFFICE password 问题
时间: Thu May 4 09:52:36 2023
之前因为老板要求，本来我手上的 Office 文件都是明码储存，
后来被要求要加密码处理。
于是为了赶快把我手上几千份文档加密，我使用了以下的方式:
Public Sub SetDOCPassword (src_file,oldpassword,newpassword)
dim oWord
dim myDOC
set oWord = CreateObject("Word.Application")
oWord.Visible = FALSE
On Error Resume Next
set myDOC = Nothing
set myDOC =oWord.Documents.Open(src_file,FALSE,FALSE,FALSE,oldpassword)
if Not myDOC is Nothing then
oWord.DisplayAlerts = FALSE
if newpassword = "" then
myDoc.EncryptionProvider = ""
myDOC.SaveAs2 src_file,,FALSE,"",FALSE,""
else
myDOC.Password = newpassword
myDOC.Save
end if
myDOC.Close
end if
oWord.Quit
End Sub
之前一年多，不论是 .docx 或者 office 97 的 .doc 都相安无事，
使用程式加密的文件，该用 word2016 或者 word2003 开启都可以
输入密码正常作业。
但是不知道经过几个更新 之后，上个月有次重新加密的结果，
使用 word2003 开启时输入密码后会出现
https://i.imgur.com/OBU8lCh.png
然后使用 word2016 开启就相安无事。
看起来 VBSCRIPT 执行时会使用 office 2016 作为背景执行的本体。
问题:
1. 我有没有办法让 VBSCRIPT 选择使用的 office ?
2. 这是出了什么问题会让 office2016 加密的 office2003 档案在
office 2003 打不开?