kaydet butonu

[emre311]

Merhaba;
Veri kayıt formum var ve kaydetmesine aşağıdaki kod ile şart koydum kaydet butonunda çalışıyor fakat kayıtları yaptıktan sonra kaydede basmadan direk çıkış butonuna basarsa kaydet-kaydetme-iptal geliyo kaydete basdığında yine aynı uyarıyı veriyo ama düzeltmesini beklemeden direk kapatıyo. Bi fikri olan varmı.



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Unprotect Password:="367336"
Kriter1 = Sayfa11.[U5]
ActiveSheet.Range("A4:T4").AutoFilter
If WorksheetFunction.Sum(Range("T4:T3000")) > 0 Then
MsgBox "Kaydetmeniz için arıza kodlarını giriniz. Arıza kodu Girilmeyenler listelenmiştir."
SaveAsUI = True
Cancel = True
ActiveSheet.Range("A4:T4").AutoFilter
Selection.AutoFilter Field:=20, Criteria1:=Kriter1
Else
ActiveSheet.Range("A4:T4").AutoFilter
ActiveSheet.Protect Password:="367336", AllowFiltering:=True
End If
End Sub