盼盼资源网欢迎您--盼盼的家园www.panpan.org

 找回密码
 立即注册
查看: 206|回复: 0

excel2010vba密码破解程序(亲测可用)

[复制链接]

403

主题

409

帖子

1510

积分

超级版主

Rank: 8Rank: 8

积分
1510
发表于 2018-1-2 00:01:34 | 显示全部楼层 |阅读模式
excel2010vba密码破解程序(亲测可用)

excel2003的破解方式不适合excel2010,找到了破解vba密码的方法就保存了一个,
Excel2007,excel2010是一定可以的。

使用方法:
1、新建一个工作薄book1,Alt+F11 调出VBA窗口,新建一个  模块 ,在  模块 中贴上下面的代码(横线里面的)。
2、打开需要破解的excel(或者先打开要破解vba的excel),按一下 Alt+F11  组合键。
3、运行book1的VBA,然后就ok了(就可以暂时不用密码而打开VBA了)



---------------------------------------------------------------
Option Explicit

Private Const PAGE_EXECUTE_READWRITE = &H40
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Long, Source As Long, ByVal Length As Long)
Private Declare Function VirtualProtect Lib "kernel32" (lpAddress As Long, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long
Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As Long, ByVal pTemplateName As Long, ByVal hWndParent As Long, ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Integer
Dim HookBytes(0 To 5) As Byte
Dim OriginBytes(0 To 5) As Byte
Dim pFunc As Long
Dim Flag As Boolean

Private Function GetPtr(ByVal Value As Long) As Long
GetPtr = Value
End Function

Private Sub RecoverBytes()
If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 6
End Sub

Private Function Hook() As Boolean
Dim TmpBytes(0 To 5) As Byte
Dim p As Long
Dim OriginProtect As Long

……

Public Sub unprotected()
If Hook Then
MsgBox "VBA Project is unprotected!", vbInformation, "*****"
End If
End Sub

---------------------------------------------------------------


excel2010vba密码破解程序下载
https://panpan8848.ctfile.com/fs/4000752-233031886


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|盼盼资源网