formlarda x çıkmaya izin vermez Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
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

Benzer Sonuçlar
No	Makro Adı
1	formlarda x çıkmaya izin vermez
2	alt alta kayıt işlemi
3	baskı önizlemede değişiklikleri engelleme
4	baskı ön izlemede değişiklikleri engelle
5	sayfada sabitlik
6	excel sayfasının isteğe göre kısıtlanması
7	makrolar kutusu ve makrolar görünsün
8	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
9	excel dosyası belirli bir tarihten sonra açılmasın
10	Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?
11	text dosyası 1 oluşturma
12	birden fazla isimlileri harcamalarıyla birlikte tek isim altında toplatma
13	işgünlerine ait sheet açmak.
14	başka çalışma kitabındaki userformu açmak
15	textboxa numerik ve backspace e izin verir
16	textboxa alfabetik, backspace ve spacebar a izin verir
17	hücrede bir sonraki ayın gün sayısı kadar gün ilave etme
18	Makro kullanarak sayfayı korumaya alma ve sadece kilitsiz hücrelere izin verme
19	aynı dizine txt dosyasına a,b,c sütunundakileri kopyalar, kapatır
20	kapaniş mesaji

Benzer Sonuçlar

Makro Adı

formlarda x çıkmaya izin vermez

alt alta kayıt işlemi

baskı önizlemede değişiklikleri engelleme

baskı ön izlemede değişiklikleri engelle

sayfada sabitlik

excel sayfasının isteğe göre kısıtlanması

makrolar kutusu ve makrolar görünsün

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

excel dosyası belirli bir tarihten sonra açılmasın

Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?