Değişiklikleri kaydetmeden çıkış makrosu.

[ahmetozbey]

"değişiklikleri kaydetmeden çık" butonu ile excelden çıkış yapmak istiyorum. msgbox lada uyarsın "kaydetmeden çıkmak istediğinize eminmisiniz" gibi
yardımcı olursanız sevinirim.

 

[abdi]

Private Sub CommandButton1_Click()

Dim cevap
cevap = MsgBox("değişiklikleri kaydetmek istiyormusunuz?", vbYesNo + vbQuestion + vbDefaultcmdsil + vbApplicationModal, "DİKKAT!")
If cevap = vbNo Then

ActiveWorkbook.Close
Else
'ActiveWorkbook.Save
End If

End Sub

 

[ahmetozbey]

bu kodları uyguladığımda hayır seçeneğini tıkladıkdan sonra excel in kendi msgbox formu açılarak değişikliklerin kaydedilmesi (evet-hayır-iptal.) mesajı alıyorum. halbuki bu mesajı almadan çıkış yapmak istiyorum.ve değişiklikler kaydedilmeden.

 

[abazya]

Bunu denermisin kaydetmeden çıkması gerekir

[vb:1:968adcc9fb]Sub çık()
Application.Quit
End Sub
[/vb:1:968adcc9fb]

Buda kaydetip çıkması gerekir.

[vb:1:968adcc9fb]Sub Bu_Kitabı_Kapat()
ThisWorkbook.Save
Application.Quit
End Sub[/vb:1:968adcc9fb]

 

[ahmetozbey]

maalesef olmuyor. excelin msg box u yine geliyor.

 

[abazya]

Deneyin, Zip proğramı içinden excel dosyasını çıkarın. Bir kaç kere açıp kapayın.

 

[ahmetozbey]

şimdi halloldu. ilgilendiğiniz için teşekkür ederim