用vba打开密码工作簿如何屏蔽对话信息

独孤逸盛

比如C盘有好多文件，密码都是1234，我想用dir遍历打开每一个文件，但是循环打开的时候，老是提示对话框，如何屏蔽
pah = "C:\Users\liushutian\Desktop\新建文件夹\考核表拆分\"
st = Dir(pah)
Workbooks.Open (pah & st), Password:="jctrans2024"

ykcbf1100

mm = "jctrans2024"    '//打开密码
Set wb = Workbooks.Open(f, , , , mm)             '//打开有密码保护的工作簿

这样试一下