اذهب الي المحتوي
أوفيسنا

ابوأسد

عضو جديد 01
  • Posts

    44
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو ابوأسد

  1. كان هذا الموضوع قد طرح سابقاً باسم (الحماية بواسطة ملف المفتاح) وهذا هو المثال للفائدة الملفات مفتوحة وقابلة للاطلاع والتعديل.. ويمكن تحويل الملفات إلى .accde عند تسليمها للعميل لمنع المستخدم من الاطلاع على الكود وكلمة المرور بالتوفيق الحماية بنظام ملف المفتاح.rar
  2. اطلعت على الموضوع واحببت أن اشارك بهذا الملف الذي لا استغني عنه في تحويل كود SQL إلى VBA SqltoVBA.mdb
  3. جرب هذا الكود.. With Application.FileDialog(2) .AllowMultiSelect = True .Title = "asdf/Title" If .Show = -1 Then Me.name_folder = .SelectedItems.Item(1) 'يطبع اسم الملف مع المسار Dim sFilePath$ sFilePath = Me.name_folder Me.pate = Split(sFilePath, "\")(UBound(Split(sFilePath, "\"))) 'يطبع اسم الملف بدون المسار End If End With
  4. السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,, أقدم ملف اكسل يقوم بعرض صفحة جاهزة للطباعة فيها نتيجة العام الهجري مقابل الميلادي، والميلادي مقابل الهجري مع تحديد ايام العطلات الرسمية تــــم رفع الملف بدون ضغط وبدون حماية لإكتمال الإستفادة للجميع التقويم المفتوح 1901 - 3000 اصدار 11.xlsx
  5. السلام عليكم ورحمة الله وبركاته.. وبعد: لدي برنامج وله قاعدة بيانات بـ SQL SERVER وبطبيعة الحال يتم تحميله لأكثر من (عميل) وسؤالي للأخوة في المنتدى.. أيهما افضل للبرنامج ليعمل بدون مشاكل.. الاعتماد على الاتصال الآمن أم اسم المستخدم وكلمة مرور؟ ارجو منكم التكرم بالشرح الوافي لزميلكم الجديد في هذا المجال
  6. السلام عليكم اعزائي الكرام جميعا بحث عن كود VBA يعمل لي نسخة احتياطية لقاعدة البيانات SqlServer المرتبطة ببرنامجي والذي يوجد في جهاز سيرفر منفصل عن اجهزة المستخدين .. هل يتفضل علي أحدكم بالكود لو سمحتم
  7. هذا برنامج لنسخ قاعدة البيانات اكسس وليس SQL Server مشكور على المشاركة للرفع احتاج كود لعمل نسخة احتياطية لقاعدة بيانات SQL Server من لها
  8. اطلعت على مشاركة محمد ايمن وقد استفدت منها كثيرا لكن لم يتطرق للنسخ الاحتياطي من داخل الاكسس هل من مساعدة
  9. السلام عليكم اعزائي الكرام جميعا بحث عن كود VBA يعمل لي نسخة احتياطية لقاعدة البيانات SqlServer المرتبطة ببرنامجي والذي يوجد في جهاز سيرفر منفصل عن اجهزة المستخدين .. هل يتفضل علي أحدكم بالكود لو سمحتم
  10. ههههههه " مش أوي كدة " واذا كانت هذه الطريقة فعالة فهي في حد ذاتها جائزة لمن ارد تطبيقها
  11. فلنعد الى صلب الموضوع هناك جدول في ملف system قمت بحمايته واخفائه عن اعين الاخرين، هل يستطيع اي زميل "تكرما" اختراق الحماية والوصول الى الجدول؟ ا
  12. بارك الله فيك بعد اكمال بناء البرنامج واتمامه ، ألست تقوم بحفظ الملف بامتداد accde وهو ملف غير قابل للتعديل ثم تسلمه للمستخدم، فإذا طلب منك المستخدم تعديل او اصلاح فإنك تنفد التعديلات والاصلاحات في الملف المفتوح اللي محفوظ عندك ثم تحفظه بامتداد accde وتعيد تسليمه للمستخدم!
  13. احتفظ بنسخة مفتوحة بامتداد accdb وبعد التعديل اقوم بتحويلة الى accde واعمل له الرقم السري
  14. هو هذا التحدي بعينه، وهو الدخول الى القاعدة واختراق نظام الحماية
  15. اكثر من 80 مشاهدة خلال الثلاثة الايام الماضية دون اي ردود! لا ادري هل الامور مبشرة بفعالية طريقة الحماية، ام لعدم التفاعل.. على العموم سيستمر التحدي 😎😤
  16. السلام عليكم أعزائي.. كنت قد شاركت سابقا في منتدانا الرائع هذا بمشاركة عن طريقتي لحماية البرامج والبيانات من العبث والتلصص.. المشاركة هنا واليوم اضع بين ايديكم تطبيقا لهذه الطريقة في الملف المرفق حماية ابوأسد.rar والتحدي هو الحصول على اسم الجدول في ملف الSystem والبيانات التي فيه الغرض منه ليس التحدي ، ولكن اختبار هذه الطريقة .. فهل يستطيع اي زميل قبول التحدي؟ في انتظاركم
  17. اقصد زر اغلاق النموذج اللي تبع اكسس "×" وليس زر المبرمج، واعتذر على عدم التوضيح
  18. بشرك الله بما يسرك، ولكني اكتب الان من التلفون ولا يوجد حاسب الان، والامر بسيط ولا يحتاج مثال مرفق، فقط اسعدني بسطرين ثلاثة VBA كود جميل وذكي صراحة ، لعطل عمل زر الاغلاق، ولكنه لا يعطل زر الاغلاق نفسه.. قد يكون هذا هو البديل إن لم اجد ما ارغب به.. احسنت اخي
  19. اشكركما على المبادرة لكنني اريد كود تعطيل/ تفعيل زر اغلاق النموذج لغرض في نفسي فهو سيوفر على عشرات الاسطر والجهد
  20. السلام عليكم اخواني الاعزاء لدي نموذج لادخال البيانات ، وفيه زر "تعديل" وزر "حفظ" اريد كود عند الضغط على زر "تعديل" يعطل زر اغلاق النموذج لاجبار المستخدم على استكمال البيانات المطلوبه، ثم اعادة تفعيل رز الاغلاق بعد الحفظ شاكرا لكم
  21. كما سمعنا أن الحجم الاقصى لقاعدة البيانات في الاكسس 2جيجا.. وبالتالي اذا كنت تعلم ان بياناتك ستكون اكثر من هذا الحجم فينبغي عليك أن تعمل في حسابك عند تحليل النظام أنه سيتم توليد ملف بيانات جديد كلما وصلت قاعدة البيانات الأخيرة إلى الحجم الحرج.. وكتابة اكواد اعادة ربط الجدول بالملف المطلوب أوتوماتيكيا عند استدعاء البيانات..
  22. لا مشكلة ان شاء الله 1- صمم صورة لبرماجك بواسطة الرسام مثلا او الفوتوشوب 2- احفظ الصورة في نفس مجلد برنامجك وبنفس اسم ملف الاكسس على أن يكون بامتداد .bmp عند فتح ملفك ستظهر الصورة السابقة
  23. السلام عليكم جميعاً اخواني الأعزاء كما هو واضح من العنوان، فإن لكل منا طريقته الخاصة لحماية برامجه من القرصنة أو العبث.. ومن ضمن تلك الطرق التي أعتقد أنها ستكون من ضمن أقوى الطرق إن شاء الله هي طريقة أسميتها: (ملف المفتاح) الخاصة بي، لا أدري قد يكون أحدا ما قد توصل إليها ويستخدمها مثلي، ولتعم الفائدة، وحتى يتم مناقشتها وتطويرها.. أطرح الفكرة عليكم.. راجياً تفاعلكم وإثرائكم للموضوع. بعد الإنتهاء من بناء برنامجكم نفذ الخطوات التالية: 1- عمل كلمة مرور لملف البرنامج مع مراعاة أن تكون معقدة وطويلة، مع ضرورة إضافة حرفي: chr(13) و chr(10) التي يستحيل إدخالها من الكيبورد، ولكن كيف يمكن إضافة هذين الحرفين؟ يمكن إضافة هذين الحرفين باستخدام الكود التالي: افتح ملف جديد، واعمل نموذج جديد، وزر جديد، وفي حدث (عند النقر) اكتب هذا الكود: Dim DB , pwOld, pwNew, pathDB pathDB = "C:\MeSystem.accdb" pwOld = "" pwNew = Chr(13) & "Xjhdk@u$jl25ي" & Chr(13) & Chr(10) Set DB = OpenDatabase(pathDB, True, False, ";pwd=" & pwOld) DB.NewPassword pwOld, pwNew DB.Close وغير ما يلزم تغييره من مسار الملف و كلمة المرور المرغوبة لديك ويبقى! كيف يمكن فتحه الملف مع وجود كلمة مرور معقدة.. الحل في الخطوة التالية. 2- كون ملف جديد (ملف المفتاح) وأنشئ نموذج جديد وفي حدث عند الفتح اكتب كود فتح ملف النظام التالي: Dim App As Access.Application, strPath As String Set App = New Access.Application strPath = Application.CurrentProject.Path & "\ MeSystem.accdb " With App .DoCmd.RunCommand acCmdAppMinimize .OpenCurrentDatabase strPath, , Chr(13) & "Xjhdk@u$jl25ي" & Chr(13) & Chr(10) ' .DoCmd.OpenForm "Form", , , , , acWindowNormal'نموذج البداية ' .DoCmd.Maximize ' .Visible = True End With Set App = Nothing DoCmd.Quit وجعل هذا النموذج نموذج البداية (أي يعمل عند بدء تشغيل ملف المفتاح)، كما بمكنك إضافة كود إخفاء واجهة الاكسس قبل تنفيذ الكود السابق إن أردت أن لا يظهر عند التشغيل. 3- احمي الوحدات النمطية لملف المفتاح بكلمة مرور. 4- احفظ ملف المفتاح في نفس مجلد البرنامج بامتداد ".accde أو .mde" بحسب اصدار الاكسس الذي تعمل عليه. مرفق لكم مثال مفتوح ملف المفتاح.rar
×
×
  • اضف...

Important Information