forms do not allow x to exit Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
BU KODLAR FORM KAPARKEN X DAN ÇIKMAYA İZİN VERMEZ.
Option Explicit
Public a, d As Integer

Private Sub CommandButton1_Click()
d = 0
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
 'KAPAT BUTONUNA BASILDIĞINDA UYARI VERİR ENGELLER
Private Sub UserForm_initialize()
d = 1
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If d = 1 Then
MsgBox " kapat butonunu kullanınız.", vbCritical, "UYARI"
Cancel = True
End If
End Sub
'BU KOD FORMUN ÇARPI İŞARETİNİ GİZLER
Private Declare Function GetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib "User32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
  Dim hwnd As Long
  hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
    "X", "D") & "Frame", Me.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

No	Macro Name
1	forms do not allow x to exit
2	image preview in userform
3	select characters in textbox with arrow
4	Find and select the remaining cell in the value between 2 selected numbers
5	excel operators hk
6	double-clicking to the address in the listbox
7	currency in textbox 2
8	textboxa (text box) girlilen type in the form of currency
9	text in the text box
10	collects selected fields in status bar
11	fonts in word
12	visual and beautiful userform
13	excel fonts 2
14	Inputbox add year as summer
15	Add menu to file edit bar delete
16	remove sheet / page protections
17	inserts months as sheet / pages Specifies days in detail
18	click any cell and scroll to the right to write the number of days in that month
19	a cell with a formula
20	When you click on any cell, it scrolls to the right and writes the numbers of the days in that month and color the weekends.

Excel Free Macros (VBA)

Forms Do Not Allow X To Exit

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords