طريقتي في حماية قاعدة البيانات من تفعيل الشفت وحماية الاستعلامات و وحدات المايكرو وكلمة السر للقاعدة الخلفية

[kaser906]

في ١٦‏/١١‏/٢٠١٩ at 23:14, محمد سلامة said:

ماذا لو أردنا استخدم نفس فكرتك بالقاعدة الامامية والخلفية؟ .. في هذه الحالة سوف نستخدم قاعدة ثالثة لنفتح القاعدة الأمامية و الأمامية تفتح الخلفية

نعم وهو الملف الوسيط سيتكفل بهذه المهمة

15 ساعات مضت, jjafferr said:

يا ريت تضيف هذه الفقرة للبرنامج حتى يشتغل على النواتين 32بت و 64بت 🙂

تم التعديل المطلوب

 

ولتسهيل الأمر على مسؤول القاعدة  اذا اراد مثلا اظهار الكائنات للتعديل أو الإطلاع

تمت اضافة زر أمر لاظهار الكا ئنات وشريط الادوات بدل ما يقوم بألغاء كلمة السر ثم اعادة تفعيل الشفت

وفتح القاعدة من  جديد فقط نقرة زر كل شي يكون أمامه

طبعا زر الأمر لازم يكون مخفي عن المستخدم ونقوم بإيجاد طريقة لاظهاره للمسؤول

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

If MyUser.username() = "Kaser906" Then
Me![cmd47].Enabled = True
Me![cmd47].Visible = True
End If

الملف بالمرفقات

::بالتوفيق::

إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم

 

FreeKaser906.rar

تم تعديل نوفمبر 18, 2019 بواسطه kaser906

[thneyan]

الاستاذ كاسر تسلم يدينك

تعديل سقط سهوا

[kaser906]

19 دقائق مضت, thneyan said:

تعديل سقط سهوا

تم التعديل

شكرا لك

[thneyan]

السلام عليكم 

تحياتي لكم اساتذتي الفضلاء

قاعدة التشغيل الاولى تحتاج إلى كود الاخظاء واهمها كود اغلاق القاعدة في حالة لم يجد القاعدة المستهدفة بالتشغيل

لانه لو اخذها واحد مبتدئ مثلي  نسخ ولصق وكانت القاعدة غير موجودة راح يتبين الباسوور من خلال الخطاء

[kaser906]

11 ساعات مضت, thneyan said:

قاعدة التشغيل الاولى تحتاج إلى كود الاخظاء واهمها كود اغلاق القاعدة في حالة لم يجد القاعدة المستهدفة بالتشغيل

هذا الملف لازم تغير صيغته إلى accde

بعدها جرب تغيير اسم الملف الاساس أو انقله من محله وشوف النتيجة

::بالتوفيق::

[thneyan]

استاذ كاسر 

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

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

 

[kaser906]

في ٢١‏/١١‏/٢٠١٩ at 10:16, thneyan said:

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

أستخدم هذا الكود

On Error GoTo Err_Form_Open                
ChangeProperty "AllowBypassKey", 1, 0
fAccessWindow acHide, False, False
With New Access.Application
 Dim strDbName As String
 strDbName = CurrentProject.Path & "\Start.accdb"
.UserControl = True
.RunCommand acCmdAppMaximize
 DoCmd.RunCommand acCmdAppMaximize
.OpenCurrentDatabase strDbName, , "K@serwww$0ficena%9o6"
End With
Application.Quit
Exit_Form_Open:
    Exit Sub
Err_Form_Open:
MsgBox "خطأً " & "      " & vbCr & vbCr & " تم حذف البرنامج أو تم أعادة تسميته ", 0 + 16 + 1572864, "بدأ التشغيل"
Application.Quit
Resume Exit_Form_Open

::بالتوفيق::

 

إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم

[سلمان الشهراني]

ماشاء الله تبارك الله
ابداع
 

[Ahmed Sary]

الطريقة تعمل تمام لكن في النهاية يكون الأكسس مفتوحاً في خلفية مستعرض ويندوز ويظهر على شريط المهام بدون أن يكون في مقدمة الاكسبلورر. 

فما الحل  ؟

 

[ابوأسد]

كان هذا الموضوع قد طرح سابقاً باسم (الحماية بواسطة ملف المفتاح)

وهذا هو المثال للفائدة

الملفات مفتوحة وقابلة للاطلاع والتعديل.. ويمكن تحويل الملفات إلى .accde عند تسليمها للعميل لمنع المستخدم من الاطلاع على الكود وكلمة المرور

بالتوفيق

الحماية بنظام ملف المفتاح.rar

تم تعديل سبتمبر 24, 2023 بواسطه ابوأسد