DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Unload Me
Application.Visible = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub
Evet, Excel gözükmez ama.... kapanmaz da. :mrgreen:fructose' Alıntı:Sn dilekgüç, yukarıda verdiğim kodları Thisworkbook kopyaladığınızda kapandıktan sonrada excel gözükmez.
Sub Auto_Open()
Application.Visible = False
UserForm1.Show
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save
Application.Quit
End Sub
heheh.... gülmeyi severim. :mrgreen:fructose' Alıntı:......
ve Haluk Beyi'de güldürmemiş oluruz :mrgreen: