G
Guest
I wamt to hide the X in the top right corner of a UserForm. Can this be done
and if not how do I disable it?
and if not how do I disable it?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
G
Guest
Hi David,
I hope you aggree with this one, that used API calls to hide X :
Private Declare Function SetWindowLong _
Lib "user32" _
Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) _
As Long
Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long
Private Sub UserForm_Initialize()
SetWindowLong FindWindow(vbNullString, Me.Caption), _
-16, -2067791744
End Sub
I hope you aggree with this one, that used API calls to hide X :
Private Declare Function SetWindowLong _
Lib "user32" _
Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) _
As Long
Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long
Private Sub UserForm_Initialize()
SetWindowLong FindWindow(vbNullString, Me.Caption), _
-16, -2067791744
End Sub
G
Guest
just once more...
Place that code into Userform module behind your userform
Place that code into Userform module behind your userform
G
Guest
Thanx I'll try it late and let you know how it works out for me...
G
Guest
Something is not working....
Halim said:just once more...
Place that code into Userform module behind your userform
J
Jon Peltier
I pasted Halim's code into a userform's code module and it worked perfectly.
Did you put the code in the right place (per his second email)?
- Jon
Did you put the code in the right place (per his second email)?
- Jon
G
Guest
Well,
Ok, What does the user32 stand for? Is that the name of the form?
This is the Form that I'm using.
Where is this would the vb that Halim sent me go?
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:03")
Unload Me
Application.ScreenUpdating = False
Sheets("main").Select
Application.ScreenUpdating = True
End Sub
Thanx
David
Ok, What does the user32 stand for? Is that the name of the form?
This is the Form that I'm using.
Where is this would the vb that Halim sent me go?
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:03")
Unload Me
Application.ScreenUpdating = False
Sheets("main").Select
Application.ScreenUpdating = True
End Sub
Thanx
David
J
Jon Peltier
Paste his code at the top of the module, right below Option Explicit.
- Jon
- Jon