這是我的雙重加密代碼,你可以稍加修改,另存的文件,必須輸入密碼,才可以打開,修改,另存為,
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