محمد ايمن

مشكور اخي على الرد و لكن للاسف هناك مشكلة الكود لا ينسخ كافة الاعمدة

الاصدقاء الاكارم تحية طيبة الكود التالي ينسخ الخلايا الظاهرة فقط الى مصفوفة توجد مشكلة وهي ان الكود يخزن الخلايا المتسلسلة فقط في الصورة الخلايا المحددة حسب التاريخ هي من 1 الى 12 و الخلية 16 يتم تخزين الخلايا من 1 الى 12 فقط ماهو الحل ليتم تخزين كافة الخلايا ضمن المصفوفة Public Sub FixInvoiceByArry() Dim rr1, i As Double, ii As Double, lr As Double, V1 As Variant Dim VInvoiceNumber As Long Dim VInvoiceValue As Double Dim VInvoiceDate As Variant Dim VInvoiceAddress As Variant If MsgBox("هل تريد تحديث الفواتير ؟", vbExclamation + vbMsgBoxRight + vbYesNo) = vbYes Then lr = sheet5.Cells(Rows.Count, 1).End(xlUp).Row rr1 = sheet5.Range("a2:G" & lr).SpecialCells(xlCellTypeVisible).EntireRow ReDim Preserve rr1(1 To UBound(rr1), 1 To 7) For i = 1 To UBound(rr1, 1) VInvoiceNumber = rr1(i, 3) VInvoiceDate = rr1(i, 2) If VInvoiceNumber <> 0 Then MsgBox rr1(i, 3) End If Next End If End Sub المصنف1.xlsm

الكود يظهر خيار نعم او لا !!!!

عذرا اخي الكريم لم افهم هذا السطر ( لا لأيام النسخ) يرجى التوضيح اكثر

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

تفضل اخي الكريم saad abed حماية برقم الماذر بورد.rar

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

سؤال للنقاش .. هل يوجد اي برنامج يتطلب وجود المبرمج لتفعيله ؟؟؟ ام ان البرنامج يطلب كود التفعيل(مثلا انترنت داونلود مانجر او نود ٣٢) او يعطيك رقم النسخة و تعطيه رقم التفعيل (مثلا كوريل درو او فوتوشوب) او يكون للبرنامج دنكل حماية (اغلب برامج المحاسبة يكون لها دنكل)

البرنامج مجاني اما بالنسبة لبرامج كسر الحماية اعتقد ان الاجابة هي لا (باستثناء البرنامج ذات نفسه فهو يستطيع القيام بعكس الحماية و اظهار الاكواد) و اي شيئ ترغب في الاستفسار عنه اطرح السؤال و ساجيبك عنه

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

تفضل اخي الكريم مع انني ضد فكرة حذف الملفات تلقائيا والسبب في بعض الاحيان تحتاج الى الرجوع لملف قديم للاطلاع على تعديل ما ملاحظة هامة جدا :: الكود يحذف كل الملفات في المجلد D:\Backup نسخة احتياطية مضغوطة.rar

تاكد من تمكين وحدات الماكرو اخي الكريم

الاصدقاء الاكارم تحية طيبة في هذا الموضوع سنتحدث عن حماية اكود vba داخل مصنف الاكسل في البداية اود التنبيه الى ان الموضوع منقول عن الاخ ياسر خليل الحماية تتم عن طريق برنامج evilclipy نقوم باخد نسخة احتياطية عن المصنف المرغوب تطبيق الحماية عليه نستخرج المجلد من الملف المضغوط و ننقل المصنف الى داخل المجلد نضفط زر shift و ننقر بالزر الايمن للفارة و نختار فتح نافذة الاوامر هنا ستظهر شاشة dos نكتب الكود التالي داخل محرر الاوامر dos مع مراعات اسم مصنف الاكسل وفي المثال هنا اسم المصنف هو test evilclippy.exe -u test.xlsm بعد تطبيق الحماية سيظهر ملف جديد بنفس اسم الملف الاصلي مضافا اليه evilclippy الاكواد ضمن هذا الملف محمية ولا يمكن الوصول اليها 😄 EvilClippy-master.zip

الاصدقاء الاكارم تحية طيبة في التطبيق التالي سنقوم بحماية ملف الاكسل عت طريق رقم الفلاش الميموري الحقيقي ( الرقم الذي لا يتغير ) خطوات التنفيذ : 1 - نقوم باستخراج رقم الفلاش ميموري الحقيقي 2 - نضيف الوحدة النمطية الى المصنف المطلوب حمايته 3- نفعل الحماية نبدأ على بركة الله 1 - في الملف المرفق يوجد زر امر يقوم باستخراج رقم الفلاش ميموري و تسجيله في الخلية a1 2 - نضيف الوحدة النمطية module2 الى الملف الذي نرغب بحمايته مع مراعات استبدال رقم الفلاش ميموري برقم الفلاش الموجودة لدينا حيث نقوم بوضع الرقم هنا If objItem.PNPDeviceID = "USBSTOR\DISK&VEN_TAKEMS&PROD_USB_RETRO&REV_5.00\011114007BC74103&0" Then 3 - نستدعي كود الحماية عند فتح المصنف Private Sub Workbook_Open() Call Pro End Sub حماية برقم الفلاشة الحقيقي.xlsm

الحمدلله تم الحل بواسطة الدالة cdate

تحية طيبة اخي علي بداية اشكرك على سرعة الرد ولكن للاسف ليس هذا هو المطلوب لاحظ الصورة 1 التاريخ يظهر بهذا الشكل الثلاثاء 3-3-2020 علما انه في شريط الصيغة 3/3/2020 اما عند الترحيل من يوزر فورم فهو يظهر و يكتب داخل الخلية بهذا الشكل الثلاثاء 3/3/2020 لاحظ الصورة 2

الاصدقاء الاكارم تحية طيبة لدي يوزر فورم لادخال البيانات الى صفحة اكسل والمشكلة هي صيغة التاريخ في صفحة الاكسل هي dddd dd-mm-yyyy استحدامت الدالة format لعرض تنسيق التاريخ بهذا الشكل في الفورم ولكن المشكلة عند الترحيل يتم ترحيل التاريخ بهذا الشكل مثلا الثلاثاء 10-4-2020 علما انه في خلية الاكسل يظهر التاريخ بهذا الشكل و لكن في شريط الصيغ يكون 10/4/2020 اتمنى ان اكون قد وفقت في الشرح المصنف1.xlsm

تفضل اخي وائل و عذرا على التاخير تعديل بمثال أ محمد أيمن.rar

تحديث جديد للتطبيق SQL1-2.rar

تحديث جديد للتطبيق ملاحظة : تم الاحتبار على نسخة SQL server 2005 SQL Database Bakup And Restor2.rar

وانت بالف الف خير و اعاده الله على الجميع بالخير و البركة جاري النظر بالموضوع اخي الكريم ارجو منك مراسلتي على الخاص لاني حاولت ولم تكن رسائلي تصلك

تحية طيبة اخي وائل البحث ضمن الجدول tbl_txt ضمن حقل txt والذي يحوي كافة الكلمات بشكل مجرد وهنا لا يوجد سوى حقل واحد يتم البحث ضمنه وهو حقل txt

هل يمكنك ارسال نسخة مصغرة عن قاعدة البيانات ؟؟

صحيح ولكن هنا يتم تطبيق المعايير برمجيا اخي وائل تحية طيبة و كل عام و انت بخير بعد التعمق اكثر في مثالك لديك حلين لا ثالث لهما لكن قبل الحل اود توضيح بعض الافكار الجدول Foaid يحتوي على عدة حقول طبعا يمكنك البحث ضمن هذه الحقول كما تشاء لكن عند البحث عليك مراعاة ان البحث سيكون في كلمات غير مجردة مثلا كلمة اربعة غير كلمة أربعة الجدول tbl_txt يحتوي على حقل نصي تجتمع فيه كل حقول الجدول Foaid ,ولكن بكلمات مجردة ( اي انه يتم تجريد الحرف من الهمزة و خلافه ) الحلول المتاحة حاليا الحل الأول البحث ضمن الجدول Foaid ضمن كافة الحقول مع مراعاة عدم تجريد الكلمات الحل الثاني البحث ضمن الجدول tbl_txt ضمن حقل txt والذي يحوي كافة الكلمات بشكل مجرد ارجو ان تكون قد اتضحت الفكرة و اي استفسار انا جاهز