packagekvm.blogg.se - Crack Password Protected Vba Project Unviewable

MsgBox "VBA Project is unprotected!", vbInformation, "*****"Ĭome back to your VBA Projects and enjoy. Paste this code under the above code in Module1 and run it Sub unprotected() MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _ Private Function MyDialogBoxParam(ByVal hInstance As Long, _ MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6 MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4 MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6 MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6

If VirtualProtect(ByVal pFunc, 6, PAGE_EXECUTE_READWRITE, OriginProtect) 0 Then PFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA") If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 6 Private Function GetPtr(ByVal Value As Long) As Long Private Declare Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As Long, _īyVal pTemplateName As Long, ByVal hWndParent As Long, _īyVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Integer Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, _ Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long Private Declare Function VirtualProtect Lib "kernel32" (lpAddress As Long, _īyVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long (Destination As Long, Source As Long, ByVal Length As Long) Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _ Private Const PAGE_EXECUTE_READWRITE = &H40

Open the file(s) that contain your locked VBA ProjectsĬreate a new xlsm file and store this code in Module1Ĭode credited to Siwtom (nick name), a Vietnamese developer Option Explicit.

The code below swaps the memory of the original function used to display the password dialog with a user defined function that will always return 1 when being called.

if this value is 1, the VBE will "think" that the password is right, hence the locked VBA project will be opened.

After the dialog box is closed, the VBE checks the returned value of the system function.

If user enters the wrong password or click Cancel, this function returns 0.

If user enters the right password and click OK, this function returns 1.

The VBE will call a system function to create the password dialog box.

I will try my best to explain how it works - please excuse my English. Looking for 64 bit version? See this answer How it works It will work for any files (*.xls, *.xlsm, *.xlam. You can try this direct VBA approach which doesn't require HEX editing.