VBA'da (Excel 2007) form kapandığında yürütme kodu

Question

Bir kullanıcı pencerenin sağ üst köşesindeki x düğmesini kullanarak bir formu kapattığında bazı kod çalıştırmak istiyorum (excel elektronik tablosunda form yüküm var) açılır ve Excel'i gizler. Form kapandıktan sonra excel'ten çıkmak veya en azından kullanıcı el ile çıkabilmesi için bir kez daha excel'i göstermek istiyorum)

Form özelliklerine bakıldığında, Boşaltma özelliği yok, Ne zaman form kapalı olduğunda yürüten bir işlevi nasıl yapacağını anlayamıyorum.

Maalesef, bunu VB'de kodlamak bir seçenek değil, VBA olmalı.

Excel'i açığa çıkarmak için gereken kodun farkındayım ya da tamamen boşaltma olayından haberdar olmamaya çalışıyorum.

Answer 1

Bir formu kapatmak için VBA'da Unload Me'u kullanabilirsiniz. Hemen bunu hemen sonra Excel'i kapatmak için kodu koyun.

Answer 2

böyle bir şey deneyin: -

Private Sub Form1_FormClosing(sender as Object, e as FormClosingEventArgs) _ 
    Handles Form1.FormClosing 

    //Code you want to execute 

End Sub 

Answer 3

Bir meslektaşım Sen olarak UserForm QueryClose olayını kullanabilirsiniz

Private Sub userform_terminate() 

    'Code goes here 

End Sub 

Answer 4

herkes için buraya dahil örnek cevap verebilmektedir aşağıdaki şekilde olabilir:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    If CloseMode = 0 Then 
     ' Your codes 
     ' Tip: If you want to prevent closing UserForm by Close (×) button in the right-top corner of the UserForm, just uncomment the following line: 
     ' Cancel = True 
    End If 
End Sub 

X düğmesini aşağıdaki kullanılarak tıklama iken kapatmasını formunu önlemek başardı

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    If CloseMode = vbFormControlMenu Then 
     'Your code goes here 
    End If 
End Sub 

Answer 5

Private Sub Form_Unload(Cancel As Integer) 
    Dim msgRes As VbMsgBoxResult 
    msgRes = MsgBox("Exit form ?", vbYesNo) 
    If msgRes = vbYes Then 
     'optional code 
    ElseIf msgRes = vbNo Then 
     Cancel = True 
    End If 
End Sub 

Answer 6

: yani bu gibi vbFormControlMenu kullanmak

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    Cancel = MsgBox("Please confirm cancellation", vbOKCancel + vbQuestion) = vbCancel 
End Sub