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

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


kaser906
إذهب إلى أفضل إجابة Solved by kaser906,

الردود الموصى بها

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

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

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

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

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

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

 

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

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

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

image.png.ed37acddfc544a1ed1960566f38b38df.png

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

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

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

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

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

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

2018-05-01_09-27-20.gif

 

FreeKaser906.rar

تم تعديل بواسطه kaser906
  • Like 4
  • Thanks 3
رابط هذا التعليق
شارك

السلام عليكم 

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

في ٢١‏/١١‏/٢٠١٩ 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

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

 

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

2018-05-01_09-27-20.gif

  • Thanks 1
رابط هذا التعليق
شارك

  • 1 year later...
  • 2 years later...

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

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

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

بالتوفيق

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information