Excel x yerine userfomdan çıkış

[zeugma35]

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

 

[Ergün GÖKER]

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

 

[zeugma35]

ergün bey vermiş olduğunuz kod formdaki x için geçerli ben exceldeki x için bahsetmiştim

 

[Ergün GÖKER]

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]

Dosyanızın ThisWorkBook bölümüne aşağıdaki kodu uygulayınız.

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

Formunuzun üstündeki KAPAT butonuna da aşağıdaki kodu uygulayın.

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

 

[zeugma35]

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]

Aşağıdaki gibi deneyiniz.

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

 

[bydogannn67]

Hocam merhabalar

aşağıdaki kodu formun kapat butonuna

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

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]

güncel....