vba宏加密

❶ coreldraw 中vba編輯的宏文件gms被加密了。怎樣解密

以下方法有80%的成功可能。

EXCEL工程密破解,以下方法十分有效的幫你打開VBA工程密碼保護的工程,教你破解VBA工程密碼,解除VBA工程密碼保護下的EXCEL文檔,破解EXCEL原來如此簡單.--------------在辦公中我們常看到許多用宏(VBA)編寫的EXCEL表格,而這些表格就如同一個資料庫,我們可以選取或查詢很多的數據,一般的這些數據是存放在一個隱藏的工作表中的,那麼要如何顯示這個隱藏的工作表呢?我們可以打開宏編輯器(ALT+F11),再安CTRL+R打開專案,這時彈出窗會有所有的這個EXCEL的工用表,這時你就可以看看那些是被隱藏的了,很多時候打開是需要密碼的,用以下方法解密後,再將解密後文件打開,依同樣方法在工作表標簽中右鍵>>檢視程式碼>>復制以下代碼>>按F8執行
Private Sub CommandButton1_Click()
Worksheets("這里為你要顯示的工作表名稱").Visible = True
End Sub

關於破解EXCEL VBA工程密碼的方法,以下代碼非常有效,首先建一新EXCEL文件,在工作表標簽處右點>>檢視程式碼>>復制以下代碼>>按F8執行 在彈出窗中選你要你破解工程密碼的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
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, "提示"
End If
Close #1
End Sub

'-----重要:如果上面代碼不能運行或出錯,請用以下代碼重試.

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 宏寫的xla文件被加密了,如何破解留郵箱我發附件

可以通過HexFrame 軟體進行密碼重置，不會的話可以私信。可以去網路查下 hexframe VBAl密碼
將PDB 改成PDx 然後保存，重新打開EXCEL進去設定一個密碼就可以打開了。

❸ 關於excel vba密碼宏的問題

Sub AUTO_OPEN()
PASS = InputBox("請輸入密碼", "密碼")
If PASS <> "123" Then
MsgBox ("密碼不正確，請重新打開系統")
if workbooks.count>1 then activeworkbook.close else application.quit
End If
End Sub

❹ excel vba 判斷給定文件夾中工作簿的宏是否被加密

很久以前寫的一個刪除自身代碼的過程，excel2003版的
Public Sub remove_mole()
On Error Resume Next
If ThisWorkbook.VBProject.Protection = 1 Then 』1表示有密碼保護
Application.VBE.CommandBars.FindControl(ID:=2578).Execute
Application.SendKeys "password" & "{Enter 2}", True
MsgBox "創建對象失敗!", , "Warning!" 『錯誤的假象，呵呵
End If
Application.DisplayAlerts = False
With ThisWorkbook.VBProject
.VBComponents.Remove .VBComponents("模塊名稱")
End With
Application.VBE.CommandBars.FindControl(ID:=3).Execute
Application.SendKeys "{Enter 2}", True
ThisWorkbook.Save
End Sub

❺ 誰有excel成品，想要用vba寫宏給每個sheet 單獨加密，每個人打開這個excel

不用加密sheet，只需隱藏即可。思路是：先進VBA環境，隱藏所有sheet；再編一段代碼，使得用戶打開excel時必須輸入用戶名、密碼，如輸入正確，再取消某個sheet的隱藏，該用戶就能看到該sheet了。
此解決方案的缺點是，把數據分布在多個sheet中，搞得四分五裂不好管理，不利於日後的查詢統計等。
更優的方案就是華創網表，相當於網路版的excel，有用戶賬號管理，有更細的許可權管理。不僅能針對sheet做授權，而且能細化到記錄、細化到欄位，比如，針對這個sheet，用戶能查看哪些欄位、哪些記錄？能修改哪些欄位、哪些記錄？這些都能控制。這樣，你就沒必要把數據弄到多個sheet里，可以整合在一起；再適當分配許可權，比如，有的用戶只能訪問部分數據，有的用戶能訪問全部數據等，根據需要設置即可。
此方案的優點是，數據集中存放在某個sheet下，日後做全局性的查詢統計非常方便。

❻ 如何給EXCEL里的宏加密碼

1、首先打開需要設置加密碼的表格，進入到EXCEL表格裡面之後，打開VBE編輯器。

❼ EXCE如何用VBA代碼加入啟動時對所有工作表加密,並設指定密碼

通過代碼對excel代碼進行加密即可：

1、打開您需要破解保護密碼的Excel文件；

2、依次點擊菜單欄上的工具---宏----錄制新宏，輸入宏名字如:aa；

3、停止錄制(這樣得到一個空宏)；

4、依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕；

5、刪除窗口中的所有字元(只有幾個),替換為下面的內容；

Sub添加密碼()
DimxAsInteger
Forx=1ToSheets.Count
Sheets(x).Protect"123"
Nextx
hisWorkbook.Protect"123"