Kayıt engelenebilir mi?

[talip]

Selam arkadaşlar, :hey:

M56 hücresine veri girilmezse dosya kayıt yapmayı ve yazıcıdan çıktı almayı engeleyebilir mi?

 

[Ali]

Thisworkbook'a aşağıdaki kodları ekleyin

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheets("Sayfa1").Range("M56") = "" Then
MsgBox ("Yazdırılamıyor !" & vbNewLine & _
"M56 hücresini boş bırakamazsınız.")
Cancel = True
End If
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Sayfa1").Range("M56") = "" Then
MsgBox ("Kaydedilemiyor!" & vbNewLine & _
"M56 hücresini boş bırakamazsınız.")
Cancel = True
End If
End Sub

 

[talip]

Sn.fructose, verdiğiniz makro için çok teşekkür ederim, yalnız bir problem var benim çalışma kitabımda birden fazla sayfa var ve hepsinin ismi farklı, zaman içinde kullandıkça bu sayfalar çoğalıyor, acaba bu makroyu sayfa ismine bağlı kalmaksızın çalıştırabilir miyiz.? :? :?:

 

[Ali]

If Sheets("Sayfa1").Range("M56") = "" Then

olan kısmı

If Range("M56") = "" Then olarak ayarlayın

 

[schmetterling84]

:sinirli: ost: pucuk: :evil: :twisted: :gidiyorum:

 

[talip]

Sn.fructose,

Yardımlarınız için çok teşekkür ederim. :arkadas: k::

 

[baydeniro]

Paylaşım için teşekkürler.