menu เครื่องมือ -- เริ่มต้น uncheck แสดงหน้าต่างฐานข้อมูล
แต่จะป้องกันไม่ได้ ถ้าผู้ใช้กด F8
แต่คงมีวิธีเขียนโค้ดอยู่เหมือนกัน

มันเคยมีหนังสือเล่มเล็ก ๆ เล่มหนึ่งที่แก้ปัญหาของคุณได้ ไม่ทราบว่าเรื่องอะไร แต่เป็นของ Se-ed ชื่อ Advacen Access เล่มละประมาณ 200 กว่าบาทแหล่ะครับ ผมเสียดายผมทำหายแล้ว งั้นคงบอกได้จะมีวิธีการเขียน code หนี F8 และ Esc ให้ด้วย ลองไปดูนะครับ

ผมใช้กับ access 2000 ครับ

Private Sub Form_Open(Cancel As Integer)
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
ChangeProperty "StartupForm", DB_TEXT, "password1"
ChangeProperty "StartupShowDBWindow", DB_Boolean, False
ChangeProperty "StartupShowStatusBar", DB_Boolean, False
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
ChangeProperty "AllowFullMenus", DB_Boolean, True
ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
ChangeProperty "AllowSpecialKeys", DB_Boolean, False

End Sub


Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Variant
Dim dbs
Dim prp
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

ลงเอาไปใช้ครับ ยกเลิกการกด shift

ขอบคุณมากค่ะ

ขอเตือน โปรแกรมคุณอาจโดยขโมยโดยการ Import ได้ ดังนั้นให้ Complier ให้เป็น Mde ก่อนที่จะส่งให้ลูกค้าใช้

การทำ mde ไม่ได้ Protect Table นะครับจะต้องสร้าง Permission ใน menu tool แล้วเลือก Security และ Set User and Group Permision จึงนะทำให้ User หรือคนอืนๆเปิด Mdb และ Mde ของเราเลยครับ