ลองดูนะครับ เผื่อจะใช่ที่ต้องการ

https://msdn.microsoft.com/en-us/library/bb258192%28v=office.12%29.aspx

https://www.youtube.com/watch?v=pX54zCCJzIY

Private Sub Form_Load()
Dim i As Integer
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide
DoCmd.ShowToolbar "Ribbon", acToolbarNo 'ซ่อน Ribbon'
DoCmd.LockNavigationPane True 'ล๊อกNavigationPane'
For i = 1 To CommandBars.Count
             CommandBars(i).Enabled = False 'ซ่อนNavigationPane'
            Next i
End Sub

ลองดูครับ

ทำไมทำตามแล้วRibbonไม่ซ่อนครับ

ขึ้นแบบนี้ครับ ช่วยด้วย

ขอดูที่คุณใส่หน่อย

ลองใส่โค๊ดนี้ใน เหตุการณ์ "เมื่อเรียกใช้งานปัจจุบัน" ไม่ทราบว่าจะตรงกับที่ต้องการหรือเปล่าครับ
Private Sub Form_Current()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

ลองใส่สองบรรทัดนี้ด้วยคับ
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide
ถ้าไม่ได้ต้องใส่ทั้งหมดคับ

ผมใช้ตามคุณไพรินทร์ครับ
สั้นๆง่ายๆดี ฝังไว้ที่ on open

DoCmd.ShowToolbar "Ribbon", acToolbarNo

แต่ตอนแรกไม่เวริคครับ ติดปัญหานิดหน่อย
คือพอโปรแกรมเปิดแล้วมันยังไม่ซ่อน
งมอยู่นาน จนเจอว่า ต้องเข้าไปติ๊กที่
Access Option>Current Database
[ / ] Allow Built-in toolbars

มันถึงจะซ่อนตามที่ต้องการ

(Option ตัวนี้อาจจะติ๊กเป็น default อยู่แล้ว แต่ผมเอาโปรแกรมเดิมมาแก้ option ตัวนี้มันก็เลยไม่ได้ถูกติ๊กไว้มั๊งครับ)

ขอบคุณทุกคนนะครับ