محمد ايمن

الاصدقاء الاكارم تحية طيبة الكود التالي يقوم بعملية فلترة البيانات و نسخها الى صفحة جديدة باستخدام ADO و RecordSet المشكلة : عند فتح ( اكثر ) من مصنف اكسل الكود يقوم بفتح المصنف مرة ثانية للقراءة فقط و الكود يصبح بطيئ جدا جدا كيف يمكن حل المشكلة Sub testado() On Error GoTo ErrSub Dim SDate As Date Dim ii As Integer SDate = Date - Weekday(Date) Dim connection As New ADODB.connection connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & _ ";Extended Properties=""Excel 12.0;HDR=Yes;"";" Dim query As String Dim rs As New ADODB.Recordset ii=8 query = "select * from [subrs$] where [الاسم]='محمود' and [التاريخ]>=" & CDbl(SDate) rs.Open query, connection Sheets("ملخص الارصدة").Select Do While Not rs.EOF Sheets("ملخص الارصدة").Range("B" & ii) = rs.Fields(0) Sheets("ملخص الارصدة").Range("C" & ii) = rs.Fields(1) Sheets("ملخص الارصدة").Range("D" & ii) = rs.Fields(2) Sheets("ملخص الارصدة").Range("E" & ii) = rs.Fields(3) Sheets("ملخص الارصدة").Range("F" & ii) = rs.Fields(4) rs.MoveNext ii = ii + 1 Loop rs.Close ErrSub: If Err.Number <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description End Sub خطوات ظهور المشكلة 1- افتح اي مصنف اكسل 2- افتح الملف المرفق في مثيل جديد لاكسل 3- جرب الكود المصنف2.xlsm

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

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

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

الاصدقاء الاكارم تحية طيبة الكود التالي ينسخ الخلايا الظاهرة فقط الى مصفوفة توجد مشكلة وهي ان الكود يخزن الخلايا المتسلسلة فقط في الصورة الخلايا المحددة حسب التاريخ هي من 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