أ / محمد صالح

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

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

كما وعدت احبابي فيديو شرح كيفية استعمال الأداة الإضافية ولا ينقصني سوى دعاؤكم

لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح يرجى من السادة المشرفين حذف هذا السطر بعد تحديث المشاركة الأولى بمضمون هذه المشاركة وبإذن الله سيتم رفع فيديو لشرح كيفية استعمال الأداة MasNoPass.rar

ما شاء الله بارك الله لكم ومن الممكن وضع الكود في حدث عن تنشيط الصفحة وهذا يعني بمجرد فنح الصفحة يتم الذهاب لأول خلية فارغة في العمود h Private Sub Worksheet_Activate() ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Select End Sub ولكن وضع الكود في حدث تغيير التحديد لا يفي بالغرض المطلوب

بارك الله لك أخي الكريم عبد الله وإذا سمحت لي يمكننا زيادة سرعة البحث والتعامل مع الملف بهذه التعديلات البسيطة بانتظار رأيك ورأي الإخوة الكرام أعضاء أوفيسنا ملحوظة: تم حذف جميع الأزرار واستبدالها بضغطات تم تلوين الآية في الشيت نموذج بحث سريع في القرآن الكريم1.rar

ما شاء الله بارك الله لكم جميعا ولكن لماذا العمود الإضافي الأيسر ويمكننا جمع الأرقام وهي في العمودين مباشرة بهذه المعادلة وتوضع في F14 =SUM(G8:G13;SUM(F8:F13)/100) وفقنا الله وإياكم لكل خير

أخي الكريم أولا لكي يحتوي الملف على أكواد فتح الملفات المكتوبة في الخليتين يجب أن يكون امتداده xls أو xlsm ثانيا يمكنك استعمال هذا الكود لفتح الملف Sub openfile() Workbooks.Open ("C:\" & Range("d3").Value & "-" & Range("e3").Value & ".xlsx") End Sub وفي الأخير مرفق ملفك بعد التعديل mas-AUG-4.rar

بارك الله فيك يا أم عبد الله وهذا رابط لملف إكسل على one drive بعد تعديل التصميم وتبسيطه وإكمال الصنفين الناقصين https://skydrive.live.com/redir?resid=3EF13269C8B4C11F!2433 يمكنك فتحه بدون أوفيس من المستعرض مباشرة للتعديل اضغط على edit workbook ثم edit in excel online

تفضل أخي الكريم هذا الكود كنت أستعمله في الأكسس وقمت بتجربته في الإكسل فعمل بصورة رائعة كود لجعل كلمة المرور في inputbox تظهر كنجوم تجده في المرفق ومثال على استخدامه inputbox with password mask.rar

الأخ الكريم مختار الملف بعد تعديلي يعمل 100% كما اخبرتك سابقا ولا أدري أين الخطأ عندك وهذا تسجيل للشاشة يؤكد عمل الملف وبالنسبة للكود الجديد الخاص بحذف الملف بعد دقيقة يمكنك تغييره إلى يوم بجعل الرقم 1 الموجود في السطر الثاني 1440 وهو حاصل ضرب 24 ساعة في 60 دقيقة وهكذا وأنصحك بالقراءة في مشاركات المنتدى لمعرفة الأساسيات قبل التعمق والتعديل في ملفات الزملاء

أخي الكريم مختار لقد نفذت المطلوب بدون الاهتمام باختبار الكود لكن يبدو أن الكود به بعض النقص فقمت بتغيير الإجرائين وهما يعملان 100% الإجراء الأول لوضع تاريخ اليوم في آخر خلية في الشيت إذا لم تكن موضوعة وإذا كانت موضوعة يتم اختبار المدة الموحددة في المتغير days بالأيام والإجراء الثاني لحذف الملف الحالي بعد إكمال النقص به mas_killmyself.rar

كل عام أنتم بخير المطلوب الأول يمكنك تعديل كود السطر 17 If Date > Evaluate("InitialDate") + 30 Then Kill_Myself بتعديل رقم 30 وهو عدد الأيام إلى 730 لسنتين أو 1095 لثلاث سنوات حاصل ضرب 365 في عدد السنوات المطلوب الثاني للتأكد افتح الملف أولا ليتم تحديد تاريخ اليوم كتاريخ أولي ثم قدّم تاريخ الجهاز سنة إلا دقيقة يعني سنة إلا يوم ثم اجعل الساعة 23:59 وبعد دقيقة واحدة سيتم حذا الملف المطلوب الثالث لا يوجد كود لعمل مثل هذا لأنه سيغير خصائص الويندوز لدى العميل ولكن يوجد كود بالمنتدى لتشغيل الملف من مسار معين وباسم معين وإذا تغير الاسم أو المسار يقوم بإغلاق الملف

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

حسبة برمة 301

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

وهذا هو الشكل الجديد للصفحة بعد استعمال الأجاكس واستدعاء الدالة عند كل تغيير في مكونات النموذج https://officena.net/team/mas/tafkeet/ وفقنا الله وإياكم لكل ما يحب ويرضى

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

بسم الله الرحمن الرحيم أنا مش فاهم المطلوب بالضبط هل هو عدم فتح ملف مفتوح فهذا موجود بالفعل فالإكسل يظهر رسالة يقول لا يمكن فتح الملف لأنه مفتوح وإذا كان المطلوب هو إمكانية فتح أكثر من نسخة من الملف فهذا موجود من خلال فتح الملف في نافذة جديدة ويظهر في آخر اسم الملف 1 أو 2 أو 3 حسب عدد النوافذ ياريت مزيد من التوضيح للمطلوب وما استخدامه الفعلي ربما يجد الأخ السائل ما يسره

بسم الله الرحمن الرحيم يسعدني أن أقدم لأحبتي في الله رواد أوفيسنا برنامج إكسل يمكنك من حساب النقاط في كأس الأمم الإفريقية 2013 ولا تنسوني من صالح دعائكم

عذرا أخي الموسى نظرا لانشغالي أتمنى أن يفيدك هذا الرابط http://www.accessmvp.com/KDSnell/EXCEL_Import.htm وهو يخص الكثير من طرق الاستيراد من الإكسل

موقع جريدة الفجر http://fajr.tagipedia.net/

شكرا لك أخي يوسف تصحيح بسيط لموقع اليوم السابع http://natega5.youm7.com/nategathanawy2012.aspx

أخي الكريم أبا ردينة هذا هو الكود الخاص بالصفحة لمن يريد وضعه في موقعه newprayer.rar

ما شاء الله بارك الله لك أخي عبد الله وزادك الله من علمه وكل عام أنتم جميعا بكل خير