ارجو المساعده فى تطبيق كود عدم ظهور نافذة ملف الاكسل في حالة تعطيل الماكرو

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم
الاخوة الكرام 

حاول ادراج كود فى المديول رقم 11 لاخ عبد الله 
وكان الغرض منه عدم فتخ الملف الا اذا كان درجه الامان للماكرو منخفضه .... ولاكنه لا يعمل ... هل يوجد تعارض بين الاكواد 
لهذا ...ارجو المساعده 

مرفق الملف المراد العمل عليه 

 

موضع الاخ عبد الله 

http://www.officena.net/ib/index.php?showtopic=42107

 

 

 

Option Explicit

Sub Auto_Open()
kh_wVisible True
End Sub

Sub Auto_Close()
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
End Sub


Sub kh_wVisible(ibol As Boolean)
Dim nBook As String
nBook = ThisWorkbook.Name
With Windows(nBook)
If .Visible = Not ibol Then .Visible = ibol
End With
End Sub

مانفست طارق.rar

[۩◊۩ أبو حنين ۩◊۩]

للرفع

    

للرفع

[۩◊۩ أبو حنين ۩◊۩]

للرفع

[۩◊۩ أبو حنين ۩◊۩]

للرفع

 

[۩◊۩ أبو حنين ۩◊۩]

للرفع