عاجل جداااااااااااا

بالنسبة للاستفسار الثاني هذا الرابط قد يفيدك :

http://arabteam.nicmatic.com/vb/showthread...3?threadid=2208

لايمكن تحويلها الى exe ولكن يمكن تشغيلها بدون الاكسس وهذا غير مهم اما الغاء الشفت فهو الاتي

يجب أن يستدعى هذا الكود من autoexec وبه يمكن منع المستخدمين بالعبث بالملفات واذا اردة أن تعدل عليه يجب ان تعمل مستخدم بنفس الاسم حتى يمكنك من الدخول على البرنامج.

ِِِAAAAA اسم المستخدم في هذا الكود وسلامتكم

Public Function Applnit()

If CurrentUser = "AAAAA" Then

changeproperty "AllowBypassKey", dbBoolean, True

Else

changeproperty "AllowBypassKey", dbBoolean, False

End If

End Function

Public Function changeproperty(strPropName As String, varPropType As Variant, varPropValue As Variant)

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