محمد طاهر عرفه

السلام عليكم أخوتي الكرام ، بخصوص برامج فك الحماية ، الموضوع له شقان : الاول : استخدام البرنامج : اذا كان استخدام البرنامج لفك حماية الاخرين للاستفادة بجهدهم دون رغبتهم، فهذا بلا شك خطأ كبير . اما اذا كان لاسترجاع كلمة سر فقدتها ، و قد تعرضت لهذا الموقف اكثر من مرة ، او فك ملف من حق شركة مثلا و توجد كلمة سر وضعها موظف سابق ففي هذه الحالات ففك الحماية ضروري . اما الشق الثاني : و هو احقية استخدام برنامج فك الحماية دون ترخيص اري ان الاحوط تجنب ذلك من باب حقوق الاخرين و يمكن لمن يريد الحصول علي ترخيص بذلك من منتجي البرنامج و اذا كانت هناك فتاوي تبيح ذلك فنرجو وضع وصلاتها

فى الحالة العادية اذا فتح مستخدمان نفس الملف آنيا فان الثاني سيكون حالة تعامله مع الملف هي القرائة فقط اي لا يمكنهما التعديل فيه سويا اما اذا تم فتح الملف اولا بالطريقة التي ذكرها الاخ HS998 فانه سيتمكن المستخدم الاخر من التعديل فيه آنيا و عند الحفظ سيتم التنبيه بحفظ التعديلات للمستخدم الاخر ام لا بحسب ما ستختار من الخيارات المتقدمة كما سيلي لتعديل خيارات الحفظ و الاحتفاظ بتاريخ التغييرات انظر علامة التبويب الثانية المسماة متقدم ADVANCED من شاشة TOOLS SHARE WORKBOOK

http://www.officena.net/ib/index.php?showtopic=206

نعم يمكن اضافة اكثر من شيت كما يلي If MySheet.Name = "Sheet2" Or MySheet.Name = "Sheet3" Then

نعم هناك خطأ و تم تعديله و هو حذف exit for جرب الان

اضف السطر التالي بعد جملة For For Each MySheet In ActiveWorkbook.Worksheets If MySheet.Name = "Sheet2" Then و ذلك لاضافة شرط بان ورقة العمل اسمها sheet2 ثم اضف ال end , قبل end if End If End If و اغلاق جملة الشرط Find5.rar

الملف بعد التعديل ليصير البحث فى ورقة العمل الفاعلة فقط ملحوظة الملف الاصلي للاخ محمد حجازي Find4.rar

خريطة قناة اقرأ لشهر ديسمبر نقلتها لملف اكسيل لسهولة الطباعة و المتابعة مرفق الملف IQRA2.zip

الدوال التي ذكرتها تسترجع نتيجة واحدة و ليس كل ما يماثل الخيار المختار فما تريده يبدو ان استخدام ادوات التحليل المتقدمة انسب له مثل : الجداول المحورية او الفلاتر

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

أنشئي ملف الوورد بالصورة التي تعجبك و يمكنك ادراج الصور فيه ثم بعد ذلك احفظي الملف و يستحسن كون ذلك فى مجلد منفصل ثم بعد ذلك اختاري حفظ باسم ثم اختاري نوعية الملف من مربع الحوار الذي سيظهر اسفل مكان اسم الملف نوع الملف و اختاري نوع WEB PAGE

جرب الان

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

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

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

التحكم فى الاطار يتم عن طريق Application.WindowState و لها ثلاث قيم Application.WindowState = wdWindowStateNormal Application.WindowState = wdWindowStateMaximize Application.WindowState = wdWindowStateMinimize للعودة للوضع الطبيعي restore و التكبير و التصغير علي التوالي

يوجد بعض الحلول هنا http://www.officena.net/ib/index.php?showtopic=640 و لكن علي دالة sumif و طبعا المفهوم واحد

جرب التصدير الي ملف من الاكسبريس ثم الاستيراد منه الي الاوتلوك المفترض ان هذا لن يحدث

نعم بالفعل :( و لكن يبدو أنه يقصد الاكسيل فالاكسيس ليس به خلايا ، كما لا يمكننا التلوين فيه في وضع التشغل بطريقة مباشرة

لا يمكن الرد المباشر حيث أن صيغة ال pdf هي احدي الصيغ التي يتم التحويل اليها كمنتج نهائي و ليس كبيانات قابلة للتعديل و لنقل البيانات الي اكسيل اختار الاداة select text ثم علم الي البيانات المطلوب نقلها ثم انسخها و الصقها فى الاكسيل هذا فى الاصدار رقم 6 ال برفيشينال اما فى رقم 7 فيمكنك بعد الاختيار ان تختار خيار OCR و من بعده تنفذ النسخ و اللصق و درجة مناسبة البيانات الملصوقة سيكون مختلفا تبعا للملف نفسه

هناك برامج تستخدم لاخذ لقطات للشاشة screen shots و تحويلها الي صور ومنها برنامج snagit paintshoppro

يمكنك الانطلاق من هذا المثال و تعديله ليناسب رغبتك إختيار مجموعة خلايا عن طريق لون خلفيتها, ( فى مجال محدد ) http://www.officena.net/ib/index.php?showtopic=21&hl=

لتعميم الكود علي كامل العمود A فى ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub If Range("a" & Target.Row).Value <= 6 Then Range("a" & Target.Row).Offset(0, 1).Range("A1:E1").Interior.ColorIndex = 6 Else Range("a" & Target.Row).Offset(0, 1).Range("A1:E1").Interior.ColorIndex = 0 End If End Sub اذا كتبت اي رقم اقل او يساوي 6 فى العمود رقم A فى اي خلية سيتم تلوين خمسة خلايا مجاورة و اذا كتبت اكثر من 6 سيتم ازالة اللون و يمكنك التحكم فى المعيار من السطر If Range("a" & Target.Row).Value <= 6 Then بان تجعله = 7 <7 >=10 كما يناسبك كما يوجد حل آخر فى ورقة العمل الثامية باستخدام التنسيق الشرطي و لكن يعيبه انك اذا تركت الخلية خالية ستتلون الخلايا المجاورة كانها اقل من 6 ColorcellsBasedonVal.zip

موضوع ذو صلة مقارنة قيمتين فى خليتين مع التنبيه مقارنة السحب بالرصيد (خليتين محددتين) http://www.officena.net/ib/index.php?showt...=2609&hl=مقارنة

موضوع ذو صلة مقارنة قيمتين فى عمود السحب و الرصيد و منع زيادة السحب عن الرصيد (عمود بالكامل) http://www.officena.net/ib/index.php?showt...=2633&hl=مقارنة