这是我的双重加密代码,你可以稍加修改,另存的文件,必须输入密码,才可以打开,修改,另存为,
sub 另存为()
dim a as string
dim c as string
dim e as string
dim f as string
dim h as string
e = "7036097"
f = inputbox(prompt:="输入密码")
if f = "" then
h = e
else
h = f
end if
sheets("打印页").select
range("b3").select
a = range("b3")
b = "c:documents and settingsadministrator桌面"
d = b & "" & a & ".steel"
chdir b
activeworkbook.saveas filename:= _
d, fileformat:=xlnormal, _
password:=h, writerespassword:=h, readonlyrecommended:=false, _
createbackup:=false
end sub