已解决-实现自动打开带密码的Excel 文件

Scarlett_88 · 发表于 2008-7-13 16:50

本帖最后由爱疯于 2013-10-31 08:47 编辑 哈哈，搞定。已解决实现自动打开带密码的Excel 文件。
38 楼有文件操作的文本。
[hide]
Sub openfile() On Error GoTo 100     Workbooks.Open Filename:=ThisWorkbook.Path & "\111.xls", Password:="123" 100: End Sub
 
 [/hide ] 
<DIV align=right>[此贴子已经被作者于2008-7-22 13:56:29编辑过]</DIV>

wayy · 发表于 2008-7-13 18:10

将用户名与密码去掉不就可以了？

Scarlett_88 · 发表于 2008-7-14 00:33

先谢谢你。但我想保留密码方式，因为我想将不同人员做的数据放在同一个服务器上不同文件夹中。文件并不想共享给不相关的人员。

Scarlett_88 · 发表于 2008-7-17 21:07

没有人参与吗？

Scarlett_88 · 发表于 2008-7-17 22:27

我将附件发上来。谁能帮忙解决这个问题？

rivate Sub CommandButton1_Click() On Error GoTo 100     Dim exwbook As Object     Set exwbook = Workbooks.Open(Filename:=ThisWorkbook.Path & "\111.xls", Password:="123")     exwbook.Unprotect Password:="123" 100: End Sub

aurealhuang · 发表于 2008-7-18 09:56

里面是方法么

simengzhi · 发表于 2008-7-18 10:11

kan

wangyl000 · 发表于 2008-7-18 10:14

打开看一看

czhczh0053 · 发表于 2008-7-18 11:19

看一下

zsw · 发表于 2008-7-18 11:25

学习

		自动登录	找回密码
密码			注册

[待分类] 已解决-实现自动打开带密码的Excel 文件

本帖子中包含更多资源

本帖子中包含更多资源