移除VBA編碼保護。
子移動保護()
將文件名標註為字符串
filename = application . getopen filename(" Excel文件(*。xls & amp；*.xla)，*。xls*.xla”、“VBA破解”)
如果FileName = CStr(False ),則
出口接頭
其他
VBAPassword文件名，False
如果…就會結束
末端接頭
設置VBA編碼保護
子集保護()
將文件名標註為字符串
filename = application . getopen filename(" Excel文件(*。xls & amp；*.xla)，*。xls*.xla”、“VBA破解”)
如果FileName = CStr(False ),則
出口接頭
其他
VBAPassword文件名，True
如果…就會結束
末端接頭
私有函數VBAPassword(文件名為字符串，可選保護為Boolean = False)
如果目錄(文件名)= "，則
退出功能
其他
文件復制文件名，文件名和。".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，“提示”
退出功能
如果…就會結束
如果Protect = False，則
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，“提示”
其他
將彩信顯示為字符串* 5
MMs = "DPB= " "
放#1，短信，彩信
MsgBox "文件的特殊加密成功..."，32，“提示”
如果…就會結束
關閉#1
結束功能