Yalnız Mesajı Göster
Eski 09-11-2017, 02:24  
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,520
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Merhaba, aşağıdaki kodu sayfanın kod bölümüne yapıştırın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = 1 Then
ActiveWorkbook.Save
Application.Quit
Else
MsgBox "hmmmm", vbInformation, "UYARI"
End If
End Sub

Aşağıdaki koduda BuÇalışmaKitabı (ThisWorkbook) kod bölümüne yapıştırın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Sayfa1").[A1] > 1 Then
MsgBox "hmmmm", vbInformation, "UYARI"
Cancel = True
End If
End Sub
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...

Bu mesaj en son " 09-11-2017 " tarihinde saat 03:05 itibariyle ASLAN7410 tarafından düzenlenmiştir....
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla