标题:怎么打开有密码的 Execl 文件
只看楼主
zfjyyzycl
Rank: 2
等 级:论坛游民
帖 子:239
专家分:10
注 册:2006-4-15
结帖率:28.57%
 问题点数:0 回复次数:7 
怎么打开有密码的 Execl 文件
用Vb怎么打开有密码的Execl文件,
这个文件有打开密码,有工作簿保护

问题是这样来的,做了一个系统,单位有不少的下级单位,上级单位可以定期给每个下级单位生成一些帐务信息,每个是一个文件,本来一个一个单位发邮件,就不存在这个问题了,可是上级单位的同志比较懒,非要来个群发,这样就要避免其它单位看到不是自己单位的信息了,于是就作了个模版文件,程序将各下级单位的信息写到模版文件,生成每个下级单位的信息保存,模版文件是带密码的,这样就可以防止其它单位看到了,而且,为了防止篡改信息,还有求要有 工作表保护。

写到 Execl文件我会,但是打开带密码的Execl就不会了!
各位老大,给个打开带密码Execl文件到源码,如果有打开 被保护了工作表的源码更好,不胜感激
搜索更多相关主题的帖子: Execl 密码 文件 
2007-01-22 16:03
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
得分:0 
对象.Workbooks.Open("d:\chb.xls",3,false,1,"123456")'这个123456就是密码

[此贴子已经被作者于2007-1-22 16:13:19编辑过]



2007-01-22 16:10
zfjyyzycl
Rank: 2
等 级:论坛游民
帖 子:239
专家分:10
注 册:2006-4-15
得分:0 

请问后面的参数 3 还有 false 还有1 是什么意思
能打开 被保护了的工作表吗

2007-01-22 16:47
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
得分:0 

应用于 Workbooks 对象的 Open 方法。

打开一个工作簿。

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad, OpenConflictDocument)

expression 必选。该表达式返回一个 Workbooks 对象。

FileName String 类型,必需。要打开的工作簿的文件名。

UpdateLinks Variant 类型,可选。指定文件中链接的更新方式。如果省略本参数,则提示用户选择链接的更新方式。否则,该参数的取值应为下表中的某个值。

值 含义
0 不更新任何引用。
1 更新外部引用,但不更新远程引用。
2 更新远程引用,但不更新外部引用。
3 同时更新远程引用和外部引用。

如果 Microsoft Excel 正在打开以 WKS、WK1 或 WK3 格式存储的文件并且 UpdateLinks 参数为 2,则 Microsoft Excel 根据与该文件关联的图形创建图表。如果该参数为 0,则不创建任何图表。

ReadOnly Variant 类型,可选。如果该值为 True,则以只读模式打开工作簿。

Format Variant 类型,可选。如果 Microsoft Excel 正在打开一个文本文件,则该参数用于指定分隔字符,如下表所示。如果省略本参数,则使用当前的分隔符。

值 分隔符
1 制表符
2 逗号
3 空格
4 分号
5 没有分隔符
6 自定义字符(请参阅 Delimiter 参数)

Password Variant 类型,可选。该字符串指定打开一个受保护工作簿的密码。如果省略该参数并且指定工作簿已设置密码,则提示用户输入密码。

WriteResPassword Variant 类型,可选。该字符串为一个写保护工作簿的写入权密码。如果省略该参数并且指定工作簿已设置密码,则提示用户输入密码。

IgnoreReadOnlyRecommended Variant 类型,可选。如果该值为 True,则设置 Microsoft Excel 不显示建议只读消息(如果该工作簿以“建议只读”选项保存)。

Origin Variant 类型,可选。如果该文件为文本文件,则该参数用于指示该文件来源于何种操作系统(以便正确映射代码页和回车/换行 (CR/LF))。可为以下 XlPlatform 常量之一:xlMacintosh、xlWindows 或 xlMSDOS。如果省略本参数,则使用当前操作系统。

Delimiter Variant 类型,可选。如果该文件为文本文件并且 Format 参数为 6,则此参数用于指定用作分隔符的字符。例如,可使用 Chr(9) 代表制表符,使用“,”代表逗号,使用“;”代表分号或者使用自定义字符。如果该参数为字符串,则只使用该字符串的第一个字符。

Editable Variant 类型,可选。如果该文件为 Microsoft Excel 4.0 加载宏,则该参数的值为 True 时可打开该加载宏以便在窗口中看到。如果该参数的值为 False 或者省略该参数,则该加载宏以隐藏方式打开,并且无法设为可见。本选项不能应用于由 Microsoft Excel 5.0 或更高版本的 Microsoft Excel 创建的加载宏。如果该文件是 Excel 模板,则参数的值为 True 时,会打开指定模板用于编辑。参数为 False 时,可根据指定模板打开新的工作簿。默认值为 False。

Notify Variant 类型,可选。当该文件不能以可读写模式打开时,如果该参数的值为 True,则可将该文件添加到文件通知列表。Microsoft Excel 将以只读模式打开该文件并轮询文件通知列表,当文件通知列表中的该文件可用时通知用户。如果该参数的值为 False 或省略该参数,则不请求任何通知,并且不能打开任何不可用的文件。

Converter Variant 类型,可选。打开文件时试用的第一个文件转换器的索引号。首先使用的是指定的文件转换器:如果该转换器不能识别此文件,则试用所有的转换器。转换器索引号由 FileConverters 属性返回的转换器行号组成。

AddToMru Variant 类型,可选。如果该值为 True,则将该工作簿添加到最近使用的文件列表中。默认值为 False。

Local Variant 类型,可选。如果该值为 True,则以 Microsoft Excel (包括控制面版设置)的语言保存文件。如果该值为 False(默认值),则以 Visual Basic for Applications (VBA) 的语言保存文件,其中 Visual Basic for Applications (VBA) 为典型安装的美国英语版本,除非 VBA 项目的 Workbooks.Open 来自旧的国际化的 XL5/95 VBA 项目。

CorruptLoad Variant 类型,可选。可为以下常量之一:xlNormalLoad、xlRepairFile 和 xlExtractData。如果未指定任何值,则默认值通常为普通状态,但如果 Excel 已尝试打开该文件,则可以是安全加载或数据恢复状态。首选值为普通状态。如果 Excel 在打开文件时停止操作,则为安全加载状态。如果 Excel 再次停止操作,则为数据恢复状态。

OpenConflictDocument Variant 类型,可选。如果该值为 True,则可以打开本地的冲突文档。默认值为 False。


2007-01-22 16:50
zfjyyzycl
Rank: 2
等 级:论坛游民
帖 子:239
专家分:10
注 册:2006-4-15
得分:0 
还有就是,这个是打开权限,那么带编辑权限的怎么办
2007-01-22 16:52
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
得分:0 
自己看这个说明吧

2007-01-22 16:53
zfjyyzycl
Rank: 2
等 级:论坛游民
帖 子:239
专家分:10
注 册:2006-4-15
得分:0 
谢谢,知道了,打开和编辑的可以了,参数里面没有关于工作表的保护的参数,看来不能从Vb里面通过这个对象,来处理被保护了的工作表
2007-01-22 17:13
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
得分:0 
好象是可以的,但我没试过。
可以分别对某一格子进行保护。程序以前看到过,只是不记得了。
你自己再看看吧/
帮不了你了

2007-01-22 17:24



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-117501-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.171534 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved