Excelin kapanmasını engelleme

[adigeturklim]

Merhaba değerli arkadaşlar,

Excel sayfasında DP391 nolu hücre içine bir formül koydum. Formül mantığında sonucu hep sıfır çıkmalı şeklinde çalışıyor. Sizlerden şöyle bir yardım alabilmem mümkünmüdür acaba;

DP391 hücresi sıfırdan büyük veya küçükse msgbox kutusunda beni uyarsın ve ben o hatayı giderip DP391 hücresini sıfıra eşitlemediğim sürece excelin kapanmasına izin vermesin. Bu mümkün müdür acaba?

Teşekkür ederim,

 

[Ömer]

Merhaba,

VBA ekranında "Bu çalışma kitabı" sayfasına kopyalayın.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    If Range("DP391") <> 0 Then
        MsgBox "DP391 Hücresi Sıfır Değil" & _
            Chr(10) & "Bu Yüzden Kapatamazsınız", vbCritical
        Cancel = True
    End If
    
End Sub

.

 

[adigeturklim]

Ömer Bey bağışlayın yazmayı unuttum bu sayfada başka bir kod var aynı sayfaya bu kodu ekleyebilir miyim?

 

[adigeturklim]

Sayfada şu kod var;

Sub sutunGizle()
Application.ScreenUpdating = False
For i = 4 To 210
If Cells(5, i).Value = [B3].Value Then
Columns(i).Hidden = False
Else
Columns(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3]) Is Nothing Then Exit Sub
Call sutunGizle
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[Ömer]

Eğer kodlarınız;

Private Sub Workbook_BeforeClose(Cancel As Boolean)

altında değilse ekleyebilirsiniz.

 

[Ömer]

Verdiğim kodları sayfanın kod bölümüne değil,

ThisWorkbook(Bu çalışma kitabı) bölümüne eklemeniz gerekir.

 

[adigeturklim]

Ömer bey söylediğiniz gibi ThisWorkbook alanına yapıştırdım, sorunsuz çalışıyor. Teşekkür ederim, kolay gelsin