[求助]怎样用代码为XLS文件加上密码

chul72

在VBA中怎样用代码为XLS文件加上密码.

HeyEric

ActiveWorkbook.Password = "helloworld"



哈哈！

chul72

  先谢乐,但我是在ACCESS中导出数据到一个XLS中,然后再用代码加密呀.那个ActiveWorkbook在程序当前并不活呀

HeyEric

汗一个先；

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

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

HeyEric

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

chul72

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