userform has no x Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_THICKFRAME As Long = &H40000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_POPUP As Long = &H80000000
Private Const WS_VISIBLE As Long = &H10000000
Private Const WS_EX_DLGMODALFRAME As Long = &H1
Private Const WS_EX_APPWINDOW As Long = &H40000
Private Const WS_EX_TOOLWINDOW As Long = &H80

Private Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" ( _
  ByVal ClassName As String, _
  ByVal WindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" _
  Alias "GetWindowLongA" ( _
  ByVal hWnd As Long, _
  ByVal Index As Long) As Long

Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" ( _
  ByVal hWnd As Long, _
  ByVal Index As Long, _
  ByVal NewLong As Long) As Long
 
Const GWL_STYLE = -16

Private Sub UserForm_Initialize()
  Dim hWnd As Long
  Dim Style As Long

If Val(Application.Version) >= 9 Then
    hWnd = FindWindow("ThunderDFrame", Me.Caption)
  Else
    hWnd = FindWindow("ThunderXFrame", Me.Caption)
  End If

Style = GetWindowLong(hWnd, GWL_STYLE)
  Style = (Style And Not WS_SYSMENU)
  SetWindowLong hWnd, GWL_STYLE, Style
End Sub

No	Macro Name
1	userform has no x
2	exiting the workbook at x pressure in userform
3	forms do not allow x to exit
4	no userform x
5	do not open excel file after a certain date
6	add save key to userforma
7	userforma save as key
8	visual and beautiful userform
9	dialog box without userform
10	first sheet / page not appearing in listbox
11	userform pops up when you click between cells
12	importing data from another book to the combobox
13	print userforma time remaining
14	Automatically filter excel sheet via userform
15	open userform in another workbook
16	a1: a30 class name b1-b30 class 2 notation
17	double record blocking.
18	Disables the close button at the beginning of the userform (userform does not close when multiplied)
19	search-find command
20	delete from listbox with double click

Excel Free Macros (VBA)

Userform Has No X

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords