نجوم المشاركات

بسم الله الرحمن الرحيم لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة 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 New_MasNoPass.rar

جزاك الله الجنة اخوي سليم سأجرب الآن جزاك الله الجنة اخوي سليم سأجرب الآن ــــــــــــ اسعدك الله .... ممتاز نجح الكود زادك الله علماً ونفع بك وبعلمك وبارك فيك

حرب هذا الماكرو Option Explicit Sub Del_row() Dim i As Long Dim lr As Long: lr = Cells(Rows.Count, 1).End(3).Row Range("CV2:CV" & lr).Formula = "=SUMPRODUCT(--(A2&B2&C2=$A$2:A2&$B$2:B2&$C$2:C2))" Range("CV2:CV" & lr).Value = Range("CV2:CV" & lr).Value For i = lr To 2 Step -1 If Cells(i, "CV") > 1 Then Cells(i, "CV").EntireRow.Delete Next Range("CV:CV").ClearContents End Sub الملف مرفق test salim.xlsm

اسف اخي الكريم لقد كان الاكسس معطل حينها تفضل طريقة جلب صورة.rar

ممكن تجرب هذا البرنامج setup_rvp-برنامج Remove VBA Password.zip وأيضا ممكن تبحث عن هذا البرنامج VBA Password Recovery 1.0.0 وبرنامج Passware Password Kit

أخى الكريم هذه الداة تصلح فقط للملف نفسه وليس لفك كلمة سر أكواد vba

السلام عليكم ورحمة الله استخدم هذا الكود Sub زر_ترحيل() Dim ws As Worksheet, Sh As Worksheet Set ws = Sheets("Names Data") Set Sh = Sheets("الترحيل") ws.Range("C10:C" & ws.Range("C" & Rows.Count).End(xlUp).Row).Copy Sh.Range("C10").PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

نعم يمكن بواسطة استخدام الاستعلام الجدولي وهذا يتم عمله بمعالج استعلامات اكسس من تبويب الاستعلامات اختر جديد ثم اختر استعلامات جدولية وسيكون مصدر هذا الاستعلام هو استعلامنا السابق تفضل : db.mdb

السلام عليكم ورحمة الله استخدم هذا الكود Sub زر_ترحيل() Dim ws As Worksheet, Sh As Worksheet Set ws = Sheets("Names Data") Set Sh = Sheets("الترحيل") ws.Range("A10:C" & ws.Range("C" & Rows.Count).End(xlUp).Row).Copy Sh.Range("A10").PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

تفضل أخى الكريم New Microsoft Office Excel Worksheet1.xlsx

وعليكم السلام تفضل استاذنا العزيز ، واتمنى ان يكون هو مطلوبك db.mdb

وعليكم السلام اخي تفضل الملف بعد التعديل بأمكانك تجد ماتشاء بمجرد البحث في المنتدى او البحث في اليوتيوب New folder.rar

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