Excel x yerine userfomdan çıkış

Katılım
2 Şubat 2016
Mesajlar
71
Excel Vers. ve Dili
2010 türkçe
arkadaşlar excelde menüleri gizledim forma kaydet/kapat kodu ekledım
kullananlar excelin sağ üsteki çıkıştan çıkmasını istemiyorum formdan çıksınlar istiyorum mümkünmüdür
 
Katılım
25 Ağustos 2012
Mesajlar
562
Excel Vers. ve Dili
Office 2003
Altın Üyelik Bitiş Tarihi
3.7.2018
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ' X kapatmayı engellemek
If CloseMode = vbFormControlMenu Then
MsgBox " LÜTFEN ( X ) KAPATMAYA ÇALIŞMAYIN YOKSA KIRACAKSINIZ. ÇIKMAK İÇİN ANA MENÜ BUTONUNU KULLANINIZ..... "
Cancel = True
End If
End Sub
 
Katılım
2 Şubat 2016
Mesajlar
71
Excel Vers. ve Dili
2010 türkçe
ergün bey vermiş olduğunuz kod formdaki x için geçerli ben exceldeki x için bahsetmiştim
 
Katılım
25 Ağustos 2012
Mesajlar
562
Excel Vers. ve Dili
Office 2003
Altın Üyelik Bitiş Tarihi
3.7.2018
ergün bey vermiş olduğunuz kod formdaki x için geçerli ben exceldeki x için bahsetmiştim

Özür dilerim ben user form sandım

bunu deneyin
kolay gelsin

ThisWorkbook' a

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,130
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Dosyanızın ThisWorkBook bölümüne aşağıdaki kodu uygulayınız.

Kod:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    UserForm1.Show
End Sub
Formunuzun üstündeki KAPAT butonuna da aşağıdaki kodu uygulayın.

Kod:
Private Sub CommandButton1_Click()
    ThisWorkbook.Save
    If Excel.Application.Windows.Count = 1 Then
        Unload Me
        Application.Quit
    Else
        ThisWorkbook.Close 0
    End If
End Sub
 
Katılım
2 Şubat 2016
Mesajlar
71
Excel Vers. ve Dili
2010 türkçe
hocam bu kodu kullandığımda form ekranı gelıyo fakat
kaydet-kaydetme-iptal ekranıda gelıyo bunun gelmemesi için ne yapabiliriz

Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm1.Show
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,130
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Aşağıdaki gibi deneyiniz.

Kod:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    UserForm1.Show
    Application.DisplayAlerts = True
End Sub
 

bydogannn67

Altın Üye
Katılım
6 Ocak 2016
Mesajlar
226
Excel Vers. ve Dili
2010 türkçe
Altın Üyelik Bitiş Tarihi
03-09-2029
Hocam merhabalar

aşağıdaki kodu formun kapat butonuna

Kod:
Private Sub CommandButton1_Click()
    ThisWorkbook.Save
    If Excel.Application.Windows.Count = 1 Then
        Unload Me
        Application.Quit
    Else
        ThisWorkbook.Close 0
    End If
End Sub
bu kodu ise thisworkbook kısmına ekliyorum

Kod:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
    MsgBox " Lütfen Çıkış İçin Formu Kullanınız ...", vbInformation
    Application.DisplayAlerts = False
    UserForm8.Show
    Application.DisplayAlerts = True
End Sub
excelden kapatma işlemi yapamıyoruz benım istediğimde bu

fakat formdan kapat dediğimde kapanmıyo yine form geri geliyo nerde yanlışım var
 

bydogannn67

Altın Üye
Katılım
6 Ocak 2016
Mesajlar
226
Excel Vers. ve Dili
2010 türkçe
Altın Üyelik Bitiş Tarihi
03-09-2029
güncel....
 
Üst