ارجو المساعدة فى فتح الملف

[محمد مصطفى ابو حمزة]

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

ولكن لا استطيع رؤية البيانات

كلمة السر :4567891

وشكرا مقدما لاساتذتى الكرام

وارجو لمن يحل المشكلة ان يشرح الحل

بارك الله فيكم

mars 2013.rar

[خالد الشاعر]

استاذ محمد

 

المشكلة بالملف ان جميع اوراق الملف مخفية فاستخدم هذا الماكرو الخاص بعبقرى المنتدى

الاستاذ عبدالله باقشير

 

فى امر Private Sub Workbook_Open()
 

kh_wVisible True

 

وهذا هو الماكرو

 

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
 

[محمد مصطفى ابو حمزة]

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

ولكن هل ممكن تفسير لماذا حدث هذا

[عبدالله باقشير]

السلام عليكم

 

من القائمة عرض

في زر بجانب زر ترتيب الكل

هذا الزر يقوم باغلاق نافذة الاكسل اذاكانت مفتوحة

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

الظاهر انك دست على هذا الزر

فاختفت النافذة

 

والله اعلم

[عبدالله باقشير]

السلام عليكم

احسنت اخي كنانه

جزاكم الله خيرا

تقبل تحياتي وشكري

[خالد الشاعر]

استاذى عبد الله باقشير

 

هذه وسام منك فنحن نتعلم دائماً منك

 

استاذ محمد مصطفى

 

جزاكم الله كل خير

[محمد مصطفى ابو حمزة]

والله ليت الملف توقف من زمن لاشرف بردك على يا استاذنا الكبير و والله ما قلت هو ماحدث بارك الله لنا فيك وفى تلاميذك النجباء امثال اخى  

khhanna

[محمد مصطفى ابو حمزة]

هل لى فى الطمع من اخوانى واساتذتى فى المنتدى بتقييم الملف وابداء الرأى وهو ملف للمصروفات وتصفية العهد على مخازن مختلفة ويقوم بانشاء قيد وعند الطباعة يقوم بطباعة تفصيلى مصروفات على مراكز التكلفة وهى السيارات فى هذه الحالة

mars 2013.rar