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"