Güven merkezi korumalı görünüm ayarı

[ASLAN7410]

Sayın PLİNT valla çok süper oldu ellerinize sağlık, çok teşekkür ederim.

Bahse kodun en alt satırlarındaki aşağıdaki kod arasına mesaj ekliyorum ancak mesaj çalışmıyor, bu mesajda olursa çok süper olacak. Şimdiden teşekkür ediyorum.

If s = vbNo Then
'VB Erişimine Güven
[B]MsgBox "Hiç bir işlem yapılmadı!..", vbInformation, "Uyarı"[/B]
Application.DisplayAlerts = False: Application.Quit

End If
End If

 

[PLİNT]

Alt bölümün "Application.DisplayAlerts = False: Application.Quit" bölümlerini silerek; "End If" lerini ayırmalısınız aşağıdaki gibi değiştirin.

'.....
 
MsgBox "İşlem başarıyla tamamlanmıştır.", vbInformation, "Uyarı"
[COLOR="Red"]End If

If s = VbNo Then
MsgBox "Hiç bir işlem yapılmadı!..", vbInformation, "Uyarı"
End If[/COLOR]

 

[ASLAN7410]

Sayın PLİNT hocam ellerinize sağlık çok teşekkür ederim, tam istediğim gibi Allah razı olsun.

Hayırlı geceler hayırlı çalışmalar.

 

[feridici_genc]

işi bilene bırakmak lazımmış demekki 15-16 tane mesaj attık bişi yapamadık

 

[ASLAN7410]

Sayın Ferdi Bey sizinde ilginiz ve emeğiniz için çok teşekkür ediyorum.

Belki birilerin işine yarar diyerek bu sayfayı ekliyorum.

Eklediğim sayfayı çalıştırdığında otomatik olarak makro güvenliğini en alt seviyeye ve korumalı görünüm modunu devre dışı bırakıyor, excel sayfası üzerinde sürekli ileti çubuğunda uyarı gelmiyor ve makrolar çalışıyor.