الغاء مفتاح alt + f11

الحجازي طارق كتب:

كيفية الغاء مفتاح Alt+ f11 من القاعدة بالكامل وليس فى نموذج بعينه وشكرا

اخي الفاضل : الحجازي طارق

السلام عليكم ورحمة الله وبركاته

يوجد لديك طريقتين الأولى يدويه والثانية برمجية

الطريقة اليدوية

1. افتح محرر الفيجول بيسك بواسطة المفتاحين Alt+F11 من لوحة المفاتيح

2. انتقل الى شريط القوائم واختر Tools

3. اختر منه Propertis

4. اختر التبويب Protection

5. ضع علامة صح على Lock Project

6. اكنب الرقم السري ثم اعد كتابة الرقم السري

7. موافق

ملاحظة : لا تنسى الرقم السري الذي كتبته فيما لو اردت الدخول الى محرر الفيجول بيسك لتعديل اي اكواد مثلا او اضافة اكواد جديده

الطريقة البرمجية

1. قم بإنشاء وحدة نمطية جديده Module في قاعدة البيانات

2. ضع فيها هذه الأكواد

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
ChangeProperty = False
Resume Change_Bye
End If
End Function

Public Function DisableAlt_F11()
ChangeProperty "AllowSpecialKeys", dbBoolean, False
ChangeProperty "AllowBypassKey", dbBoolean, False
End Function

3. قم بحفظ الوحدة النمطية

4. قم بإنشاء ماكرو بدء التشغيل

5. قم بإستدعاء الدالة من الوحدة النمطية بهذه الطريقة

6. قم بحفظ الماكرو بإسم AutoExec

7. اعد تشغيل قاعدة البيانات ثم حاول فتح تصميم اي نموذج او تقرير في قاعدة البيانات وذلك بالضغط على المفتاحين ALT+F11

طبعا لن يتم فتح التصميم لأن الدالة التي في بدء التشغيل تمنع ذلك .

بالتوفيق

شكرا على الاجابة وحزاكى الله خيرا