The title of your userform is + Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Private Declare Function FindWindow Lib "user32" Alias _ 
      "FindWindowA" (ByVal lpClassName As String, ByVal _ 
      lpWindowName As String) As Long

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

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 SendMessage Lib "user32" Alias _ 
      "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ 
      ByVal wParam As Integer, ByVal lParam As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal _ 
      hWnd As Long) As Long

Private wHandle As Long

Private Sub UserForm_Initialize() 
    On Error Resume Next 
    Me.Caption = "pir" 
    Image1.Visible = False 
    If Val(Application.Version) >= 9 Then 
        wHandle = FindWindow("ThunderDFrame", Me.Caption) 
    Else 
        wHandle = FindWindow("ThunderXFrame", Me.Caption) 
    End If 
    If wHandle = 0 Then Exit Sub 
    hIcon = Image1.Picture 
    SendMessage wHandle, &H80, True, hIcon 
    SendMessage wHandle, &H80, False, hIcon 
    frm = GetWindowLong(wHandle, -20) 
    frm = frm And Not &H1 
    SetWindowLong wHandle, -20, frm 
    DrawMenuBar wHandle 
End Sub

No	Macro Name
1	The title of your userform is +
2	The title of your userform is +
3	you can set the title of your userform with the code you want
4	you can set the title of your form as you like with the code;
5	change the title of your workbook as desired
6	com.ver from the form box to the lis.box
7	creates a copy of the book by deleting userformmodulclass
8	dialog box without userform
9	Add Template Title: First of all you need to select your graphic and run this code. You will receive an input box to enter the graphic title.
10	deletes data
11	find-change-delete-save macro
12	automatic image fetch
13	Displaying the sum of any column values in the listbox in the textbox
14	listbox A lists the list of As in B in the textbox Delete with commandbutton
15	userforma save as key
16	add save key to userforma
17	Create your own extensions and functions in excel
18	Find and select the remaining cell in the value between 2 selected numbers
19	specifies in detail how many formulas are in the book (on new sheet / page)
20	specifies in detail how many references the book contains (on new sheet / page)

Excel Free Macros (VBA)

The Title Of Your Userform İs +

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords