Vba密碼字典

首先，創建壹個新的EXCEL文件，右鍵單擊工作表標簽，選擇查看代碼，復制以下代碼，按F8執行。在彈出窗口中，選擇要破解工程密碼的EXCEL文件，按F5執行:

私有Sub VBAPassword()

您想知道受保護的Excel文件路徑。

filename = application . getopen filename(" Excel文件(*。xls & amp；*.xla & amp*.xlt)，*。xls*.xla*.xlt”、“VBA破解”)

如果目錄(文件名)= "，則

MsgBox "沒有找到相關文件，請重置。"

出口接頭

其他

文件復制文件名，文件名和。".bak " '備份文件。

如果…就會結束

Dim GetData As String * 5

將二進制文件的文件名打開為#1

變暗圖像為長

Dim DPBo As Long

對於i = 1到LOF(1)

Get #1，I，GetData

如果GetData = "CMG= " "那麽CMGs = i

如果GetData = "[Host "那麽DPBo = i - 2: Exit For

然後

如果CMGs = 0，則

MsgBox "請先為VBA編碼設置保護密碼..."，32，“提示”

出口接頭

如果…就會結束

Dim St As String * 2

將s20顯示為字符串* 1

獲取0D0A十六進制字符串。

獲取#1，CMGs - 2，St

獲取壹個20的十六進制字符串。

獲取#1，DPBo + 16，s20

替換密鑰的加密部分

對於i = CMGs到DPBo步驟2

把#1，I，St

然後

添加不成對的符號

if(DPBo-CMGs)Mod 2 & lt；& gt那麽0

放#1，DPBo + 1，s20

如果…就會結束

MsgBox "文件解密成功..."，32，“提示”

關閉#1

末端接頭