macro ile yazdırma görevini nasıl iptaledbilirim yardım

[algil]

Merhaba

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ile başlayan bir kodda daha sonraki aşamaların birinde If'li işlem sonuda yazdırma görevini nasıl iptal ettirebilirim. :kafa:

 

[VisualBasic]

Private Sub Workbook_BeforePrint(SuleymanUZUNKOPRU As Boolean)
  MsgBox "Beni Durdurunda Göreyim"
  If [A1] = "Dur Yazma Excel Kardeş" Then
    SuleymanUZUNKOPRU = True
    Exit Sub
  End If
  MsgBox "Durduramadınız değil mi?"
End Sub

A1 de Dur Yazma Excel Kardeş yazarsanız dediğiniz olacaktır.

:hey:

 

[algil]

Teşekkürler VisualBasic
bir şey sormak istiyorum. Bu "If" li önermelerde "eşit değil" se işlemin yapılmasını nasıl yaparız. Ben bir şeyler yaptım çalışıyor ama rap açına döndü. Herhalde bunun daha kısa ve pratik bir yolu vardır.

 

[VisualBasic]

if <> [A1] gibi yapılabilir.

 

[algil]

Teşekkürler
denedim oldu
hemde kısa sayılır.

    Parola = InputBox("Lütfen Parolayı giriniz", "Password", "")
  If Parola <> "1234ab*" Then
    MsgBox "Hatalı parola girişi yaptınız. Görev iptal edildi."
    Cancel = True
    Exit Sub
  End If