DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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