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

جرب هذا الكود Sub Filter_me() Dim Ar_sh(), Itm Dim M As Worksheet Dim Ro%, t%, i%, k%, Y% Dim Cret As Range Dim Filter_rg As Range Set M = Sheets("Main") Set Cret = M.Range("A2:L3") With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With k = -1 For i = 1 To Sheets.Count If Sheets(i).Name <> M.Name Then k = k + 1 ReDim Preserve Ar_sh(k) Ar_sh(k) = Sheets(i).Name End If Next t = 8: Y = 8 M.Range("A8:N5000").ClearContents For Each Itm In Ar_sh With Sheets(Itm) If .FilterMode Then .ShowAllData Ro = .Cells(Rows.Count, 1).End(3).Row Set Filter_rg = .Cells(3, 1).Resize(Ro - 3, 12) Filter_rg.AdvancedFilter 1, Cret .Range("A4").Resize(Ro - 3, 12).SpecialCells(12).Copy M.Cells(t, 1).PasteSpecial (12) t = M.Cells(Rows.Count, 1).End(3).Row + 1 M.Cells(Y, "N").Resize(t - Y) = .Name Y = t If .FilterMode Then .ShowAllData End With Next Itm With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .CutCopyMode = False End With End Sub الملف مرفق Hadi.xlsm

جرب هذه المرفقات ولى عودة ان اعحبتكم فكرتى المتواضعة المرفق يحتوى على 3 ملفات 1- Archiving القاعدة الأمامية 2- TablesArchivingDB القاعدة الخلفية 3- Run My App هذا الملف المسؤل عن فتح التطبيق لاحظ الاتى كل من القاعدتان الأمامية والخلفية مفتوحتان مما يسهلان عليك كمبرمج الإضافة أو التعديل على التصميم بأى وقت وكذلك هما محميتان بكلمة مرور عند الفتح على اعلى تقدير يصعب جدا جدا جدا كسرها إن لم يكن من المستحيل كسر تلك الحماية القاعدة الوسيطة ( Run My App ) الخاصة بفتح التطبيق مشفرة الأكواد وتقوم بتمرير كلمات المرور فلا حاجة لنا بفتحها فى وقت لاحق وبذلك لن يتم تفعيل عمل مفتاح Shift كما أنه لن يمكن الحصول على كلمات مرور القاعدتان الامامية والخلفية حماية.zip

جرب هذا الملف Takrir.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF($B2="","",IFERROR(INDEX(الحالة!$C$2:$C$600,MATCH($B2,الحالة!$A$2:$A$600,0)),"عام")) 1يكتب خاص او عام.xlsx

هنا تحدثت عن امكانية كسر الحماية لهذه الطريقة التي تستخدم قاعدة بيانات محمية بكلمة مرور يتم الدخول لها من قاعدة اخرى وهي فكرة جميلة ومبتكرة لاخي واستاذي كاسر ولكن لفهم سبب حديثي عن امكانية كسرها لابد ان نشير الى ان طريقة تعامل اكسس تختلف في تشفيرها للنصوص في الجدول او النصوص في محرر الاكواد لكل من accdb او صيغة accde فهي تحمي النص في الجدول و لا تشفرة اذا كان في الكود مثال لكلمة المرور صيغة accdb 4B 40 73 65 72 77 77 77 24 30 66 69 63 65 6E 61 25 39 6F 36 ----------------------------------------------------------- K@serwww$0ficena%9o6 صيغة accde 4B 00 40 00 73 00 65 00 72 00 77 00 77 00 77 00 24 00 30 00 66 00 69 00 63 00 65 00 6E 00 61 00 25 00 39 00 6F 00 36 -------------------------------------------------------------------------------------------------------------------- K.@.s.e.r.w.w.w.$.0.f.i.c.e.n.a.%.9.o.6 وهنا محاولة ناجحة لفتح قاعدة بيانات accde استخدم فيها الاستاذ ازهر كلمة مرور في المحرر 👇 61 00 7A 00 68 00 72 00 31 00 39 00 37 00 39 -------------------------------------------- a.z.h.r.1.9.7.9 السؤال اين اجد هذه الرموز ضمن ملف يحتوي على عشرات الالوف من الرموز هنا نتوقف عن التصرريح ولكن نشير الى ان هناك دلائل يعرف المفككون السؤال الاخر لماذا نتحدث عن الموضوع ؟ الاجابة ذات شقين الموضوع يتحدث عن الحماية الكافية والتي في اعتقادي ليس لها وجود فهي نسبية تطوير هذه الطريقة الجميلة لاخي كاسر واعتقد اني قد فعلت والحر تكفيه الاشارة والله الموفق

السلام عليكم ورحمة الله وبركاته قد تختلف الحماية على حسب البرنامج نسخه للعرض او نسخه تم بيعه البرنامج الذي يتم بيعه يكون قد تم تحويله الى صيغة mde او صيغة accde مع بعض الحمية البسيطة مثل كتابة اسم الجهة التي يتم بيع البرنامج لها في التقرير بحيث قد يصعب التعديل عليه البعض يربط البرنامج برقم قطعة في الجهاز " لا انصح بذلك " اما النسخة التي تكون للعرض والتجربة فيختلف الوضع يجب وضع حماية لهذى النسخه مثل 1- ربط البرنامج برقم قطعة في الجهاز مثل رقم المعالج او المذر برد " اعتقد انه يوجد امثلة على ذلك في المنتدى " 2- زرع ملف في النظام " اذا وصل عدد السجلات الى عدد محدد يحذف هذى الملف تلقائي " وهو مطلوب لتشغيل البرنامج 3- ادخال عدد محدد من السجلات التي يتم حفظه في البرنامج 4- تفعيل البرنامج برقم من قبل المصمم " اعتقد انه يوجد مثال على ذلك ربما للأخ أبو عقيل " 5- ربط البرنامج بتاريخ محدد بعد هذى التاريخ يتم إيقاف البرنامج 6- السماح بتشغيل البرنامج لعدة مرات فقط 7- تشفير الجداول بعد انتهاء فترة التجربة او ادخال العدد المسموح به من السجلات "في حالة اذا تم الشراء البرنامج يتم فك الشفر عن الجداول من قبل المصمم" ويستمر البحث عن حماية الأفكار فهي لا تقل أهمية عن البرنامج ربما هناك بعض الطرق للحماية لنسخ العرض قد يذكرها بعض الاخوة لتعم الفائدة والله اعلم بالتوفيق إن شاء الله

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

بالنسبة لما يخص المبرمج فأنا اكتفي بتحويل المشروع الى صيغة mde او صيغة accde والمهم عندي هو حماية بيانات العميل .. وأكسس ضعيف في هذا الباب

السلام عليكم هذا البرنامج يسهل عملية الاختبار للطالب بالحاسوب الاسئلة من نوع اختيار من متعدد و صح وخطا عندما تفتح البرنامج تظهر لك صفحة الطالب ولاظهار صفحة المعلم انقر يمين الماوس واكتب 123 سيتم فتح صفحة المعلم بجيث يستطيع وضع الاسئلة وكتابة اسماء الطلاب والتحكم في عدد الاسئلة ومدة كل سوال تفضلوا الاختبار الحاسوبي.xlsm

السلام عليكم ورحمة الله ضع الكود الاول فى موديول مستقل Sub GetUniqueValues() Dim Rng As Range, Rng1 As Range Set Rng = Sheet2.Range("C5:C" & Sheet2.Range("C" & Rows.Count).End(3).Row + 1) Set Rng1 = Sheet2.Range("E5:E" & Sheet2.Range("E" & Rows.Count).End(3).Row + 1) Sheet1.Range("B2:B" & Sheet1.Range("B" & Rows.Count).End(3).Row).Name = "MyRange" Sheet1.Range("E2:E" & Sheet1.Range("E" & Rows.Count).End(3).Row).Name = "MyRange1" With Rng.Validation .Delete .Add xlValidateList, xlValidAlertStop, xlBetween, "=MyRange" End With With Rng1.Validation .Delete .Add xlValidateList, xlValidAlertStop, xlBetween, "=MyRange1" End With End Sub اما هذا الكود فيوضع فى فى حدث الورقة "الحافز" لا تنسى حفظ الملف بامتداد آخر حتى تستطيع حفظ الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 And Target.Row > 4 Or Target.Column = 5 And _ Target.Row > 4 And Target.Row > 4 Then GetUniqueValues End Sub

جزاء الله خيراً، ، وكتب الله مقامك في عليين، سلمت يمينك أخي الحبيب شحادة. من تقدم لتقدم دوماً إن شاء الله

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

اشكرك ...فعلا هنا افضل موقع للحلول البرمجية

محاولة أخرى مجموع كلي للساعات2.mdb

بالتأكيد السبب هو كثرة الأوامر داخل الاستعلام واسهل طريقة هي تجزئة الاستعلام انظر مثالك بعد التعديل نسبة الاستهلاك1 .rar

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

عبد الله السعيد كود الأستاذ سليم يعمل بكل كفاءة وليس هناك داعى لكل هذا فقط عليك تغيير هذا السطر بالكود If R > 10000 Then R = 2 الى If R > 2 Then R = 2 كله بسيط ان شاء الله .. اذا كنت تريد التاريخ بالخلية C1 على الرغم انك لم توضح ذلك سلفاً , فيصبح الكود هكذا Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim R R = Range("A2", Range("C1").End(4)).Rows.Count + 2 If R > 2 Then R = 2 If Target.Address = Cells(R, 1).Address _ And Target.Cells.Count = 1 _ And Target <> vbNullString Then Target.Offset(, 1) = _ IIf(Target.Offset(, 1) = vbNullString, _ Date, Target.Offset(, 1)) End If Application.EnableEvents = True End Sub وشكراً

وعليكم السلام 🙂 اول خطوة تعملها هو تصفية برنامجك من الشوائب ، عن طريق . واذا لازالت المشكلة مستمرة ، فنريد يا المرفق ، ويا الكود كاملا للتقرير (الكود اعلاه يصدر ملف pdf مرة واحدة ، بينما انت تقول انك تصدره عدة مرات) . جعفر

تسلم تسلم الله يبارك فيك ويرفع قدرك ألف شكر

تسلم أشكرك .. جزيت خيراً

ربما هذا ما تقصده Templete.xlsx

وعليكم السلام-اجعل المعادلة هكذا =IF($G6>$J$2,$J$2,$G6) الدرجة1.xlsx

اصبر فطلبك ليس بالسهل !! وما هى المشكلة ان تكون كل البيانات بملف واحد ؟!!

يبدو انك تريد عمل اهلاك للأصول انظر هنا

وعليكم السلام 🙂 رجاء مراعاة كتابة العنوان الصحيح في المرات القادمة 🙂 يجب تضبيط اعدادات الكمبيوتر ، هكذا جعفر

لا خلاف ان البيانات هي العنصر الاكثر قيمة مع ذلك فان الامرين مرتبطان كلما زادت حماية البرنامج زادت حماية البيانات والعكس صحيح y=ax

اخي احمد هذه الطريقة تقدم حماية جيده وفكرتها جميله ولكن عند الحديث عن الحماية الكافية بشكل مطلق اقول هذه الطريقة يمكن كسرها سواء كانت القاعدة بصيغة accdb او صيغة accde طبعا انا اتحدث من منطلق السؤال عن الحماية الكافية وانا ايضا اخي جعفر غير مهتم بموضوع الحماية

وعليكم السلام ومشاركه مع معلمنا العزيز جعفر جزاه الله عنا كل خير اضع لك رابط للاطلاع بالتوفيق

حذف البيانات فقط وليس حذف الصف الكود يفعل هذا الشيء (يمكنك التأكد بكناية اي شيء /خارج الجدول/ في صف تريد حذف بياناته )

وعليكم السلام 🙂 هناك العديد من المواضيع في المنتدى بهذا الخصوص ، ويمكنك ان تخبرنا الطريق التي اتبعتها في برنامجك ، لتحصل على آراء الاعضاء 🙂 الحماية ليست من تخصصي (يعني 99% من برامجي ليست فيها حماية) ، لهذا السبب فأنا أفضل ان يساعدنا بقية الاعضاء ذوي الخبرة 🙂 جعفر

الكود المطلوب Option Explicit Sub del_rows() Dim My_sh As Worksheet Dim Tabl As Range Dim Rg_Del As Range Dim MotB, Motc, i% Set My_sh = Sheets("Data") MotB = My_sh.Range("B2") Motc = My_sh.Range("C2") Set Tabl = My_sh.Range("G3", Range("K2").End(4)) If Tabl.Rows.Count > 10000 Then Exit Sub For i = 1 To Tabl.Rows.Count If Tabl.Cells(i, 1) = MotB _ And Tabl.Cells(i, 2) = Motc Then If Rg_Del Is Nothing Then Set Rg_Del = Tabl.Cells(i, 1).Resize(, 5) Else Set Rg_Del = _ Union(Rg_Del, Tabl.Cells(i, 1).Resize(, 5)) End If End If Next i If Not Rg_Del Is Nothing Then Rg_Del.Delete End If End Sub Fouri.xlsm

السلام عليكم ورحمة الله وبركاته استكمالا لسلسلة شرح الجمل الشرطية سنستحدث سلسلة اخرى تتعلق بكيفية استخدام الخلايا في ال vba وكان من المفروض البدء بها قبل شرح الجمل الشرطية لكونها تعتمد عليها في بعض الجوانب وسيتم تناول ثلاثة مواضيع بالتناوب وهي : 1. استخدام جمل ال range 2. استخدام جمل ال cells 3. استخدام جمل ال offset وسنبدأ بالموضوع الاول ...حيث هناك مرفق تم فيه شرح الكيفية في الاستخدام الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان وهذه دعوة مفتوحة للجميع بالمشاركة في هذا الموضوع حتى يكون موضوع هادف وكامل ومفيد ان شاء الله اخوكم عماد الحسامي hosami range.rar

السلام عليكم و رحمة الله و بركاته أستاذي الفاضل محمد حسن المحمد .. بارك الله فيك و جزاك الله خيرًا على المبادرة الطيّبة تحياتي / عبد العزيز البسكري سند صرف3.rar