vba加密電腦id如何解密

① EXCEL VBA 隱藏了工作表，加密的，如何顯示或破解

新建excel，ALT+F11插入以下代碼，按住F8執行，瀏覽到有VBA工程密碼的excel文件，確定後，再按F5就可以了。
Private Sub VBAPassword()
'你要解保護的Excel文件路徑
Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")

If Dir(Filename) = "" Then
MsgBox "沒找到相關文件,清重新設置。"
Exit Sub
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 Sub
End If

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, "提示"

Close #1
End Sub

② EXCEL VBA 如何解除工作表密碼(已知密碼)

新建一工作簿，在VBE窗口中插入一個模塊，粘貼以下代碼，即可（該代碼清除未密碼，來源於網路）

PrivateSubVBAPassword()
'你要解保護的Excel文件路徑
Filename=Application.GetOpenFilename("Excel文件（*.xls&*.xla&*.xlt）,*.xls;*.xla;*.xlt",,"VBA破解")
IfDir(Filename)=""Then
MsgBox"沒找到相關文件,清重新設置。"
ExitSub
Else
FileCopyFilename,Filename&".bak"'備份文件。
EndIf
DimGetDataAsString*5
OpenFilenameForBinaryAs#1
DimCMGsAsLong
DimDPBoAsLong
Fori=1ToLOF(1)
Get#1,i,GetData
IfGetData="CMG="""ThenCMGs=i
IfGetData="[Host"ThenDPBo=i-2:ExitFor
Next

IfCMGs=0Then
MsgBox"請先對VBA編碼設置一個保護密碼...",32,"提示"
ExitSub
EndIf

IfProtect=FalseThen
DimStAsString*2
Dims20AsString*1

'取得一個0D0A十六進制字串
Get#1,CMGs-2,St

'取得一個20十六制字串
Get#1,DPBo+16,s20

'替換加密部份機碼
Fori=CMGsToDPBoStep2
Put#1,i,St
Next

'加入不配對符號
If(DPBo-CMGs)Mod2<>0Then
Put#1,DPBo+1,s20
EndIf
MsgBox"文件解密成功......",32,"提示"
EndIf
Close#1
EndSub

③ 如何破解vba工程密碼

首先以下方案只針對 Word 文檔和 Excel 文檔的 VBA 工程密碼。

打開一個 Excel 的程序實例（無論待破解的是什麼文檔一律打開 Excel 實例），按 Alt + F11 打開 VBE，左側「工程資源管理器」右鍵新建一個模塊，復制下列代碼粘貼進去後定位至過程 VBA_Password_remove 按 F5 運行選擇要破解的包含工程密碼的文件。

OptionExplicit
PrivateSubVBA_Password_remove()
DimFilenameAsString,iAsInteger
Filename=Application.Caption
IfInStr(Filename,"Excel")>0Then
Filename=openfile()
Else
MsgBox"請在環境下運行本程序！",vbExclamation
ExitSub
EndIf
If(Filename="False")ThenExitSub
IfDir(Filename)=""Then
MsgBox"未找到指定文件"
ExitSub
Else
FileCopyFilename,Filename&".bak"
EndIf
DimGetDataAsString*5
OpenFilenameForBinaryAs#1
DimCMGsAsLong
DimDPBoAsLong
Fori=1ToLOF(1)
Get#1,i,GetData
IfGetData="CMG="""ThenCMGs=i
IfGetData="[Host"ThenDPBo=i-2:ExitFor
Next
IfCMGs=0Then
Close#1
MsgBox"VBA工程未設置密碼",vbQuestion,"提示"
ExitSub
EndIf
DimStAsString*2
Dims20AsString*1
Get#1,CMGs-2,St
Get#1,DPBo+16,s20
Fori=CMGsToDPBoStep2
Put#1,i,St
Next
If(DPBo-CMGs)Mod2<>0ThenPut#1,DPBo+1,s20
MsgBox"文件解密成功！",vbQuestion,"提示"
Close#1
EndSub
Functionopenfile()
openfile=Application.GetOpenFilename("Excel文件（*.xls&*.xla&*.xlt）,*.xls;*.xla;*.xlt,Word文件（*.doc&*.dot）,*.doc;*.dot",,"選擇破解VBA工程密碼的文件")
EndFunction

④ 如何破解Excel VBA密碼

Excel是一個專門用於整理數據的電子表格，為了保障表格的安全，用戶可以為文檔進行加密，可以設置以下類型密碼：打開密碼、編輯密碼、工作表密碼、共享賬簿密碼以及VBA密碼。VBA全稱是VisualBasicforApplications，是微軟開發出來在其桌面應用程序中執行通用的自動化(OLE)任務的編程語言。VBA是VisualBasic的一種宏語言，主要能用來擴展Windows的應用程式功能，特別是MicrosoftOffice軟體，特別是Excel表格。另外，也可說VBA是一種應用程式視覺化的Basic腳本。實際上VBA是寄生於VB應用程序的版本，可以具備VBA的宏功能。VBA密碼就是為變成語言設置訪問許可權。破解VBA密碼有兩種方法：1、使用宏代碼，這種方法比較專業，不具有普遍的適用性；2、使用專業的第三方密碼破解工具，這個可以廣泛被使用，傳播比較廣泛的是，使用軟體打開Excel文檔，程序會自動開始破解VBA密碼的操作，一旦破解成功，用戶可以更改Excel文檔的VBA密碼，重新獲取許可權。

⑤ VBA代碼部分如何加密解密

在VBA編輯器的"工具」菜單里點「VBAProject屬性"，在「保護」頁中把「查看時縮定工程」的勾選上，然後輸入密碼後確定即可。這樣下次打開查看代碼時就需要輸入密碼了。
但這種加密方式的破解，早就有專用工具了，可以在網路上查找試試。
比較好的方法是，把做好含有VBA代碼的Excel編譯成exe文件，這種工具也可以在網上找到，自己找一下吧。

⑥ 如何破解excel vba密碼

1、新建一個Excel工作簿，Alt+F11 打開VBA編輯器。新建一個模塊，復制以下代碼，注意如提示變數未定義，則把Option Explicit行刪除即可，經測試已經通過。
2、代碼如下：
'移除VBA編碼保護
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False
End If
End Sub
'設置VBA編碼保護
Sub SetProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, True
End If
End Sub
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

⑦ excel中vba加密了怎麼破解代碼

VBA Password Bypasser,這個軟體就很好用