السلام عليكم
وجدت هذا الكود في قسم الآكسيس هل من الممكن جعلة يناسب الأكسيل
وشكراً
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