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.

Results.Add hwnd, Left$(buffer, retValue) RetValue = GetWindowText(hwnd, buffer, Len(buffer)) Public Function EnumWindowCallback(ByVal hwnd As Long, ByVal param As Long) As Long Public Declare Function GetWindowText Lib 'user32' Alias 'GetWindowTextA' _Ĭall EnumWindows(AddressOf EnumWindowCallback, &H0)ĭebug.Print result & ' - ' & results(result) Public Declare Function IsWindowVisible Lib 'User32' (ByVal hWnd As Long) As Long Since it operates via a callback function, you'll need to cache both the criteria and the results somewhere that has scope beyond the calling function: Public Declare Function EnumWindows Lib 'user32' (ByVal lpEnumFunc As Long, _ One way you can do this is with the EnumWindows API function.

Vba getwindowtext lib