[问题求助] VBS为XLS工作表加密保护后不能手动取消?

ww0000

运行VBS为XLS工作表加了保护密码后,不能手动取消保护工作表?不知道为什么?

ww0000

没人解决呀?

ww0000

回复 3# yu2n


    谢谢老师，问题解决，再请教一下，这个脚本如何用于WORD文档？

ww0000

回复 5# yu2n

老师，这个太复杂了，简单一点，我通过其他代码改过来，批量加打开密码，到了Set wk=EAPP.Documents.Open(FSOFile)这一步通不过，请指正！
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Dim objShell,objFolder,FolderPath,PW,wk,EAPP,FSO,FSOFolder,FSOFile
'获取Excel文件所在文件夹路径
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Select a folder:", OPTIONS,"")
If objFolder Is Nothing Then
        Wscript.Quit
End If
FolderPath =objFolder.Self.Path
PW=Inputbox("请输入密码","批量添加密码")
if len(pw)=0 then Wscript.Quit
Set EAPP=CreateObject("Word.Application")
Set FSO=CreateObject("Scripting.FileSystemObject")
Set FSOFolder=FSO.GetFolder(FolderPath)
For Each FSOFile in FSOFolder.Files
If instr(Fsofile.Name,".doc") then
    Set wk=EAPP.Documents.Open(FSOFile)
wk.PassWord=PW
wk.Close True
End If
EAPP.Quit
Next

ww0000

回复 7# yu2n


    谢谢老师，可以了，但不知道为什么，在给EXCEL为密时，wk=EAPP.Workbooks.Open(FSOFile)不用加“.Path”，也不用  EAPP.Quit 和 Next 换位置，都可以成功。为什么在操作WORD时要这样？

ww0000

回复 8# apang


        谢谢老师，可以了，但不知道为什么，在给EXCEL为密时，wk=EAPP.Workbooks.Open(FSOFile)不用加“.Path”，也不用  EAPP.Quit 和 Next 换位置，都可以成功。为什么在操作WORD时要这样？