
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 Option Explicit.Tested and works on Excel 2007, Excel 2010 and Excel 2013 - 32 bit version.

It will work for any files (*.xls, *.xlsm, *.xlam.

Using this answer as reference : Is there a way to crack the password on an Excel VBA Project?
