kapatma için yardım

[bitmez13]

sayfaları x ile kapatmayı pasifleştirmek buna ragmen command buton ile kapatmak istiyorum forumda bulduklarımdan bir sonuç alamadım şimdiden teşekkürler

 

[Ferhat Pazarçevirdi]

Neden, Excel penceresinin kapatma (x) butonunu kullanmadığınızı anlamadım ? İnsanların alışkanlıklarını değiştirmesini istiyorsunuz... Neyse ...

Kitabınıza standart bir modul ekleyin ve buraya aşağıdaki satırı kopyalayın.

Public kapat As Boolean

ThisWorkbook'un kod sayfasına aşağıdakileri kopyalayın.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = kapat
End Sub
'--------------------------
Private Sub Workbook_Open()
    kapat = True
End Sub

Butonunuza da aşağıdaki kodu atayın.

Sub Kitabi_Kapat()
    kapat = False
    ActiveWorkbook.Close 0
End Sub