السلام عليكم ورحمة الله وبركاته
اتمني حد يرد عليا في طلبي دا
يوجد ماكرو اسمه kh_wVisible
عايز اضيفه مع الكود بنفس الطريقه في الكود وكل ماضيفه للاسف لا يعمل علما ان لاغي علامة x من العمل يعني الاكسل لا يغلق لو ضغطنا علي علامة ( x )
وعامل زر لاغلاق الاكسل
يريت اهل الخبرة يفدوني في اصلاح هذا الكود
الكود
Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next If Sheets(1).Range("a1").Value = 0 Then Cancel = True Else Cancel = False End If kh_wVisible False End Sub