عادل ابوزيد

الاستاذ العزيز ابو حنين بعد اذنك ممكن توضع الكود فى ملف ولك جزيل الشكر والدعاء بالصحة والستر والعافيه ( حتى ولو لم تضعه فى ملف .. عادى )

السلام عليكم احبتى فى الله ممكن شرح للسطر Application.CommandBars.FindControl(ID:=887).Enabled = False

استاذى الفاضل عبد الله باقشير لك منى لك الحب والتقدير على ردك الكريم .. كما ارجو منك ان تكون طويل البال معى .. لاننى من النوع اللى فكره ممكن تجعله يجلس على الجهاز اوقات طويلة جداً للبحث عن حل لها . وهذا الموضوع اعجبنى جدا جداً جدددددد اً لانى عارف طالما مستوى امان الماكرو مرتفع فلا يعمل اى كود .. فوجدت مع ارتفاع الماكرو الكود الخاص بسعادتك اشتغل وعمل اقفال لنافذة الملف وطالما الكود اشتغل وانا صراحة مش عارف ديناميكية عمله ( وجاز ده اللى جعلنى اسأل كثير ) فده يجعل عندى رغبه فى توظيفه للحمايه الكاملة .. فكرت فى قفل محرر الاكواد مره ..ثم فكرت فى قفل الملف مره .. ثم فكرت فى جعل وظيفه unhide غير فعاله .. حتى لا يمكن ان نرى الملف دى الموضوع .. وارجو الا اكون قد اثقلت عليك .. وتقبل اعتذارى .. وتقدير شغفى على التعلم منك ومن امثالك العباقرة فى منتدانا الكبير

الاخ العزيز khhanna مبدئياَ اعجز عن ايجاد كلمات للتعبير عن شكرى وامتنانى لك إلا اننى ارجو منك لقلة فهمى ان تشرح لى الكود حيث اننى فهمت منه انه يقوم باخفاء العمود g فقط ولكن لا افهم ما يحدث بعد ذلك ثانياً : قاعدة if else حسب فهمى تستخدم عن تنفيذ امر بناء على شرط معين واذا لم يتحقق هذا الشرط يتم تنفيذ الامر الأخر إلا ان المطلوب تنفيذ الشرطين معاً بتحقق الشرط لك منى كل الحب والتقدير

استاذى الفاضل كما اشرتم من قبل المقصود بالكود هو اغلاق نافذة الاكسل إلا انه يمكن التغلب على هذا الكود باختيار قائمة window ثم اختيار unhide سيظهر الملف عادى واقترح على سيادتكم ان يتم جعل هذا الامر غير متاح .. ولكنى عجزت عن ذلك .. فهل من مساعده .. طالما انه يصعب اغلاق الملف عند تخفيض الماكرو .. فهذا حل بديل .. هل ممكن ام لا ؟ولكم الشكر

الاخوه العزاء هل يمكن بتحقق شرط معين وليكن ان تكون الخلية a1= 5 ان يقوم البرنامج باخفاء العمود g وان يكون امر unhide.. فى قائمة window غير فعال مع العلم ان سطر امر unhide.. هو Windows.Application.CommandBars("worksheet menu bar").Controls("window").Controls("unhide...").Enabled = False وسطر امر اخفاء العمود هو If Sheets("sheet1").Range("a1").Value ="5" Then Sheets("sheet1").Columns("g").EntireColumn.Hidden = True ولكم جزيل الشكر

الاستاذ طارق الاستاذ ابو حنين تسلم الايادى وهذه الابداعات

للرفع

اخ العزيز بارك الله فيك ولاثراء الموضوع هل يمكن عمل باسوورد للاظهار وللاخفاء

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

هذا ابداع الاستاذ عبد الله

للرفع

للرفع

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

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

استاذى العزيز طالما هناك فكرة بهذا الجمال لماذا لا نطورها 00 لنسمو بابداعاتنا 00 اذا امكن ؟

استاذنا الفاضل عبد الله باقشير يمكن شرح مع ملف يتم ارفاقه ولك الشكر

استاذنا الكريم الخالدى ممكن شرح العمل 00 كيف ربطنا الرقم مع البيانات الفرعية للبيان الرئيسى ؟؟؟؟

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

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

الاخوه الكرام هذا الموضوع مهم جداً جداً وان اخذت الموضوع من اكثر من زاويه الاولى : ربط ملف الاكسل عند الفتح يقوم بفتح ملف ريجيسترى بتخفيض الماكرو ... ولم يفلح الثانية : هناك كود لاستاذى عبد الله باقشير هذا الكود ينظر إلى مستوى الاماكن إذا كان عالى يقوم الاكسل بغلق الملف ... إلا انه حدث تعارض مع الاكواد الخاصة بملفى لانه يعتمد على حدثى Auto open ، Auto close وجارى التواصل مع الاستاذ عبد الله لعلاج ذلك وذلك ضمن المشاركه باسم ( كود للاستاذ عبد الله باقشير ) الثالثة : يوجد فى قسم اكواد الفيجوال بيسك مشاركه تطرح كود لتخفيض مستوى الامان وبتجرتها للاسف لم تنجح 000 ربما لم تنجح معى !!!! رابعاً : تحويل ملف الاكسل إلى ملف تنفيذى 000 ألا ان عند التحويل والتنصيب يمكن حفظ الملف باسم وسينتج ملف بامتداد xls عادى ولا زالت المشكلة قائمه لذا نرجوا بحث الموضوع وتوضيح آرائكم واقتراحاتكم والاستعانة بالخطوات التى تم اتخاذها ربما تم تنفيذها بطريقه خطأ لكم منى خالص الشكر والدعاء

استاذى القدير عبد الله باقشير بعد التحية والاحترام اشكر سعادتك على الرد ولك منى كل الحب والدعاء حيث تم تنفيذ نصيحتكم وتم ادماج كود الفتح مع بعض فى حدث Auto open فبحمد الله تم علاج مشكلة الفتح وبتنفيذ نفس التوجيه على حدث الغلق لم تعمل الاكواد الآتية بعد الغلق Windows.Application.DisplayFormulaBar = True Windows.Application.CommandBars("worksheet menu bar").Controls("Tools").Controls("Options...").Enabled = True Windows.Application.CommandBars("worksheet menu bar").Controls("Tools").Controls("Macro").Controls("Macros...").Enabled = True Windows.Application.CommandBars("worksheet menu bar").Controls("Tools").Controls("protection").Enabled = True Windows.Application.CommandBars("worksheet menu bar").Controls("view").Controls("Toolbars").Enabled = True Windows.Application.CommandBars("worksheet menu bar").Controls("view").Controls("formula bar").Enabled = True والغرض منها اظهار هذه الوظائف فى ملفات الاكسل التى تفتح بعد ذلك ولا تؤثر على برنامج الاكسل إلا ان تدمج الكودين فى حدث Auto close لا تعمل هذه الاكواد برجاء نصيحه سيادتكم فى هذا ... ونحن نتعلم من سيادتكم .. ولكم منا خالص الدعاء

up

up

البقاء لله وان لله وانا اليه راجعون اللهم اسكنها الجنة وتجاوز عن خطاياها واهدها صراطك المستقيم اللهم اجعل قبرها نورًا واجعل لها انساً ومأنسا اللهم امين يا رب العالمين