Kapat düğmesi: boş hücre durumu

Question

Bu kodu buldum ve kusursuz çalışıyor. Ancak kapat düğmesine bastığımda, "Değişiklikleri kaydetmek için zayıflar mısınız?" Iletişim kutusu görüntülenir ve Evet'i seçersem, A hücresinde bir değerin olmaması için bir hata oluşur. Sonra dosyam otomatik olarak kapanır.

Bu nasıl önlenir ve belgede kalır?

Benim kodudur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
If ActiveSheet.Range("A1").Value = "" Then 
Cancel = True 
Response = MsgBox("Please enter a value in A1", vbCritical, "Error!") 
End If 
End Sub 

Answer 1

Eğer BeforeClose yerine BeforeSave kullanarak denediniz mi?

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
If ActiveSheet.Range("A1").Value = "" Then 
    Cancel = True 
    Response = MsgBox("Please enter a value in A1", vbCritical, "Error!") 
End If 
End Sub 

Selamlar