如何用VBA检查excel文件的未保护密码是否正确？

Question

我正在尝试用VBA锁解锁excel文件。我用默认密码将文件锁定在代码中，并将此密码给其他文件中的用户。总是相同的密码，所以没有必要输入它由用户，我给他的文件锁定在一开始。

Sub Unlock (Pass as String)

    for i=1 to Sheets.Count
        Sheets(i).Unprotect Password:=Pass
    next i

end Sub

Sub Unlock (Pass as String)

    'if password is good
        for i=1 to Sheets.Count
            Sheets(i).Unprotect Password:=Pass
        next i
    'else
        msgbox "Try again!"
    'end if

end Sub

但我没有任何办法知道“密码是否好”。

谢谢你的帮助，抱歉我的英语！

Answer 1

一种方法是输入给你的任何密码，并根据你的需要适当地处理异常。这里有一个像样的链接：

http://www.cpearson.com/excel/errorhandling.htm