A few words of thanks would be greatly appreciated.

VBA - Removing the red cross from a UserForm

Latest update on April 1, 2010 at 10:09 AM by jak58 .

It may be needed that the possibility for exiting a userform until all entries have been entered is prohibited, but there is still the red cross which allows the user to exit.

Use the following code to remove the cross.

In the declaration part of a UF

'to remove the cross in a user form 
 Declare Function GetWindowLongA Lib "user32" _ 
(ByVal hwnd As Long, ByVal nIndex As Long) As Long 

 Declare Function SetWindowLongA Lib "user32" _ 
(ByVal hwnd As Long, ByVal nIndex As Long, _ 
ByVal dwNewLong As Long) As Long 

 Declare Function FindWindowA Lib "user32" _ 
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

In the initialization of the UF

Private Sub UserForm_Initialize() 
Dim hwnd As Long 
    hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _ 
    & "Frame", Me.Caption) 
    SetWindowLongA hwnd, -16, GetWindowLongA

VBA - Removing the red cross from a UserForm
How to remove red cross on battery icon ✓ - Forum - Hardware
Battery showing red cross symbol alerting to replace the battery - Forum - Hardware
My laptop battery icon is showing red cross - Forum - Laptop
Red cross in laptop battery - Forum - Laptop
Red cross on wifi icon windows 10 ✓ - Forum - WiFi

This document, titled « VBA - Removing the red cross from a UserForm », is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).

How To Open a .PS (Postscript) File

How to Read .pub Files

1 Comment

Subscribe To Our Newsletter!