userform x 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	userform x yok
2	listbox veya combobox başlık formatı
3	yüklü yazıcı var mı yok mu
4	şifrelemede son nokta
5	userformda x işareti yok
6	userform'u otomatik boyutlandırma
7	forma otomatik resim getirme
8	find menüsü oluşturma
9	userformda x basınca çalışma kitabından çıkma
10	userformdan x ile excel çıkış
11	userform çıkış iptali mesaj ile
12	listboxa alınan adreslerin başına karakteri koy
13	userformu alt+f4 ile kapatmak yasak
14	textboxu sesli okuma
15	userforma x ya basınca mesaj gelir kapatmaz
16	klavye ok yönleri ile mesaj alma
17	textboxa girerken her üç rakamın arasına bir nokta koyma
18	listboxta tıklama ile textboxlara aldırma
19	userformun açılış sayısını sınırlamak (demo yapmak)
20	bazı sayfaların listelenmesini engelleme

Benzer Sonuçlar

Makro Adı

userform x yok

listbox veya combobox başlık formatı

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

şifrelemede son nokta

userformda x işareti yok

userform'u otomatik boyutlandırma

forma otomatik resim getirme

find menüsü oluşturma

userformda x basınca çalışma kitabından çıkma

userformdan x ile excel çıkış