Is there a way to crack the password on an Excel VBA Project?


I’ve been asked to update some Excel 2003 macros, but the VBA projects are password protected, and it seems there’s a lack of documentation… no-one knows the passwords.

Is there a way of removing or cracking the password on a VBA project?

You can try this direct VBA approach which doesn’t require HEX editing. It will work for any files (*.xls, *.xlsm, *.xlam …).

Tested and works on

Excel 2007
Excel 2010
Excel 2013 – 32 bit version.
Excel 2016 – 32 bit version.

Looking for 64 bit version? See

how it works

I will try my best to explain how it works – please excuse my english.

  1. The VBE will call a system function to create the password dialog box.
  2. If user enters the right password and click OK, this function returns 1. If user enters the wrong password or click Cancel, this function returns 0.
  3. After the dialog box is closed, the VBE checks the returned value of the system function
  4. if this value is 1, the VBE will “think” that the password is right, hence the locked VBA project will be opened.
  5. 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.

using the code

  1. Open the file(s) that contain your locked VBA Projects
  2. Create a new xlsm file and store this code in Module1

    code credited to Siwtom (nick name), a Vietnamese developer
    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
    Public Sub RecoverBytes()
        If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 6
    End Sub
    Public Function Hook() As Boolean
        Dim TmpBytes(0 To 5) As Byte
        Dim p As Long
        Dim OriginProtect As Long
        Hook = False
        pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")
        If VirtualProtect(ByVal pFunc, 6, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then
            MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6
            If TmpBytes(0) <> &H68 Then
                MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6
                p = GetPtr(AddressOf MyDialogBoxParam)
                HookBytes(0) = &H68
                MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4
                HookBytes(5) = &HC3
                MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6
                Flag = True
                Hook = True
            End If
        End If
    End Function
    Private Function MyDialogBoxParam(ByVal hInstance As Long, _
            ByVal pTemplateName As Long, ByVal hWndParent As Long, _
            ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Integer
        If pTemplateName = 4070 Then
            MyDialogBoxParam = 1
            MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _
                               hWndParent, lpDialogFunc, dwInitParam)
        End If
    End Function

  3. Paste this code in Module2 and run it
    Sub unprotected()
        If Hook Then
            MsgBox "VBA Project is unprotected!", vbInformation, "*****"
        End If
    End Sub
  4. Come back to your VBA Projects and enjoy.

Fix Office Outlook 2013 slow and laggy



After upgrading to Outlook 2013 I noticed that the performance was incredibly slow when switching between Mail, Contacts and Calendar,  there would often be a several second delay before the screen changed. When searching for Contacts it could take 15 seconds to return the results. Now I’m not one to complain (too much) but if my local PC a quad core beast was taking 15 seconds to return results from a couple of hundred contacts, how can Google return 53,000,000 results when searching for the same contact? Anyway after a couple of months worth of persevering I decided to look for a solution which turns out to be graphics related.

UPDATE – 28/05/2013!!!

The original fix required playing in the registry. If you manage multiple systems via AD then you can still use that on a global scale but if its only 1 or 2 computers then this option may be quicker! Thanks to Kurt Conway for pointing this out in the comments. There may be a group policy available for this but demand has not been that great, I will see if I can load the new policies up and check but in the meantime you can try this.

Open Outlook, Click File (top left), Then Options. Now click on advanced and scroll down to where you see “Disable hardware graphic acceleration” – Simply place a tick in the box, restart Outlook and it should be a lot faster.

Disable Hardware Acceleration

Or if you like doing things the long way –


This is the fix for my machine which is Windows 8, I’m sure Windows 7 will be similar if not identical.

Step 1 – open your registry. Press the windows key and type “Regedit” then press enter or click the Regedit icon, windows 7 users you can type Regedit in your start bar.

Regedit win 7 8


Step 2 – Browse to: COMPUTER \ HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 15.0 \ Common\ Graphics. If you don not have a “Graphics” right click on “Common” and choose “New” then “Key” and create “Graphics” (no quotes)

Step 3 – Once on the Graphics “folder” right click it and choose new DWORD (32-bit) Value

Create DWORD

Step 4 – Give the new DWORD a Value name: DisableHardwareAcceleration and give it a Value of 1 – Click OK to save it.

Disable Hardware Acceleration


Step 5 – Open Office and you should see a massive improvement in the speed of switching between contacts, calendar and you inbox.

Below is a video guiding you through this process, Hope it helps.

How to add/insert leading zeros to numbers or text in Excel?


Supposing you have a range of data, and you need to add zeros in front of each cells as following screenshots shown. How could you quickly add the zeros before the numbers?

doc-add-leading-zeros1 -2 doc-add-leading-zeros2



arrow blue right bubble Add/ insert leading zeros to numbers with Text function

The Text function will add zeros in front of numbers, and make the new numbers with leading zeros in certain length.

Step 1: Enter the formula =Text (A1, “00000”) in a blank cell which is adjacent to the data cell.


Step 2: Then press Enter key, and select cell C1 drag the fill handle Description: Selected cell with fill handle across the range that you want to fill. Then you will view all the numbers in A1:B6 are copied and pasted to C1:D6 with leading zeros. And each numbers contains 5 digits.


Tips: 1. As they are formulas, so when you need to copy and paste them to other places, you need to paste them as values.

2. This Text function can not add leading zeros for text.

arrow blue right bubble Add/ insert leading zeros to numbers and text with Concatenate function

If you want to insert specific digit of leading zeros into each number, for example three leading zeros for each number, you should try the Concatenate function.

Step 1: Enter the formula =Concatenate (“000”, A1) in a blank cell and press Enter key. In this case, we enter the formula in Cell C1.

Step 2: Click the Cell C1, and drag the fill handle Description: Selected cell with fill handle across the range that you want to fill. Then you will view numbers in A1:B6 are pated to C1:D6, and each number contains three leading zeros.


Microsoft Word Icon Changed to Unknown Program [Solved/Closed]


Recently my microsoft word (program) icon changed from the classic picture to the unknown programs icon. I wanted to know how to get the real icon back. My icons for everything else (such as Microsoft Excel) on the desktop still displa properly. When I click on the Microsoft Word unknown programs icon, it sill opens to a normal new document scree, so this is no problem.

Go to microsoft office– microsoft office tools– microsoft office picture manager– help– detect and repair– check restore my shortcuts while repairing.

This should restore all the microsoft office shortcuts and icons

Dependent Drop-down Lists

[Originally Posted By]:

This example describes how to create dependent drop-down lists in Excel. Here’s what we are trying to achieve:

The user selects Pizza from a drop-down list.

First Drop-down List

As a result, a second drop-down list contains the Pizza items.

Second Drop-down List

To create these dependent drop-down lists, execute the following steps.

1. On the second sheet, create the following named ranges.

Name Range Address
Food A1:A3
Pizza B1:B4
Pancakes C1:C2
Chinese D1:D3

Named Ranges

2. On the first sheet, select cell B1.

3. On the Data tab, click Data Validation.

Click Data Validation

The ‘Data Validation’ dialog box appears.

4. In the Allow box, click List.

5. Click in the Source box and type =Food.

Validation Criteria

6. Click OK.


First Drop-down List

7. Next, select cell E1.

8. In the Allow box, click List.

9. Click in the Source box and type =INDIRECT($B$1).

Indirect Function

10. Click OK.


Dependent Drop-down Lists

Explanation: the INDIRECT function returns the reference specified by a text string. For example, the user selects Chinese from the first drop-down list. =INDIRECT($B$1) returns the Chinese reference. As a result, the second drop-down lists contains the Chinese items.

Excel VBA Drop Down Lists Using Data Validation

[Originally posted by]:

Excel VBA Drop Down Lists Using Data Validation

JUL 27, 2015

In this article I will explain how you can create drop down lists using data validation.

Jump To:

You can download the file and code related to this article from the link below:

Creating Data Validation (Manually):

Step1 : In the first step you would need to print the data you are going to fill the drop down list with somewhere. Usually I open a new sheet, name it something no one would ever consider using (like “far43fq”) and print the data there.

Excel VBA, Drop Down Lists, Data Validation Data

Step 2: Select the cell you would like to add the drop down list to. Then click on the Data Validation button on the Data Ribbon:

Adding a Data Validation to a specific cell, Excel VBA

Step 3: Select list:

Selecting the list type data validation from the list of available data validation types excel vba

Step 4: Input the range of the data. If the drop down list (data validation) and the data are in the same sheet you would reference them using a statement like “=A1:A6”. If they are in separate sheets you would use a statement like “=SheetName!A1:A6”, where “SheetName” is replaced with the name of the sheet.

Excel VBA, Drop Down Lists, Data Validation Input Data

Note: I this example the input data is in another sheet. The name of the sheet is Sheet1″.

After pressing Ok your drop down list is ready:

A drop down list created using data validation

Creating Data Validation (Using VBA):

Using the code below a drop down list (data validation) will be created in the cell “J2” . The data for the drop down list will come from the range “=A1:A6” in the sheet “Sheet1”. Note you must change the highlighted parts based on the location of your source and the location for your drop down list:

Private Sub main()
	'replace "J2" with the cell you want to insert the drop down list 
	With Range("J2").Validation
		'replace "=A1:A6" with the range the data is in. 
		.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
		Operator:= xlBetween, Formula1:="=Sheet1!A1:A6" 
		.IgnoreBlank = True 
		.InCellDropdown = True 
		.InputTitle = "" 
		.ErrorTitle = "" 
		.InputMessage = "" 
		.ErrorMessage = "" 
		.ShowInput = True 
		.ShowError = True 
	End With 
End Sub


Selection Change:

The data validation itself doesn’t have a built in function for determining when the user hasselected a new value. Though you could use the worksheet_change event handler to determine when the user has selected a new value from the drop down list.  Theworksheet_change event triggers every time changes are made to a worksheet. You could use the worksheet_change event handler to catch this event and check if the changes made were to the value selected in the drop down list.

The code below is a worksheet_change event handler. It checks if the changes in the worksheet have occurred in the cell with the drop down list or not:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("J2").Address Then 
        'your code 
    End If 
End Sub 

Modifying, Adding, Inserting and Removing Items (Usin VBA):

In order to modify, add, insert and remove items from a drop down list created using data validation, you would have to follow 2 steps.

Step 1: The first thing you would have to do is change the source data. For example lets say we want to modify the second item to “New Item 2”,  we would need to change thedata validation’s source to the values below:

Excel VBA, Drop Down Lists, Data Validation Data, Modified Data
Or for example lets say we want to add an item to the list of items. Again the first thing would be to modify the source data:

Excel VBA, Drop Down Lists, Data Validation Data, Modified Data 2
Or for example lets say we want to remove “item 4”. Again the first step would be tomodify the source data:

Excel VBA, Drop Down Lists, Data Validation Data, Modified Data 3
Step 2: In the next step we need to update the drop down list to accommodate for the changes made in its source. This can be done using the code below. The code below must be copied to the sheet with the source data. The highlighted parts must be changed based on the location of your source data and the location you would like the drop down list to appear:

Option Explicit
Dim flagProgram As Boolean 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim intRowCount As Integer 
    If flagProgram = False Then 
	flagProgram = True 
	'get the total rows of data 
	intRowCount = Get_Count 
	'update the drop down list(data validation) 
	Call Update_DataValidation(intRowCount) 
	flagProgram = False 
    End If 
End Sub

'This function will return the total count of rows in the 
'drop down list(data validation) source 
Private Function Get_Count() As Integer 
    Dim i As Integer 
    'determines if the we have reached the end 
    Dim flag As Boolean 

    i = 1
    flag = True
    While flag = True
	If Cells(i, 1) <> "" Then 
  	    'if there is still data go on 
	    i = i + 1 
	    'if there is no more data left stop the loop 
	    flag = False 
	End If 

    'return the total row count 
    Get_Count = i - 1
End Function 

'the function below updates the source range for the data validation 
'based on the number of rows provided by the input 
Private Sub Update_DataValidation(ByVal intRow As Integer)
    'the reference string to the source range 
    Dim strSourceRange As String 

    strSourceRange = "=Sheet1!A1:A" + Strings.Trim(Str(intRow))
    With Sheet2.Range("J2").Validation
	.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ 
	Operator:= xlBetween, Formula1:=strSourceRange 
	.IgnoreBlank = True 
	.InCellDropdown = True 
	.InputTitle = "" 
	.ErrorTitle = "" 
	.InputMessage = "" 
	.ErrorMessage = "" 
	.ShowInput = True 
	.ShowError = True 
    End With 
End Sub

The code above has 3 different function. The main function is Worksheet_Change event handler. The event handler executes when the user makes changes to the sheet with the source data:

Private Sub Worksheet_Change(ByVal Target As Range)
End Sub 

flagProgram determines if the current changes made to the sheet have been done by the program or the user. This is to prevent an endless recursion of the Worksheet_Changeevent handler:

If flagProgram = False Then 
    flagProgram = True 
    flagProgram = False 
End If

The line below gets the number of rows in the source for the data validation. This value must be checked each time to account for added and removed items:

intRowCount = Get_Count

The function Update_DataValidation updates the data validation based on the input parameter intRow. The input parameter intRow determines how many rows of data thedrop down list must use. The first line of this function creates a string which is a reference to the range with the source data:

strSourceRange = "=Sheet1!A1:A" + Strings.Trim(Str(intRow))

Note the highlighted section must changed if your source data is not in Sheet1 starting from cell A1. The resulting string will be something like this:




For more information about string processing and manipulation please see the link below:

The rest of the lines in the function Update_DataValidation creates a drop down list in the cell “J2” in sheet2.

You can download the file and code related to this article from the link below:

See also:

If you need assistance with your code, or you are looking to hire a VBA programmer feel free tocontact me. Also please visit my website