如何用VBA代码判断excel打开密码的有效性

laterite

如何用VBA代码在打开指定excel文件打开密码是否有效


有甲、乙两个工作簿

乙工作簿文件的打开密码为1234，该密码已经存储在甲工作簿表1的b1单元格中，使用变量p调用该密码，我想在Workbooks.Open(乙工作簿路径及全名, Password:=p)之前就用VBA代码判断一下p，确认密码是否有效（防止p被误修改），即密码是正确则打开乙工作簿，如果错误则弹窗提示错误，终止程序进程

请教大家，我该如何写这个判断代码？

laterite

稍稍向上排一下位置，有点沉底了

山菊花

在打开之前不能判断密码是否正确，在打开过程中可以判断：

1.     On Error Resume Next
   
2.     Workbooks.Open 乙工作簿路径及全名, Password:=p
   
3.     If Err <> 0 Then
   
4.         Err.Clear
   
5.         MsgBox "文件路径或密码错误，不能打开。  ", 48, "打开"
   
6.         Exit Sub
   
7.     End If

复制代码

laterite

山菊花 发表于 2024-5-17 08:20
在打开之前不能判断密码是否正确，在打开过程中可以判断：

多谢山版的帮助，