Remove excel VBA password

Source

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
    Else
        RecoverBytes
        MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _
                           hWndParent, lpDialogFunc, dwInitParam)
        Hook
    End If
End Function


3.Paste this code under the above code in Module1 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.

Filme 2017

Murder on the Orient Express
American Made
The Snowman
Death Note
Wind River
Suburbicon
The Foreigner
American Assassin
Blade Runner 2049
Bright
The Shape of Water
Mother!

ewaste

Mercedes vito

Filme 2016

The Accountant

Filme 2019

The Lego Movie Sequel
How to Train Your Dragon 3
Captain Marvel
Godzilla: King of Monsters
Shazam!
Fast & Furious 9
Avengers 4
Star Wars: Episode IX
Toy Story 4
Transformers 7
The Secret Life of Pets 2
Spider-Man: Homecoming 2
The Lion King
Frozen 2
Masters of the Universe
Shrek 5
The Batman

Filme 2018

Gifted
The Meg
Battle Drone
MORTAL ENGINES
Mute
Solo: A Star Wars Story
Cold Skin
Pacific Rim 2: Uprising
Alita: Battle Angel
Jurassic World 2: Fallen Kingdom
Ready Player One
Rampage
Annihilation
Mortal Engines
The Beyond
Maze Runner 3 The Death Cure
The Terror
Castle Rock
The Alienist
The Handmaid's Tale
Avengers: Infinity War
X-Men: The New Mutans
Gringo
Ocean's 8
WILDLING
Replicas
Venom
Mission: Impossible - Fallout
Tourism Australia: Dundee - The Son of a Legend Returns Home
Future World
The Nutcracker and the Four Realms
Charming
Black Panther
Deadpool 2
The Incredibles 2
A Wrinkle In Time
Tomb Raider
Hotel Transylvania 3: Summer Vacation
12 Srong
Smallfoot
A Quiet Place
Spider-Man: Into The Spider-Verse
Sicario 2: Soldado
Curvature
DESTINATION WEDDING
MAGNUM P.I
Bleeding Steel
AXL
Mowgli
Christopher Robin
Skyscraper
Hotel Artemis
City of Lies
Papillon
Reprisal
The Beyond
Robin Hood
Aquaman
JOHNNY ENGLISH 3: Strikes Again
The Manual
HUNTER KILLER
KIN
Overlord
 Glass
Patient Zero
Godzilla 2 King of the Monsters
Bohemian Rhapsody
Fantastic Beasts 2
Welcome to Marwen
Shazam!
Aquaman
Assassination Nation
Hell Fest
Second Act
ON THE BASIS OF SEX
BOY ERASED

Travian population culture points chart table

Building	CP	Pop
Woodcutter	6	16
Clay Pit	6	16
Iron Mine	6	21
Cropland	6	5
Sawmill	2	12
Brickyard	2	11
Iron Foundry	2	18
Grain Mill	2	11
Bakery	2	12
Warehouse	38	30
Granary	38	30
Smithy	77	62
Tournament Square	38	30
Main Building	77	41
Rally Point	38	30
Marketplace	115	62
Embassy	153	51
Barracks	38	62
Stable	77	72
Workshop	115	51
Academy	153	62
Cranny	6	5
Town Hall	192	62
Residence	77	30
Palace	192	30
Treasury	230	62
Trade Office	115	51
Great Barracks	38	62
Great Stable	77	72
City Wall	38	20
Earth Wall	38	20
Palisade	38	20
Stonemason's Lodge	38	41
Brewery	25	38
Trapper	38	62
Hero's Mansion	38	41
Great Warehouse	38	30
Great Granary	38	30
Wonder of the World	0	550
Horse Drinking Trough	115	72