waly_misr قام بنشر يوليو 18, 2006 قام بنشر يوليو 18, 2006 السلام عليكم ورحمة الله وبركاته تمتعت كثيراً بتصفح المشاركات بالمنتدى ولفت نظرى بعض الأمثلة التى أرفقها بعض الأعضاء والتى تضمنت حذف لبعض الشرائط الأساسية فى واجهة اكسل أو الغائها تماماً واظهار البرنامج الذى تم تصميمة على اكسل بملء الشاشة وبدون اي شرائط فكيف يتم عمل مثل هذه الأمثلة بهذه الطريقة ؟ فعلى سبيل المثال فى المشاركة رقم 7 فى هذا الموضوع تم ارفاق ملف لا يحتوى على شريط العنوان وأصبحت كل تطبيقات اكسل عندى تفتح بهذه الطريقة فكيف يتم الغاء وتفعيل طريقة العرض وشكرا
helmy_foad قام بنشر يوليو 18, 2006 قام بنشر يوليو 18, 2006 حسناً يا اخى سأحاول ان أجيبك على قدر معلوماتى بالنسبة لسؤالك كيف يحدث هذا فهو عن طريق وضع أكواد برمجية vba ، و شرح هذة الطريقة متوفر بكثرة فى المنتدى ، فقط ما عليك سوى التصفح و البحث فى المنتدى ( كما فعلت أنا ، فقد دخلت هذا المنتدى لا أفقة شيئاً عن الأكسيل) ، و ستعرف كيف تقوم بعمل مثلها . أما السؤال الثانى فهذا ناتج عن خطأ فى برمجة ملف الإكسيل ، حيث لم يتم وضع كود برمجى يقوم بإعادة الأوضاع كما كانت علية ، عند إغلاق الملف ، فأنت تضع كود لإلغاء شريط الأدوات عند فتح الملف ، و كود أخر لإعادة شريط الأدوات عند إغلاق الملف . و الأن ماذا تفعل للتغلب على ما حدث عندك فى برنامج الإكسيل ؟ أغلق برناج الأكسيل أفتح قائمة start أضغط على الامر run أكتب regedit أختار HKEY_CURRENT_USER ثم software ثم microsoft ثم office ثم 10.0 ثم excel ثم option و هنا تقوم بالضغط كليك يمين ثم إختيار delete ، أى أنك تحذف المجلد option بكاملة ، و تعيد فتح الأكسيل ستجد كل شئ على ما يرام إن شاء الله
omar elhosseini قام بنشر يوليو 18, 2006 قام بنشر يوليو 18, 2006 (معدل) بسم الله الرحمن الرحيم الاخ helmy_foad بعد التحية يسعدنى اشارتك و استخدامك لطريقتى التى كنت ابنكرتها لحل مشاكل الاكسل المستعصية عن الحل فهذة الطريقة كنت توصلت اليها وقمت بشرح وافى لها فى هذا الرابط : http://www.officena.net/ib/index.php?s=&am...ost&p=54636 ولكن هذه الطريقة نلجأ اليها عندما لاتوجد حلول للمشكلة من داخل الاكسل - وفى حينها لم يتوصل احد الى حل مشكلة كليك يمين التى لاتعمل من داخل الاكسل فلجأت الى هذة الطريقة للتحكم بالاكسل رغم وجد حل لمشكلة كليك يمين من داخل الاكسل ولكنى وقتها لم اكن ملم بها ولكن الان استطعت التحكم بجميع قوائم وشرائط الادوات حتى القوائم والاوامر الفرعية من داخل الاكسل اى جميع اوامر الاكسل حتى ضربات المفاتيح الفردية والمركبة وكان هذا للعلم بالشئ والاستزادة 0 فأذا اراد احد اخفاء او اظهار اى امر او قائمة او تعطيل او تفعيل اى خاصية من خواص الاكسل او الغاء او تفعيل اى استخدام للمفاتيح الفردية او المركبة انا فى الخدمة . ولكن مشكلة الاخ waly_misr خارج هذا النطاق وابسط من ذلك بكثير فبتنفيذ الاكواد الاتية من داخل اى موديل بتم اظهار ما ارد Application.DisplayFullScreen = False Application.CommandBars("Worksheet Menu Bar").Enabled = True Application.CommandBars("Standard").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Drawing").Visible = False Application.DisplayFormulaBar = True Application.DisplayStatusBar = True وبذلك يستطبع الاخ waly_misr ان يتعلم التحكم بالامور وليس حل المشكلة بدون ان لايدرى ما هى . واذا كان اخى waly_misr لا يستطيع التعامل مع الاكواد بأمكانة تنفيذ الملف المرفق فقط فتطهر الادوات التى تم اخفائها . omar.rar تحياتى تم تعديل يوليو 18, 2006 بواسطه tameromar
helmy_foad قام بنشر يوليو 19, 2006 قام بنشر يوليو 19, 2006 الأخ tameromar و الله أنا لم أكن أعرف أن هذة الطريقة هى طريقتك الخاصة فى حل المشكلة ، أنا قرأتها من قبل و حفظتها عن ظهر قلب لأننى واجهتنى هذة المشكلة من قبل ، و لم أكن أذكر من الذى كتب هذة الطريقة ، و هل هى كانت مذكورة فى منتديات أوفيسنا ، أو فى أى منتديات أخرى ، فمعذرة أننى أستخدمت طريقتك دون الإشارة إلى أنك صاحبها . و بالفعل أنا الأن عندما أريد تصحيح أى خلل فى أشرطة الأدوات ، أقوم بإصلاحة من موديول جديد بة أوامر إظهار الأشرطة ، لكننى لاحظت أن الأخ waly_misr لا يزال فى البداية و لا يعرف عن الأكواد البرمجية كما يتضح من سؤاله ، لذلك أثرت إخبارة بهذة الطريقة التى ستساعدة فى تخطى المشكلة و أنتهز الفرصة لكى اسألك سؤالاً حول نفس الموضوع بعد عمل الحماية اللازمة للخلايا ، و حماية الشيت بكلمة سر ، و تكون جميع الخلايا مؤمنة و مخفية أيضاً ألاحظ أن فى بعض ملفات الأكسيل ، تكون الخلايا محمية من الإختيار أيضاً أى أنك لا تستطيع الوقوف أو الضغط عليها بالماوس ، أنا فقط أستطعت حماية الخلية من تعديل محتوياتها لكن كيف أحميها من أن تضغط عليها بالماوس ؟ و أشكرك مقدماً
omar elhosseini قام بنشر يوليو 19, 2006 قام بنشر يوليو 19, 2006 بسم الله الرحمن الرحيم الاخ helmy_foad بعد التحية يمكنك تجربة هذا الكود وهو يعمل فى المدى A1:A10 C1:C10 Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Application.Intersect(Target, Range("A1:A10,C1:C10")) Is Nothing Then [F11].Select End If End Sub او من خلال هذا المرفق ______________.rar
waly_misr قام بنشر يوليو 23, 2006 الكاتب قام بنشر يوليو 23, 2006 (معدل) مشكورين أخوانى helmy_foad و tameromar على ردودكم وتوجيهاتكم المفيدة وتمت التجربة بنجاح ومشكورين لمساعدتى ولى سؤال بالنسبة للأكواد المذكورة اين يتم كتابتها بالضبط فى الماكرو؟ وارجو أن يتسع صدركم وجميع الاخوه بالمنتدى فأعود واسألكم ان قابلتنى مشكلة مستقبلا مشكوريــــــــــــــــــــــــــن تم تعديل يوليو 23, 2006 بواسطه waly_misr
ابو احمد 3 قام بنشر يوليو 24, 2006 قام بنشر يوليو 24, 2006 السلام عليكم استاذ تامر فأذا اراد احد اخفاء او اظهار اى امر او قائمة او تعطيل او تفعيل اى خاصية من خواص الاكسل او الغاء او تفعيل اى استخدام للمفاتيح الفردية او المركبة انا فى الخدمة . استاذنا اريد كود او طريقة تبطل مفعول زر الاغلاق x فى الاكسل أوعلامة الاغلاق فى فورم مصمم فى الاكسل ولك الشكر فدائما انت سباق وشكرا
omar elhosseini قام بنشر يوليو 24, 2006 قام بنشر يوليو 24, 2006 بسم الله الرحمن الرحيم الاخ waly_misr بعد التحية بالنسبة لاكواد الاظهار قم بتشغيل الملف المرفق فى المشاركة رقم 3 والمسمى "omar.rar" بعد تشغيل الملف اضغط "ALT+F11" لتدخل الى محرر الاكواد ستجد فى الجهة البسرى "Modules" واسفلها "Module1" دبل كليك على "Module1" سيتظهر لك الاكواد فى الجهة اليمنى . تحياتى
omar elhosseini قام بنشر يوليو 24, 2006 قام بنشر يوليو 24, 2006 بسم الله الرحمن الرحيم الاخ ابو احمد 3 بعد التحية اخى الغاء خاصية غلق الملف تمنع غلق الملف الا من خلال "Task Manager" فلو تذكر لى اصل الفكرة او الى ماذا تريد ان تصل بهذة الفكرة قد اجد لك حل افضل . على العموم اليك ما طلبت بالمرفقات مع ملاحظة ان الملف من خلال الاكسل لن تستطيع اغلاقة ولكن من خلال ديسك توب الويندوز تستطيع اغلاقة عن طريق "Task Manager" _____________.rar تحياتى
ابو احمد 3 قام بنشر يوليو 25, 2006 قام بنشر يوليو 25, 2006 استاذ تامر شكرا جزيلا على سرعة ردك وعلى كرمك فى الاجابة اصل الفكرة انى اريد تنفيذ ما بهذا المرفق لو سمحت وان كنت ترى ان هناك طريقة اخرى تفى بالغرض فا اشر على بما ترى جزاك الله كل خير ____.rar
omar elhosseini قام بنشر يوليو 25, 2006 قام بنشر يوليو 25, 2006 بسم الله الرحمن الرحيم الاخ ابو احمد 3 بعد التحية كان يجب الانتهاء من تجهيز الفورم اولا ورغم عدم خبرتى فى التعامل مع النماذج وجدت لك هذا الكود فى خزانتى ضع الكود فى الفورم "M" Private Sub UserForm_QueryClose(Cancel As Integer, _ CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True End If End Sub واذا اردت عند محاولة اغلاق النموذج يتم اغلاق الملف اضف هذا السطر قبل " End If " : Application.Quit ليصبح كالاتى Private Sub UserForm_QueryClose(Cancel As Integer, _ CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True Application.Quit End If End Sub مع تحياتى
ابو احمد 3 قام بنشر يوليو 26, 2006 قام بنشر يوليو 26, 2006 الف شكر يا استاذ تامر والله انت رجل كريم فقد اعطيتنى كودين وليس كود واحد جزاك الله كل خير وزادك علما وبخصوص اكمال الفورم فسوف اكمله باذن الله لانى بصراحة قبل ماعرف الكود الذى ارسلته لى كنت لااجد فائدة للفورم طالما اى حد ممكن يقفلة من علامة الاغلاق x ام الان بفضل الله وكرمك سوف ابدأ فى استكمال الفورم واتمنى الا اقف في ذلك شكرا
الردود الموصى بها