السلام عليكم ورحمة الله وبركاته
أخوني الآعزاء
بناءً على موضوع طرح من قبل و بعنوان
*حماية* هل الحماية بإلغاء خاصية الشفت ( SHIFT ) آمنة ؟
اي وضع بكلمة مرور لإعادة تفعيل الشفت" على الوصلة التالية:
http://www.arabteam2000.com/vb/show...&threadid=19900
----------------------------------------------------------------------
وكانت إجابت اخونا محمد طاهر حفظه الله ورعاه بهذه الاجابة:
code:اقتباسحتي اذا كانت الخاصية غير مفعلة فى القاعدة المطلوب حمايتهايمكننا اعادة تفعيلها و التحكم فيها بعد التشغيل
و يمكن ايضا التحكم فى التفعيل أو عدمه عن طريق كلمة سر
و ذلك باستدعاء الدالة الاتية bypassit فى ماكرو ال autoexec فى القاعدة المطلوب حمايتها
فهل هذا يتغلب علي تغيير قيمة الخاصية من الخارج بالدالة السابقة ؟؟
Function bypassit()
SetBypassProperty
End Function
'=================================
Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
X = InputBox("Enter Password")
If X <> "abuhagar" Then
MsgBox "you are not allowed to Pypass the open Dialog - sorry !!!", 64, "Bye Bye !!!"
DoCmd.Quit
Exit Sub
End If
End Sub
'================================
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
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 ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Functionفأرجو منكم توضيح هذا الكود ووضعه في مثال مبسط تطبيقة انا حاولت أكثر من مرة ولكن لم أستطيع وارجو المساعدة لأني محتاجها ضروري وجزاك الله خير .
