如果要檢視別人的有密碼保護的VBA程式碼，可使用此程式。使用方法：新建Excel工作簿, 開啟VBA編輯器,新建一模組 ,複製以下程式碼。然後執行MoveProtect程式。執行過程中會出現提示，以指示要破解的檔案路徑和名稱。被破解的檔案一定是關閉狀態的。Sub MoveProtect()Dim FileName As StringFileName = Application.GetOpenFilename_("Excel檔案（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")If FileName = CStr(False) ThenExit SubElseVBAPassword FileName, False " 引用下面的自定義函式End IfEnd Sub Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)If Dir(FileName) = "" ThenExit FunctionElseFileCopy FileName, FileName & ".bak"End IfDim GetData As String * 5Open FileName For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1, i, GetDataIf GetData = "CMG=""" Then CMGs = iIf GetData = "[Host" Then DPBo = i - 2: Exit ForNext If CMGs = 0 ThenMsgBox "請先對VBA編碼設定一個保護密碼...", 32, "提示"Exit FunctionEnd If If Protect = False ThenDim St As String * 2Dim s20 As String * 1 "取得一個0D0A十六進位制字串Get #1, CMGs - 2, St "取得一個20十六制字串Get #1, DPBo + 16, s20 "替換加密部份機碼For i = CMGs To DPBo Step 2Put #1, i, StNext "加入不配對符號If (DPBo - CMGs) Mod 2 0 ThenPut #1, DPBo + 1, s20End IfMsgBox "檔案解密成功......", 32, "提示"ElseDim MMs As String * 5MMs = "DPB="""Put #1, CMGs, MMsMsgBox "對檔案特殊加密成功......", 32, "提示"End IfClose #1End Function 所謂破解只是清除VBA密碼，並不是真正的破解。