no userform 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	no userform x
2	add save key to userforma
3	only one view of data in the combobox
4	sort data by name order
5	sort data by name order
6	forms do not allow x to exit
7	userform has no x
8	do not open excel file after a certain date
9	userforma save as key
10	dialog box without userform
11	combobox can not get data a ...
12	first sheet / page not appearing in listbox
13	importing data from another book to the combobox
14	print userforma time remaining
15	search-find command
16	TreeView
17	backup
18	sheet / pages showing userform (with code without form)
19	to the code section of the userform
20	userformless form menu sheet / page select

Excel Free Macros (VBA)

No Userform X

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords