تعديل كود

[ابو حمادة]

السلام عليكم ورحمة الله وبركاته

اتمني حد يرد عليا في طلبي دا

يوجد ماكرو اسمه 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

تم تعديل أكتوبر 15, 2015 بواسطه ابو احمد 17475

[ياسر العربى]

ياريت ترفق المثال لانه كدا  مش واضح  

وبعدين كتابته كدا فيها  غلط المفروض يبقي كدا 

kh_wVisible = False
kh_w.Visible = False

منتظر المرفق او التوضيح

تم تعديل أكتوبر 15, 2015 بواسطه ياسر العربى