عصام مسعد

الف شكر ممتاز

السلام عليكم كنت محتاج كود الغاء قيام المستخدم بعمل ALT + F8 مع الشكر

الله ينور عليك حلتلى مشكله ctrl + p نهائيا .

اريد كود لمنع المستخدم باستخدام ctrl + p وذلك فى ملف اكسل معين وايضا كود منع المستخدم الدخول على Options مع الشكر

الله ينور على حضرتك

اعتقد انه مطلوب رفع الملف مره اخرى بعد التعديل لانه فيه حاجات كثيره غير موجوده

جميل بس UserForm2 مش موجود

جميل ربنا يحفظك

ارفق مثالك أخي الفاضل عصام ووضح هل الخلايا التي بها أصفار تقع في آخر جدول أم انها في نطاق ؟ بملف مرفق يتضح الطلب أكثر لا ديه نفس الملف الذى حضرتك منزله وفى نفس نطاق الجدول وللتوضيح اكثر هرفق ملف . مع الشكر[ New Microsoft Excel Worksheet.rar

جميل بس ممكن كود يستبعد طباعه الخلايا التى به صفر

برجاء مساعدتى فى هذا الموضوع حيث اننى اريد ان يقوم البرنامج بعمل calculation Manual قبل ان يفتح الشاشه الرئيسيه فأين اضع الكود الخاص بذلك كما ارجو حل مشكله ctrl + p حيث تظهر شريط الادوات وللعلم اننى استخدم أوفيس 2010 مع الشكر

هل يوجد ايجابات اخرى

شوف الملف ديه

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

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

بسم الله الرحمن الرحيم الاخ الفاضل ابو حنين جزيل الشكر والتقدير لاكتشافك هذة الثغرة فهي فعلا نقطه هامه لذلك قم باستبدال كود اظهار الفورم بالكود التالى Sub Show_F2() If Sheets("My Account").Range("iv1").Value = "الدعم الفني" Then UserForm2.Show Else MsgBox " ليس لديك الصلاحيه " End If End Sub بس انا معنديش مشكله بالنسبه للنقطه ديه لاننى عامل باسورد ل vba فلا يمكن لاحد ان يعدل فى اى شىء خاص بالمايكرو - بس عندى سؤال انا محتاج قبل ما يفتح الشاشه الرئيسيه يقوم بفتح ملف اكسل جديد ثم يجعل Calculation Manual لاننى عامل هذا البرنامج الجميل على ملف حوالى 40 ميجا فعندما يفتح ياخذ وقت كبير فلذلك اقوم قبل فتح البرنامج بفتح شيت واوقف Calculation ثم افتح البرنامج . مع الشكر

عندى سؤال فى vba excel فيوجد شيت اكسل به كود خاص Paste Values وهذا الكود يعمل جيدا ولكن مشكلته انه بيوقف عمل undo و Redo فلا استطيع ان اعمل تراجع فهل يوجد كود افضل من ذلك Sub Macro1() Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub مع الشكر