to the code section of the userform 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	to the code section of the userform
2	Paste into code section of userform
3	find-delete-change-save codes
4	sheet / pages showing userform (with code without form)
5	creates a copy of the book by deleting userformmodulclass
6	remove sheet / page protections
7	automatic image fetch
8	Can the characters typed in the inputbox appear as "*****" (password or password characters)?
9	Convert Date to Years: This code converts dates into the year of the month.
10	userforma save as key
11	add save key to userforma
12	Converting to Suitcase: And this code converts the selected text into the correct word that fills the first letter of capital with lowercase letters.
13	textbox1e date textbox2 month when you enter the value of the intersection of the label on the sheet / page
14	Attendance Codes workbook-level tasks & nbsp; it will help you perform it easily and with minimal effort. & Nbsp; Create a Backup of a Current Workbook: This is one of the most useful macros that can help you save a backup file of a current workbook. Saves a backup file in the directory where your current file is saved. & Nbsp; It will also add the name of the file to the current date.
15	excel operators hk
16	Put an asterisk at the beginning of the cell
17	Determining the name of the sheet / page and file containing the active cell
18	Convert Day to Day: if you have a date on your worksheet and want to convert all these dates into days, this code is for you. Just select the range of cells and run this macro.
19	dialog box without userform
20	receive a message with a macro

Excel Free Macros (VBA)

To The Code Section Of The Userform

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords