启动打开自带密码工作簿

my_dream123

老师，以下这段代码，在启动时，未能打开自带密码工作簿，工作簿密码：123

Private Sub Workbook_Open()
ActiveWorkbook.Password = "123"
End Sub

my_dream123

请老师指点。

ynzsvt

不可能的，没输入密码打开不会执行代码。

my_dream123

ynzsvt 发表于 2024-8-3 16:44
不可能的，没输入密码打开不会执行代码。

请老师修改下，谢谢您。

考试加油站

刚打开时，宏都还没运行，不可能生效，

风雨声点滴

你不应该用ActiveWorkbook打开密码工作簿
你应该新建一个工作簿，使用
Sub 例1()
Workbooks.Open("填写路径+文件名+后缀", Password:=123)   '默认打开密码为123
End Sub


这样就可以打开了

风雨声点滴

如果是打开一个有密码的工作簿并取消密码可以在后面追加

Sub 例1()
Workbooks.Open("填写路径+文件名+后缀", Password:=123)   '默认打开密码为123
ActiveWorkbook.Password = "" ' 设置密码为空
ActiveWorkbook.Close SaveChanges:=True  '保存修改并保存
End Sub

这样就可以了

my_dream123

明白了，谢谢以上老师的指点。