vba撤消 工作簿 打开密码

stickx

我有两个excel表。
第1个excel设置了打开工作簿的密码，比如是“123"。
第2个excel表里写了vba，去打开第1个excel，请问怎么在vba里写“撤消工作簿”的代码；
我是这样写的，但是还是不能自动输入密码，打开工作簿，而是打开工作簿后，仍然需要手动输入密码，才打开工作簿

1. Private Sub CommandButton1_Click()
   
2. Workbooks.Open "C:\Users\stickx\Desktop\新建文件夹\工作簿1.xlsx"
   
3. Workbooks("工作簿1.xlsx").Unprotect ("123")
   
4. End Sub
   

复制代码

（注意，这个密码不能删除，只是临时撤消，相当于自动输入该密码）
哈哈,答案找到了:

1. Workbooks.Open "C:\Users\stickx\Desktop\新建文件夹\工作簿1.xlsx", Password:="123", writerespassword:="123"
   

复制代码

[ 本帖最后由 stickx 于 2011-4-9 22:18 编辑 ]

stickx

第二个问题：
还是同一楼，两个工作簿，这次是第一个工作簿，设置了修改权限密码“123”，没有设置打开权限密码，请问，怎么写代码，让他自动输入修改权限密码，并打开工作簿1？

安全为主

这样行不行
Workbooks("工作簿1.xlsx").Unprotect password:="123"

lb_bn

看unprotect的帮助。

stickx

呵呵,我自己发现了,我要的就是这种结果:
Workbooks.Open "C:\Users\stickx\Desktop\新建文件夹\工作簿1.xlsx", Password:="123", writerespassword:="123"

还是谢谢各位

csxinmingcs

学习喽{:soso_e113:}

dwchung

楼主的这个问题涉及到的密码有三个，它们是工作簿保护密码、文件打开权限密码和修改权限密码，它们各有各的用途。

dwchung

Password和WriteResPassword也分别代表了不同的密码。它们可以设置成各不相同。这两个参数是有要求的，如果文件中设置了密码，那这里参数中给出的密码就一定要一致，否则会出错。如果没有设置，则参数里无论填写什么都不影响。