hayıra basılırsa excel açılmasın

[euphrates55]

Private Sub Workbook_Open()
MsgBox "mesaj1" & vbNewLine & "mesaj2", vbInformation, "AAA"
MsgBox "Kabul mü?", vbYesNoCancel + vbQuestion, "Cevapla"
End Sub

kodların arasına, hayıra basıldığı zaman excelin açılmaması için nasıl bir kod ekleyebilirim.

 

[muygun]

Merhaba;

Dosyanın ThisWorkbook bölümüne;

Private Sub Workbook_Open()
Application.Visible = False 'Excel görünmesin
Dim Secim As VbMsgBoxResult

Secim = MsgBox("Kabul mü? (Evet / Hayır / İptal).", _
vbExclamation + vbYesNoCancel + vbDefaultButton3, "MsgBox Title")
If Secim = vbYes Then
Application.Visible = True 'Excel görünsün
MsgBox "Evet tuşunu seçtiniz.", vbInformation

ElseIf Secim = vbNo Then
MsgBox "Hayır tuşunu seçtiniz. (Excel KAPATILIYOR.)", vbCritical
Application.Quit

ElseIf Secim = vbCancel Then
Application.Visible = True 'Excel görünsün
MsgBox "İptal tuşunu seçtiniz. İŞLEM İPTAL.", vbQuestion

End If
End Sub

Kodlarını yerleştirerek deneyin.
İyi çalışmalar.

 

[euphrates55]

teşekkürler...