网上下载个Office密码破解软件。
如果没有密码的话估计前景不是太好! 可以使用Office pasSWord remover试一下
用下列宏试试
PRivate function vbapasSWord(filename as string, optional Protect as boolean = false)
if dir(filename) = "" then
exit function
else
filecopy filename, filename & ".bak"
end if
dim getdata as string * 5
open filename For binary as #1
dim cmgs as long
dim dpbo as long
For i = 1 to lof(1)
get #1, i, getdata
if getdata = "cmg=""" then cmgs = i
if getdata = "[host" then dpbo = i - 2: exit For
next
if cmgs = 0 then
msgbox "请先对vba编码设置一个保护密码...", 32, "提示"
exit function
end if
if Protect = false then
dim st as string * 2
dim s20 as string * 1
'取得一个0d0a十六进制字串
get #1, cmgs - 2, st
'取得一个20十六制字串
get #1, dpbo + 16, s20
'替换加密部份机码
For i = cmgs to dpbo step 2
put #1, i, st
next
'加入不配对符号
if (dpbo - cmgs) mod 2 <> 0 then
put #1, dpbo + 1, s20
end if
msgbox "文件解密成功......", 32, "提示"
else
dim mms as string * 5
mms = "dpb="""
put #1, cmgs, mms
msgbox "对文件特殊加密成功......", 32, "提示"
end if
close #1
end function