كل الانشطه

.................................... الله أكبر الله أكبر لاإله إلا الله والله اكبر الله اكبر ولله الحمد ................................. تقبل الله صيامكم وقيامكم وكل عام وانتم بخير

نودع شهر كريم ، فتقبل الله طاعاتكم ، وأعاده الله علينا وعليكم باليمن والبركات..

السلام عليكم ورحمة الله الاخوة الكرام فضلا وليس امرا اريد وضع اكواد اخفاء اكسيس وااظههاره على الزرين في النمودج جزاكم الله خير الجزاء علما انني قمت بالبحث في عدة محاولات ولم انجح في تطويع الاكواد وربما يكون السبب في النظام عندي 64بيت اخفاء و اظهار.accdb

شكرا استاذي الكريم ورمضان مقبول ان شاء الله وعيد مبارك

البساطة حلوة مفيش كلام بس بما انك عاوز الافكار برة الصندوق شوف تنفيذها بالشكل ده تجربة.accdb

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

هل هذا يقوم بتشغيل برنامج اكسس مهما كان اصداره وياليت تشرح شوي عنه وشاكر لك

إن الله مع الصابرين ومعلش معلومة من تلميذك الصغير تكتب ( إن شاء الله ) بارك الله فيك أخي الكريم وكل الأخوة الأعضاء بخير وبصحة وسلامة

انشاء الله سأكمل ولكن الصبر

مرفق وشرح جميل من رجل كريم بارك الله فيك واصل أخي الكريم

بارك الله فيك يا اخي جارى التجربة

استاذ @2saad جرب المرفق ومعه الشرح . واذا عجبك سأنسق وأعدل وأمحو الغير مطلوب حسب طلبك بالضبط .............. ووافني بالرد . الشرح من هنا https://www.mediafire.com/file/im7x8ocnv9e1uxk/205.gif/file SaadPermissions.rar

up

تم فصل الموضوع لموضوع جديد مستقل هنا :-

وعليكم السلام ورحمة الله وبركاته أخي الكريم.. يسعدني أنك وجدت جواباً لطلبك الأول ، بمساعدة الأستاذ @منتصر الانسي .. الآن وللعلم فقط بأن اختيار تمت الإجابة سيكون عليك ان تختاره للمشاركة والإجابة التي حلت مشكلتك ، وليس لإجابتك أنت. لذا تم إلغاء اختيار تمت الإجابة. وأخيراً وكما ذكرت لك سابقاً.. حاول إنشاء موضوع مستقل لكل طلب تريده . ولا تنسى استخدام خاصية البحث في المنتدى ، فقد تجد طلبك بسهولة في مواضيع سابقة تم طرحها. سيتم فصل طلبك هذا في موضوع مستقل جديد 👍 ودمتم بخير جميعاً لسعة صدركم 💐

دة على 2010 بس مش شغال عندي النظام عندى اوفيس 2013 عربي نواة 32

الاساتذه المحترمون هل يمكن مساعدتي في انشاء محرك بحث عن اسم العضو انا انشئت بحث عن رقم الاكتتاب و رقم التخصص ولم تنجح معي انشاء بحث عن اسم العضو جزاكم الله كل خير 2008.rar

ليس بالضرورة أن تكون بينها علاقة في مخطط العلاقات أهم شيئ أن يكون بين بيانات النموذج الرئيسي وبيانات النموذج الفرعي حقل مشترك يربطهما معاً .

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

بارك الله فيك فكرة جيدة .... عند الضغط والاصلاح يفقد الحماية ..... هل جربت الضغط على مفتاح Alt+F11

اتفضل نتاج عملي أمس بالمرفق . RetirementDate.rar

و عليكم السلام ورحمة الله وبركاته. تفضل الحل اجتهاد مني و بمساعدة الذكاء الصناعي و إن شاء الله أحد أساتذة المنتدى يقوم بالتطوير أو يقدم إضافات يوجد ملفين الأول ProtectedWorkbook وهو خاص بالعميل الثاني KeyGenerator وهو خاص بك لتوليد المفاتيح التي سيستخدمها العميل لتحويل الملف من تجريبي لدائم خطوات العمل . 1.العميل يفتح الملف 2. يرسلك محتوى خلية B6 Machine ID مثال: DESKTOP-ABC123_AHMED 3. تفتح KeyGenerator.xlsm تكتب اسم العميل + تلصق الـ Machine ID تضغط "توليد الكود" 4. يظهر لك مثلا: ACT-05837291 ترسله للعميل 5.العميل يدخله في B12 ويضغط "تفعيل" ProtectedWorkbook.xlsmلا تنسى وضع كلمة سر لمحرر الأكواد أخيرا لا يوجد حماية 100% في Excel لأن المستخدم يقدر يعطل الماكرو أو يكسر الحماية لا تنسى وضع كلمة سر لمحرر الأكواد كيف يعمل النظام: · أول 3 أيام يعمل طبيعي مع رسالة "متبقي X أيام" · بعد 3 أيام يُقفل ويطلب كود تفعيل · نقل لجهاز جديد يكتشف الفرق ويطلب كود جديد · تفعيل صحيح يُفتح نهائياً على ذلك الجهاز أخيرا لا يوجد حماية 100% في Excel لأن المستخدم يقدر يعطل الماكرو أو يكسر الحماية KeyGenerator.xlsm

بارك الله فيك اخي الكريم

اولا / الملف السابق به كودين كلاهما معاينة تم تعديل احدهما الى طباعة ثانيا :- للتطبيق على ملفك / احعل لغة الجهاز العربية وانسخ الكود المرفق وفي ملفك الاخر قم بالدخول إلى صفحة الفيجوال بيسك عن طريق التبويب Developer(المطور) ثم Visual Basic ثم من قائمة Insert اختر Module والصقه به واربطه بزر في الصفحة المراد ترقيمها ملاحطة/ الكود المرفق مهمته الطباعة مع الترقيم ان اردت المعاينة مع الترقيم بدون طباعة غير كلمة FALSE الى TRUE في الجملة ws.PrintOut From:=i, To:=i, Preview:=False Sub طباعة() Dim ws As Worksheet Dim totalPages As Long Dim i As Long Dim pageNum As Integer Set ws = ActiveSheet totalPages = (ws.HPageBreaks.Count + 1) * (ws.VPageBreaks.Count + 1) For i = 1 To totalPages pageNum = Application.WorksheetFunction.RoundUp(i / 2, 0) If i Mod 2 <> 0 Then ws.PageSetup.CenterFooter = "الصفحة " & Format(pageNum, "00") Else ws.PageSetup.CenterFooter = "تابع الصفحة " & Format(pageNum, "00") End If ws.PrintOut From:=i, To:=i, Preview:=False Next i End Sub

شكرا جزيلا وبارك الله فيك ولكن كيف يتم تطبيقه على ملف آخر؟