vba打开excel文件（带密码）

Dim x As IntegerFor x = 11 To 17Workbooks.Open ("d:\cjd\" & x & "文.xls")Workbooks("cjd.xlsm").Sheets(x & "").Range("b3:c34") = Workbooks(x & "文.xls").Sheets("sheet1").Range("b3:c34").Value
打开文件的密码都是ABCD. 在哪儿写？怎么办？

相关了解……