تعطيل مفتاح shift

[محمد الورفلي1]

السلام عليكم

أريد أن ألغى مفتاح الشيف فى الملف           

عندما يقوم احد بتشغيل الملف بالضغط على مفتاح الشيفت لا تظهر له  البيانات .....

 

تعطيل مفتاح شيفت.rar

تم تعديل أكتوبر 10, 2016 بواسطه محمد الخازمي

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم محمد

على ما أعتقد أن الموضوع قد طرح من فترة قصيرة ..استخدم خاصية البحث داخل المنتدى واطلع على الموضوع لترى ما يمكنك الاستفادة منه .. وابدأ من حيث انتهى الآخرون

تقبل تحياتي

[محمد الورفلي1]

السلام عليكم

لقد فعلت قبل ان اطرح الموضوع   وبحث مره اخرى ولم اجدة ......

ولكن وجدت الموضوع  في قسم الاكسس

ارجوا الافادة بهذا الخصوص 

انا ابحث عن الغاء مفتاح شيف ......عندما يقوم احد بتشغيل الملف بالضغط على مفتاح الشيفت

لا تظهر له  البيانات

تم تعديل أكتوبر 11, 2016 بواسطه محمد الخازمي

[محمد الورفلي1]

للرفع

[محمد الورفلي1]

السلام عليكم

وجدت هذا الكود في قسم الآكسيس هل من الممكن جعلة يناسب الأكسيل

وشكراً

 

 

 

Private Sub bDisableBypassKey_Click()

On Error GoTo Err_bDisableBypassKey_Click
'This ensures the user is the programmer needing to disable the Bypass Key
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "هل تريد أن تفعل زر الشفت ؟" & vbCrLf & vbLf & "أدخل كلمة زر التفعيل"
strInput = InputBox(Prompt:=strMsg, Title:="عدم تفعيل زر الشفت")
If strInput = "12345" Then 'Change password to your own
ChangeProperty "AllowBypassKey", DB_BOOLEAN, True

Beep
MsgBox "تم تفعيل زر الشفت" & vbCrLf & vbLf & "سيتم في المرة القادمة السماح لأي مستخدم بالدخول على برنامج عن طريق زر الشفت", vbInformation, "التحكم في زر الشفت"
Else
Beep
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False

MsgBox "خطأ في كلمة مرور" & vbCrLf & vbLf & "تم تعطيل زر شفت" & vbCrLf & vbLf & "بما أنه تم تعطيل زر الشفت ، لذا فلن يكون بمقدور أي مستخدم الدخول على البرنامج والتعديل عليه", vbCritical, "كلمة السر خطأ"
Exit Sub
End If
Exit_bDisableBypassKey_Click:
Exit Sub
Err_bDisableBypassKey_Click:
MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description
Resume Exit_bDisableBypassKey_Click

End Sub

 

[محمد الورفلي1]

للرفع