أبوعبد الله

أخي العزيز / جلال أشكرك على كلامك العذب وبالنسبة لظهور الخطأ في ملفك كان بالتأكيد لأنك أدخلت كلمة الحماية 123 والتي لم تكون موجودة في ملفك حتى يطابقها الكود ويسسمح لك بإظهار الأوراق المخفية وقد قمت بإضافة كلمة الحماية وهي موجودة في نطاق معرف بإسم P_W في الخلية AV65536 من Sheet3 وتستطيع تغيير كلمة المرور بالنطاق / الخلية المشار إليها من NAME MANAGER . تقبل تحياتي أبو عبدالله فورم جلال.rar

أخي العزيز / أبو البراء أشكرك على طرح الموضوع وأشكر أخي العزيز يحيى حسين وأخي الحبيب خبور على ما قدموه من حلول ولإثراء الفكرة مرفق ملف فيه التفاصيل وبه إمكانية تحديدك لأي نطاق به تعليقات حتى لو لم يحتوي بالكامل على تعليقات واإمكانية تحديدك للخلية أو النطاق الهدف الذي تريد وضع التعليقات به ، أرجو أن يكون هذا طلبك وزيادة شوية من أجل البراء . تحياتي أبو عبدالله نسخ ولصق نص التعليقات.rar

أخي العزيز هل تقصد هذا الموجود بالمرفق إذا كان غير ما تقصد فأرفق ملف يوضح المطلوب . تحياتي أبو عبدالله NO ZERO IF BLANK.rar

أخي العزيز / جلال أكرر شكري الجزيل لك ففي ملاحظتك إثراء للفكرة فجزاك الله كل خير تحياتي أبو عبدالله

أخي العزيز ربما لم أفهم بالتفصيل ما تريد ولكن إن كان ما ترغب به هو إمكانية إضافة صفوف مهما كان عددهابنفس تنسيق ومعادلات الصفوف التي قبلها مع إبقاء الحماية على العمود( I ) والذي يحوي معادلة فربما يكون طلبك في المرفق والذي يعتمد فكرة إضافة صفوف من خلال نقرة مزدوجة على الصف الذي تريد إضافة صفوف أسفله بالعمود الأول بالجدول ( F ) كم جاء بملفك فسيظهر لك INPUTBOX وبه رقم 1 كرقم إفتراضي لعدد الصفوف المطلوب إضافتها إضغط ENTER أو غير الرقم بحسب ما تريد من عدد لصفوف المضافة ثم ENTER فسيتم إضافة ما تريد من صفوف بها المعادلات والتنسيق لنفس الصف الذي تضيف أسفله ودون فك حماية عمود المعادلات وعلى فكرة كلمة الحماية للورقة هي 123 أرجو أن يكون هذا طلبك وإن كان ليس كذلك فأرجو التوضيح لعمل اللازم إن شاء الله . تحياتي أبو عبدالله CREATE LIST.rar

إخواني الأعزاء أخي الحبيب / أحمد يعقوب أخي الحبيب / خبور خير أخي العزيز / خالد القدس أخي العزيز / مزلزل أخي العزيز / dah_med أخي العزيز / galal_mk أخي العزيز / سيف القدس أخي العزيز / HaNcOcK أشكركم جميعاً من كل قلبي على مروركم وكلماتكم الجميلة وجزاكم الله كل خير . أخي العزيز / galal_mk بخصوص ملحوظتك فهي قيمة ولذلك تم أخذها بالاعتبار في الملف المرفق والذي به خاصية حماية مزدوجة على إظهار الأوراق الحماية الأولى وهي كلمة حماية وهي 123 موجودة بالنطاق المسمى P_W بالورقة رقم 7 ومن ثم تستطيع تغييرها أقصد كلمة الحماية وهذا لمن أراد استخدام الفورم في إظهار الأوراق المخفية ، أما الحماية الثانية فهي ضد إظهار الأوراق المخفية إلا عن طريق الفورم ، أقصد أنه لو حاول المستخدم إظهار الأوراق من علامة تبويب أي ورقة غير مخفية فسيجد أن خيار إظهار الأوراق - UNHIDE غير نشط . أرجو أن يكون في هذا حلاً مناسباً لم أشرت إليه وأشكرك على ملاحظتك مرة أخرى . تحياتي أبو عبدالله USERFORM TO HIDE UNHIDE SELECTED SHEETS WITH PW.rar

إخواني الأعزاء هذا فورم يمكن معه إخفاء أو إظهار ما ترغب به من أوراق باستثناء ورقة واحدة وهي الورقة الأخيرة مع إمكانية استدعاء الفورم من أي مكان ب CONTROL+SHIFT+S واخترت S من SHOW وتستطيع تغيير الحرف من الكود ، وأريد أن ألفت النظر إلى أهمية قراءة الملاحظات التي تظهر بوضع الماوس على قائمة اختيار الأوراق ومفاتيح "إخفاء الأوراق المختارة" و إظهار الأوراق المختارة" . أعلم أن الموضوع قد أُشبع بحثاً وهناك مشاركات مختلفة في نفس الإطار ولكن ربما يكون في هذه المشاركة إضافة مفيدة . تقبلوا حبي وتحياتي أبو عبدالله فورم لإختيار ما ترغب بإخفاؤه أو إظهاره من أوراق مع إمكانية استدعائه من أي مكان.rar

أخي العزيز اطلع على المرفق وبه طلبك إن شاء الله . تحياتي أبو عبدالله yes no cancel.rar

أخي العزيز / يحيى حسين معلومة قيمة فلك جزيل الشكر . أبو عبدالله

أخي العزيز خالد إضافة إلى تعديل أخي العزيز أبو أسامة فربما أكون قد سلكت طريق آخر وكل الطرق تؤدي إن شاء الله للخير - تم تغيير إسم الورقة في ال vbe إلى Sheet4 وتم تعديل الكود على أساس إسم الورقة الجديد وهو يعمل جيداً كما ستلاحظ في المرفق . تحياتي أبو عبدالله M5.rar

أخي العزيز / خالد استبدل في الكود إسم الورقة برقمها فمثلاً ورقة1 ستكون بدل ("ورقة1")Sheets تكتب (Sheets(1 وبذلك حتى لو غيرت إسم الورقة فلن يؤثر على الكود . أرجو أن تكون الفكرة واضحة . تحياتي أبو عبدالله

أخي العزيز إلى جانب الحل الذي تفضل به أخي عامر يوجد حل آخر وهو تحديد نطاق الخلايا التي تريد أن تكتب فيها صفر على يسار الرقم ثم اختيار تنسيق TEXT لهذه الخلايا وبذلك سيسمح لك بما تريد وفى حالة الكتابة بنمط العربي أو الإنجليزي . تحياتي أبو عبدالله

أخي العزيز أبو عبدة أولاً أشكرك على مرورك ثانياً أنت بين إخوانك في هذا المنتدى العامر لذا أرجو أن توضح وبالتفاصيل ما هي المشاكل التي تواجهها في التفاعل مع المنتدى والعمل عليه كما ذكرت ونحن جاهزون لعمل كل ما يلزم إن شاء الله . تحياتي أبو عبدالله

أخي العزيز خالد القدس أخي العزيز والحبيب وأستاذي اللي واحشني جداً هادي محمد المأمون سالم أخي الحبيب أحمد يعقوب أخي العزيز يحياوي أخي الحبيب وأستاذي خبور خير أختنا الفاضلة نور الرحمة أخي الحبيب سالم شباني أكيد كلنا نحب أوفيسنا لما لها من فضل بعد فضل الله تعالى علينا جميعافطالما كانت وستظل إن شاء الله قلعة ومنارة لنشر الخير والعلم والمعرفة وفوق كل ذلك كانت سبباً في معرفتنا ببعض إخواناً تجمعنا دائماً على المحبة والتواصل والتكافل في طلب ونشر كل ما هو مفيد فاللهم احفظ لنا هذا المنتدى الرائع والراقي بإدارته الرائعة وأعضائه الكرام . أشكركم جميعا وأتمنى لكم كل التوفيق أخوكم أبو عبدالله

إخواني الأعزاء هل نحب أوفيسنا ... ؟ سؤال هام يجب أن تجب فعلاً عليه وبصراحة ... ولك مطلق الحرية في الإجابة ... هذا السؤال يمكن الإجابةعليه من خلال الاستبيان المرفق . تحياتي أبو عبدالله هل تحب أوفيسنا.rar

أخي العزيز / خالد القدس أشكرك على مرورك وكلماتك العذبة ومجاملتك اللطيفة، وهذه نسخة من الملف أضفت لك فيها صفحة مميزة . تقبل تحياتي أبو عبدالله فورم لاختيار ورقة والذهاب إليها مع إمكانية استدعائه بأي ورقة-1.rar

اخي العزيز أحمد عمل متميز من عضو متميزفلك كل الشكر . أبو عبدالله

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

أخي العزيز / skyblue أشكرك على اهتمامك وسؤالك والحمد لله المرة دي عدت على خير بخصوص موضوع المطر وقدرت أروح الشغل ومر اليوم على خيروالحمد لله ، أما عن التعديل الذي طلبته فستجده بالملف المرفق إن شاء الله . تقبل تحياتي أبو عبدالله حماية نطاق بشرط.rar

إخواني الأعزاء هذا فورم للبحث عن ورقة بأول حروف في إسم الورقة والذهاب اليها مباشرة مع إمكانية استدعاء الفورم في حال قمت بإغلاقه وذلك باستخدام مفاتيح CONTROL+SHIFT+G وإذا نسيت هذه المعلومات فلا تنسى أن تقف بالماوس وليس المؤشر على ال COMBOBOX وعلى مفتاح " إنهاء " وطبعاً يتم تحديث قائمة البحث تلقائياً عند إضافة أي أوراق جديدة . نظراً لوجود خلل في رفع الملفات بالمنتدى فقد تم رفع الملف بموقع لرفع الملفات وبالتالي يمكن تنزيله من خلال الرابط التالي قم بنسخ الرابط بالكامل والصقه في ال ADDRESS BAR: http://upload.9q9q.net/file/QTPIJElMKGf/فورم لاختيار ورقة والذهاب إليها مع إمكانية استدعائه بأي ورقة.xls.html تحياتي أبو عبدالله فورم لاختيار ورقة والذهاب إليها مع إمكانية استدعائه بأي ورقة.rar

أخي العزيز / skyblue حاولت رفع الملف عدة مرات ولم أتمكن لوجود خلل في رفع الملفات ولكن حلاً للموضوع في حدود المتاح قم باستبدال الكود الموجود في ملفك بهذا الكود وسيتم تنفيذ ما تطلب إن شاء الله . Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Select Case Target.Value Case Is = "احمد", "علي" ActiveSheet.Unprotect [d8] = "علوم" [d9] = "فقه" [d10] = "رياضيات" [e8] = "" [e9] = "" [e10] = "" Range("E8:E10").Locked = True Range("D8:D10").Locked = False Target.Locked = False ActiveSheet.Protect Case Is = "يوسف", "ناصر" ActiveSheet.Unprotect [e8] = "علوم" [e9] = "فقه" [e10] = "رياضيات" [d8] = "" [d9] = "" [d10] = "" Range("D8:D10").Locked = True Range("E8:E10").Locked = False Target.Locked = False ActiveSheet.Protect End Select End If End Sub تحياتي أبو عبدالله

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

إخواني الأعزاء خالد القدس جمال حسين رشدان khhanna أشكركم جميعاً أخي khhanna الملف يعمل حسب ما ذكرت من طريقة ولا يوجد به أي مشكلة أما بخصوص الرسالة فذلك لإن القائمة هي قائمة منسدلة من خلال خاصية DATA VALIDATION وكان عليها منع لتسجيل أي شيء بخلاف القائمة المصدر ولكن هذه نسخة من نفس الملف وقد تم إلغاء ظهور الرسالة وإمكانية إضافة أسماء غير موجودة بالقائمة مع الحفاظ على ميزة البحث بأول حرف أو حروف من الإسم بنفس الطريقة - إضغط BACK SPACE في أي خلية ثم اكتب أول حرف أو حرفين من الإسم المطلوب البحث عنه ثم اضغط CONTROL مع سهم لإسفل واتبع باقي التعليمات . تحياتي أبو عبدالله البحث في قائمة -1.rar

أخي العزيز / عامر حركات حلوة من عضو مميز أشكرك . أبو عبدالله

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