Yasser Fathi Albanna

عاشت الأسامى يا أ / ياسر فالبفعل أنت غالى شكرا جزيلا لتشجيعك لى

السادة الأفاضل أقدم لكم اليوم كود لعمل حفظ ذانى لملف الإكسيل يوضع الكود فى ThisWorkbook Sub workbook_beforeclose(cancel As Boolean) If Me.Saved = False Then Me.Save End Sub أتمنى أن يستفاد منه الجميع وشكرا مرفق ملف للتجربة قم بعمل أى تغيير داخل الشيت وأغلق الملف دون عمل حفظ وإفتحة ثانيا Auto Save Excel.rar

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

سلمت يمينك أخى الفاضل الأستاذ / ياسر جزاك الله كل الخير

جرب المرفق عله المطلوب PIVET TABEL.rar

سلمت يمينك أخى الأستاذ الفاضل / محمد الريفى جزاك الله خيرا على هذا الشرح العظيم جعله الله فى ميذان حسناتك

أخى الفاضل وحبيبى الغالى / ياسر بالفعل أنت عبقرى فى توصيل المعلومة زادك الله من العلم الكثير والكثير وجزاك الله كل الخير

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

الطريقة إضغط كليك يمين على ورقة 1 وإختار Protect Sheet إلغى علامات الصح كلها وضع علامة صح على اخر إختيار مع كتابة الباسوورد كما تريد وليكن 1 كما ذكرت وشكرا

تفضل أخى لعله المطلوب الباسوورد 1 تعديل واجهه.rar

سلمت يداك أخى خزانى ولكن لا تعطنى سمكة ولكن علمنى كيف أصطاد أريد معرفة تغيير إسم الشيت كما موضح بإسم حضرتك بالكود Sub khezzani1() Sheets("Home Screen").Select End Sub خلاص يا أ / خزانى عرفت الطريقة

أ / محمد صالح يشرفنى مرورك على موضوع لى جزاك الله كل الخير تقبل وافر إحترامى وتقديرى

أشكرك أخى أ / على المصرى على إهتمامك جزاك الله كل الخير

سلمت يداك أخى خزانى ولكن لا تعطنى سمكة ولكن علمنى كيف أصطاد أريد معرفة تغيير إسم الشيت كما موضح بإسم حضرتك بالكود Sub khezzani1() Sheets("Home Screen").Select End Sub

بالفعل أخى وأستاذى ومعلمى القدير كانت المشكلة بربط الأزرار بالماكرو بعد تعديل شكل الكود من ورقة 1 إلى Sheet1 ألف ألف شكر يا أ / ياسر تقبل تحياتى وتقديرى

اخى الحبيب ياسر بالفعل أنا لغيت المسافات ولسه المشكلة المشكلة إن مكان Sheet1 كان مكتوب بالعربى ورقة1 ولكن ما بيقبلش العربى فى محرر الأكواد مرفق شيت للتوضيح Yasser.rar

الرجاء الإفادة بعد إذن الجميع

أخى الفاضل أ / علي المصري شكرا لإهتمامك بسرعة الرد ولكنى حاولت تنفيذ إللى حضرتك كاتبه ولكنى لم أنجح وجاولت تغيير الكود إلى ولم يقبل Sub Sheet 1() Sheets("Home Screen").Select End Sub Sub Sheet 2() Sheets("Weekly Plan").Select End Sub Sub Sheet 3() Sheets("Visit Pharmacies").Select End Sub Sub Sheet 4() Sheets("Sales Branches").Select End Sub Sub Sheet 5() Sheets("Branches Stock").Select End Sub Sub Sheet 6() Sheets("Competition Report").Select End Sub أين الخطأ لأن اللغة العربية أى ورقة 1 تكتب داخل محرر الأكواد بلغة غريبة ويفشل عمل الكود

موضح أسفل كود لزر التنقل بين الصفحات يوجد به إسم ورقة 1 وورقة 2 وهكذا هل يمكن كتابة بدلا من ورقة 1 بالعربى إلى Sheet 1 لأن محرر الأكواد لا تظهر به اللغة العربية ولا يعمل الكود Sub ورقة1() Sheets("Home Screen").Select End Sub Sub ورقة2() Sheets("Weekly Plan").Select End Sub Sub ورقة3() Sheets("Visit Pharmacies").Select End Sub Sub ورقة4() Sheets("Sales Branches").Select End Sub Sub ورقة5() Sheets("Branches Stock").Select End Sub Sub ورقة6() Sheets("Competition Report").Select End Sub

عمل أكثر من رائع جزاك الله خيرا

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

يمكنك تنزيل البرنامج من الرابط التالى http://www.startimes.com/f.aspx?t=30727872 الفائدة للجميع

دائما سباق بخير السؤال أخى الفاضل / سعيد بيرم نسأل الله العلى القدير أن يطمئنا على السيدة الفاضلة / أم عبد الله وبارك الله فى حضرتك أ / سعيد

اخى الفاضل شاهد المرفق لعله المطلوب ayman.rar

اخى الفاضل ما هو نوع الأفس الذى تعمل عليه لأن كل أفس وله طريقة لتخفيض مستوى أمان الماكرو الرجاء الرجوع للرابط التالى http://www.officena.net/ib/index.php?showtopic=53438&hl=%2B%D8%AA%D8%AE%D9%81%D9%8A%D8%B6+%2B%D9%85%D8%B3%D8%AA%D9%88%D9%89#entry335885