Kaydet dedikten sonra koşula bağlı Msgbox uyarısı gelsin

[hopeful]

Merhabalar,

"Data" sayfasında A1 hücresindeki değer 1'den farklı ise kaydetme tuşuna basıldığında "A1 değeri 1 değil. Lütfen bu değeri 1 yapınız" uyarısını ekrana getirip dosyanın kaydetme yapmamasını ve A1 hücresine gidilmesini sağlayacak makro kodunu rica ediyorum. Eğer değer 1 ise, uyarıya gerek kalmaksızın kaydet yapabilsin.

Yardımınızı rica ederim.

 

[hamitcan]

Kodu, ThisWorkBook kısmına ekleyip dener misiniz ?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If [a1] <> 1 Then MsgBox "lütfen değeri 1 yapınız": Cancel = True
End Sub

 

[hopeful]

Kodu, ThisWorkBook kısmına ekleyip dener misiniz ?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If [a1] <> 1 Then MsgBox "lütfen değeri 1 yapınız": Cancel = True
End Sub

Modül içerisine kodu yapıştırdım. Ancak KAYDET butonuna bastığımda koşul sağlandığı halde herhangi bir uyarı mesajı gelmiyor.
Yardımcı olabilir misiniz

 

[hopeful]

Modül içerisine kodu yapıştırdım. Ancak KAYDET butonuna bastığımda koşul sağlandığı halde herhangi bir uyarı mesajı gelmiyor.
Yardımcı olabilir misiniz

"Thisworkbook" alanına yapıştırdım. Sorunsuz çalıştı. Teşekkürler