Office中国论坛/Access中国论坛

标题: [求助]怎样用代码为XLS文件加上密码 [打印本页]

作者: chul72 时间: 2005-5-28 07:22
标题: [求助]怎样用代码为XLS文件加上密码
在VBA中怎样用代码为XLS文件加上密码.

作者: HeyEric 时间: 2005-5-28 08:18
ActiveWorkbook.Password = "helloworld"

哈哈！

作者: chul72 时间: 2005-5-28 17:40
先谢乐,但我是在ACCESS中导出数据到一个XLS中,然后再用代码加密呀.那个ActiveWorkbook在程序当前并不活呀

作者: HeyEric 时间: 2005-5-28 18:24
汗一个先；

dim myxls as object

dim myxlsfile

myxlsfile=your path here

set myxls=Getobject(myxlsfile)'先请引用Excel的Lib

myxls.Password="your pwd"

myxls.save

set myxls=nothing

[此贴子已经被作者于2005-5-28 10:24:30编辑过]

作者: chul72 时间: 2005-5-28 18:46
那这样当我打开这个带密码的文件时呢?其实我的问题是:我想在ACCESS应用中导出全部的用户表数据到一个XLS中作为备份,并为它加上密码.(感谢HeyEric已帮我解决),但还要为这个应用写个还原数据的功能呀.所以我要以XLS里的SHEET集合为循环条件,将所有的SHEET写回ACCESS的表中,再写回前我还要检查下第一行的每列的值来和ACCESS中的表结构是否相同.当然这些全部要在ACCESS的VBA中用代码实现.

作者: HeyEric 时间: 2005-5-28 18:55
我是觉得为什么一定要写到xls里呢，直接把你的用户表export到另外月个DB里，再加个密码（不过我想这样安全性并不高的说。：）），也同样可以实现你的要求的啦。

作者: chul72 时间: 2005-5-28 19:03
我怕万一出现问题还可以用EXCEL打开它,进行操作.在这个ACCESS应用前一直就是用EXCEL处理的.其实我也是不知道如何处理备份和还原的问题才想出这个笨办法的.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)