如何破解EXCEL VBA密码
关于破解EXCEL VBA工程密码的方法,以下代码非常有效,首先建一新EXCEL文件,在工作表标签处右点>>查看代码>>复制以下代码>>按F8执行在弹出窗中选你要你破解工程密码的EXCEL文件 >>再按F5执行即可. Private Sub VBAPassword()'你要解保护的Excel文件路径Filename =Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")If Dir(Filename) = "" ThenMsgBox "没找到相关文件,清重新设置。
"Exit SubElseFileCopy 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 ForNextIf CMGs = 0 ThenMsgBox "请先对VBA编码设置一个保护密码。
", 32,"提示"Exit SubEnd IfIf 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, "提示"End IfClose #1End Su如果上面代码不能运行或出错,请用以下代码重试.Private Sub VBAPassword()'你要解保护的Excel文件路径Filename =Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")If Dir(Filename) = "" ThenMsgBox "没找到相关文件,清重新设置。"Exit SubElseFileCopy 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 ForNextIf CMGs = 0 ThenMsgBox "请先对VBA编码设置一个保护密码。", 32,"提示"Exit SubEnd If Dim 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, "提示"Close #1End Sub。
如何破解EXCEL VBA密码
1打开需要破解的文件,并点开需要输入密码的界面,如图2使用EXCEL.EXE重新打开一个工作簿。
3打开新工作簿的VBA代码区域,并插入一个模块。4插入如下代码 Sub test() Dim st, nd, th3, th4, th5, th6, th7, th8 AsVariant Dim ii, jj, kk, ll, mm, nn, oo, pp, qq AsInteger Dim PADN, PD, IJ, JK, PADNO, speed speed = 0.005 st =Array("0", "1", "2", "3","4", "5", "6", "7", "8","9", "a", "b", "c", "d","e", "f", "g", "h", "i","j", "k", "l", "m", "n","o", "p", "q", "r", "s","t", "u", "v", "w", "x","y", "z", "A", "B", "C","D", "E", "F", "G", "H","I", "J", "K", "L", "M","N", "O", "P", "Q", "R","S", "T", "U", "V", "W","X", "Y", "Z") nd =Array("0", "1", "2", "3","4", "5", "6", "7", "8","9", "a", "b", "c", "d","e", "f", "g", "h", "i","j", "k", "l", "m", "n","o", "p", "q", "r", "s","t", "u", "v", "w", "x","y", "z", "A", "B", "C","D", "E", "F", "G", "H","I", "J", "K", "L", "M","N", "O", "P", "Q", "R","S", "T", "U", "V", "W","X", "Y", "Z") th3= Array("0", "1", "2", "3","4", "5", "6", "7", "8","9", "a", "b", "c", "d","e", "f", "g", "h", "i","j", "k", "l", "m", "n","o", "p", "q", "r", "s","t", "u", "v", "w", "x","y", "z", "A", "B", "C","D", "E", "F", "G", "H","I", "J", "K", "L", "M","N", "O", "P", "Q", "R","S", "T", "U", "V", "W","X", "Y", "Z") th4= Array("0", "1", "2", "3","4", "5", "6", "7", "8","9", "a", "b", "c", "d","e", "f", "g", "h", "i","j", "k", "l", "m", "n","o", "p", "q", "r", "s","t", "u", "v", "w", "x","y", "z", "A", "B", "C","D", "E", "F", "G", "H","I", "J", "K", "L", "M","N", "O", "P", "Q", "R","S", "T", "U", "V", "W","X", "Y", "Z") th5= Array("0", "1", "2", "3","4", "5", "6", "7", "8","9", "a", "b", "c", "d","e", "f", "g", "h", "i","j", "k", "l", "m", "n","o", "p", "q", "r", "s","t", "u", "v", "w", "x","y", "z", "A", "B", "C","D", "E", "F", "G", "H","I", "J", "K", "L", "M","N", "O", "P", "Q", "R","S", "T", "U", "V", "W","X", "Y", "Z") th6= Array("0", "1", "2", "3","4", "5", "6", "7", "8","9", "a", "b", "c", "d","e", "f", "g", "h", "i","j", "k", "l", "m", "n","o", "p", "q", "r", "s","t", "u", "v", "w", "x","y", "z", "A", "B", "C","D", "E", "F", "G", "H","I", "J", "K", "L", "M","N", "O", "P", "Q", "R","S", "T", "U", "V", "W","X", "Y", "Z") th7= Array("0", "1", "2", "3","4", "5", "6", "7", "8","9", "a", "b", "c", "d","e", "f", "g", "h", "i","j", "k", "l", "m", "n","o", "p", "q", "r", "s","t", "u", "v", "w", "x","y", "z", "A", "B", "C","D", "E", "F", "G", "H","I", "J", "K", "L", "M","N", "O", "P", "Q", "R","S", "T", "U", "V", "W","X", "Y", "Z") th8= Array("0", "1", "2", "3","4", "5", "6", "7", "8","9", "a", "b", "c", "d","e", "f", "g", "h", "i","j", "k", "l", "m", "n","o", "p", "q", "r", "s","t", "u", "v", "w", "x","y", "z", "A", "B", "C","D", "E", "F", "G", "H","I", "J", "K", "L", "M","N", "O", "P", "Q", "R","S", "T", "U", "V", "W","X", "Y", "Z") PADN = InputBox("How long the passwordis", "Guilin Hu", 4) PADNO = CInt(PADN) For IJ = 1 To 100 If Sheet1.Cells(IJ, 1) = "" Then Sheet1.Cells(IJ, 1) = Now Exit For Else End If Next IJ PauseTime = 2 Start = Timer Do While Timer < start="" +="" pausetime="" doevents="" loop="" finish="Timer" select="" case="" (padno)="" case="" 1="" for="" ii="0" to="" 61="" pd="st(ii)" sendkeys="" pd="" pausetime="speed" start="Timer" do="" while="" timer="">< start="" +="" pausetime="" doevents="" loop="" finish="Timer" sendkeys="" "{enter}"="" pausetime="speed" start="Timer" do="" while="" timer="">< start="" +="" pausetime="" doevents="" loop="" finish="Timer" sendkeys="" "{enter}"="" next="" ii="" case="" 2="" for="" ii="0" to="" 61="" forjj="0" to="" 61="" pd="st(ii)" &="" nd(jj)="" sendkeys="" pd="" pausetime="speed" start="Timer" do="" while="">
EXCEL的vbaproject密码破解
下面的答案不是我的,我试验成功过,但不保证每次成功,你试试吧。
关闭你的文件,新开一Excel,同时按Alt和F11,进入VBA界面,右键点左上窗口的Thisworkbook,插入,模块,在右边出来的窗口中粘贴如下代码:
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 SubPrivate 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
然后在此界面,把光标移到第一行,按F5,运行MoveProtect,在打开窗口中选择你说的文件,完成后,该文件的宏就没密码了。
如何破解excel宏的密码
EXCEL工程密破解,以下方法十分有效的帮你打开VBA工程密码保护的工程,教你破解VBA工程密码,解除VBA工程密码保护下的EXCEL文档,破解EXCEL原来如此简单.--------------在办公中我们常看到许多用宏(VBA)编写的EXCEL表格,而这些表格就如同一个数据库,我们可以选取或查询很多的数据,一般的这些数据是存放在一个隐藏的工作表中的,那么要如何显示这个隐藏的工作表呢?我们可以打开宏编辑器(ALT+F11),再安CTRL+R打开专案,这时弹出窗会有所有的这个EXCEL的工用表,这时你就可以看看那些是被隐藏的了,很多时候打开是需要密码的,用以下方法解密后,再将解密后文件打开,依同样方法在工作表标签中右键>>检视程式码>>复制以下代码>>按F8执行Private Sub CommandButton1_Click()Worksheets("这里为你要显示的工作表名称").Visible = TrueEnd 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 IfDim 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 NextIf CMGs = 0 Then MsgBox "请先对VBA编码设置一个保护密码。
", 32, "提示" Exit Sub End IfIf 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) = "" ThenMsgBox "没找到相关文件,清重新设置。"Exit SubElseFileCopy 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 ForNextIf CMGs = 0 ThenMsgBox "请先对VBA编码设置一个保护密码。", 32, "提示"Exit SubEnd IfDim 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, "提示"Close #1End SubVBA代码引用自:。
vbaproject密码破解
可能是这个宏使用了附加控件,或引用,你在复制时可将包含这个文件的文件夹全部自制过去试试,如果不行,就调VB编辑器,通过“工具”—“附加控件”,看宏使用了哪些附加控件,然后现通过Windows查找,找到所附加的控件,一同复制到新机子上。
注册一下就可用了如果宏加了密码。不能查看宏。
请用下面的方法。新建一个Execl文件。
Alt+f11打开编辑器。将下面的这段代吗复制进去,然后运行。
找到要破解的文件,去除其保护。然后再像上面一样设置——————————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 #1End Sub。
excel中vba密码怎么破解
方法/步骤打开需要破解的文件,并点开需要输入密码的界面,如图使用EXCEL.EXE重新打开一个工作簿。
打开新工作簿的VBA代码区域,并插入一个模块。插入如下代码Sub test()Dim st, nd, th3, th4, th5, th6, th7, th8 As VariantDim ii, jj, kk, ll, mm, nn, oo, pp, qq As IntegerDim PADN, PD, IJ, JK, PADNO, speedspeed = 0.005 st = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z") nd = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z") th3 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z") th4 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z") th5 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z") th6 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z") th7 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z") th8 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")PADN = InputBox("How long the password is", "Guilin Hu", 4)PADNO = CInt(PADN)For IJ = 1 To 100If Sheet1.Cells(IJ, 1) = "" ThenSheet1.Cells(IJ, 1) = NowExit ForElseEnd IfNext IJPauseTime = 2 Start = Timer Do While Timer < start="" +="" pausetime="" doevents="" loop="" finish="TimerSelect" case="" (padno)case="" 1="" for="" ii="0" to="" 61pd="st(ii)SendKeys" pd="" pausetime="speed" start="Timer" do="" while="" timer="">< start="" +="" pausetime="" doevents="" loop="" finish="TimerSendKeys" "{enter}"="" pausetime="speed" start="Timer" do="" while="" timer="">< start="" +="" pausetime="" doevents="" loop="" finish="TimerSendKeys" "{enter}"next="" iicase="" 2="" for="" ii="0" to="" 61="" for="" jj="0" to="" 61pd="st(ii)" &="">
vba打开excel文件(带密码)
打开带密码的文件,你需将密码作为参数来打开文件。
Open( _FileName_ , _UpdateLinks_ , _ReadOnly_ , _Format_ , _Password_ , _WriteResPassword_ , _IgnoreReadOnlyRecommended_ , _Origin_ , _Delimiter_ , _Editable_ , _Notify_ , _Converter_ , _AddToMru_ , _Local_ , _CorruptLoad_ )其中:_password_ 包含打开受保护工作簿所需密码的字符串。 如果省略此参数并且工作簿需要密码,则会提示用户输入密码。
_writerespassword_ 包含写入写保护的工作簿所需密码的字符串。 如果省略此参数并且工作簿需要密码,则将提示用户输入密码。
用逗号分隔参数时需要注意参数的位置也可用password:="XXXX"指明参数名称。
转载请注明出处51数据库 » excelvbapassword