userformda x işareti yok 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. 
 
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

Benzer Sonuçlar
No	Makro Adı
1	userformda x işareti yok
2	şifrelemede son nokta
3	formlarda x çıkmaya izin vermez
4	kullanıcı adı ve parola eklemek
5	forma otomatik resim getirme
6	ıf, else
7	find menüsü oluşturma
8	listbox veya combobox başlık formatı
9	yüklü yazıcı var mı yok mu
10	userform'u otomatik boyutlandırma
11	userformda resim önzileme
12	userform x yok
13	userformdan x ile excel çıkış
14	şifreli giriş userformda textboxlu
15	userformda x basınca çalışma kitabından çıkma
16	userform 7 userformun çarpı işaretine tıklayınca mesaj kutusuyla uyarı veriyor
17	userformda hareketli gif
18	userformun çarpı işaretine tıklayınca mesaj kutusuyla uyarı veriyor
19	userformun başindaki kapat butonunu pasif yapar (çarpiya basinca userform kapanmaz)
20	userform x işaretini kaldırmak

Benzer Sonuçlar

Makro Adı

userformda x işareti yok

şifrelemede son nokta

formlarda x çıkmaya izin vermez

kullanıcı adı ve parola eklemek

forma otomatik resim getirme

ıf, else

find menüsü oluşturma

listbox veya combobox başlık formatı

yüklü yazıcı var mı yok mu

userform'u otomatik boyutlandırma