حماية قاعدة البيانات الخاصة بك

جميل جدا جدا وخاصه مفتاح الشفت

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

ياليت الخطوات

ولك جزيل الشكر يالغالي

جميل جدا جدا وخاصه مفتاح الشفت

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

ياليت الخطوات

ولك جزيل الشكر يالغالي

سلمان الشهراني كتب:

جميل جدا جدا وخاصه مفتاح الشفت

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

ياليت الخطوات

ولك جزيل الشكر يالغالي

Option Compare Database

Option Explicit

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Const KEY_MASK As Integer = &HFF80 ' decimal -128

Private Const VK_LSHIFT = &HA0

Private Const VK_RSHIFT = &HA1

Private Const BothLeftAndRightKeys = 0

Private Const LeftKey = 1

Private Const RightKey = 2

Private Const LeftKeyOrRightKey = 3

Dim Withshift As Boolean

Public Function IsShiftKeyDown(Optional LeftOrRightKey As Long = LeftKeyOrRightKey) As Boolean

Dim Res As Long

Select Case LeftOrRightKey

Case LeftKey

Res = GetKeyState(VK_LSHIFT) And KEY_MASK

Case RightKey

Res = GetKeyState(VK_RSHIFT) And KEY_MASK

Case BothLeftAndRightKeys

Res = (GetKeyState(VK_LSHIFT) And GetKeyState(VK_RSHIFT) And KEY_MASK)

Case Else

Res = GetKeyState(vbKeyShift) And KEY_MASK

End Select

IsShiftKeyDown = CBool(Res)

End Function

Private Sub Form_Load()

On Error Resume Next

Dim db As Database

Set db = CurrentDb

Dim prp As Property

Withshift = False

Dim passwd As String

Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False)

db.Properties.Append prp

With DoCmd

.SelectObject acForm, "", True

.RunCommand acCmdWindowHide

End With

DoCmd.ShowToolbar "yourtoolbar1", acToolbarYes

Dim i As Integer

For i = 1 To CommandBars.Count

If CommandBars(i).Name <> "yourtoolbar1" Then CommandBars(i).Enabled = False

Next i

If IsShiftKeyDown = True Then

passwd = InputBox("nnn" & vbCrLf & "bbbbb", "mmmmm")

If passwd = "" Or passwd = Empty Then

MsgBox "No Input Provided"

ElseIf passwd = 123 Then

For i = 1 To CommandBars.Count

CommandBars(i).Enabled = True

Next i

DoCmd.SelectObject acForm, , True

Withshift = True

DoCmd.Close acForm, Me.Name

Else

MsgBox "Sorry, you do not have access to this information"

End If

End If

End Sub

أخي سلمان الشهراني

هذي الكود الخاص بقفل الشفت

جزاك الله خيرا

نعم اخى

الافضل بدلا من وضع كود على الوحدات النمطية

ان تحول القاعدة الى mde

لان الكلمة السرية يمكن التغلب عليها بواسطة البرامج التى تقوم بفك الكلمة السرية

و بالنسبة لكود زر الشيفت الذى تم وضعه للاجابه على سؤال احد الاخوة

فهو الافضل حتى الان

لانه لا يمكن التغلب عليه عن طريق برنامج خارجى كما كان بالسابق

للرفع

و الرجاء هل يوجد حماية للاكسس اوكي من الطرية الحالية للبرنامج هذي