น่าจะเจอปัญหาเดียวกันนะครับ คือรู้สึกรำคราญมากกับระบบ security เพราะมันจะขึ้นมาเตือนทำให้ผู้ใช้ตกใจ ต้องไปไล่ตั้งค่า Low ให้กับทุกๆเครื่อง หากเป็นไปได้สามารถเขียนคำสั่งให้มัน Low ไปเลยโดยไม่ต้องเข้าไปปรับค่า ก็จะดีนะครับ

ลอง search ดูจากกระทู้เก่าครับ ผมคุ้นว่ามีคนตั้งคำถามนี้แล้ว

ขอบคุณค่ะ
หนูลองค้นหาดูแล้ว มีคำแนะนำให้เข้าไปแก้ registry ของระบบ ดูแล้วมันน่ากลัว หนูก็เลยไม่กล้าเสี่ยง อยากได้เพียงแค่ให้เปิดหน้าต่าง ความปลอดภัยขึ้นมาให้ผู้ใช้สามารถปรับตั้ตงค่าได้เองแบบง่ายๆ ก็พอค่ะ คือไม่ต้องให้เข้าเมนูหลายขั้นตอน ผู้ใช้บางคนก็ไม่เข้าใจทำไม่เป็น จึงอยากหาวิธีแบบว่า ให้คลิกปุ่มเดียว แล้วขึ้นมาให้เลือกปรับค่าได้เลยค่ะ

Public Sub openSecurityDialog()

   On Error GoTo ErrHandler
   Dim CmdBar As CommandBar
   Dim CmdBarPopup As CommandBarPopup

   Set CmdBar = Application.CommandBars("Menu Bar")
   Set CmdBarPopup = CmdBar.Controls("Tools")     ' English version.
   'Set CmdBarPopup = CmdBar.Controls("Herramientas")   ' Espanol (Spanish version).
   Set CmdBarPopup = CmdBarPopup.Controls("Macro")
   CmdBarPopup.Controls("Security...").Execute    ' English version.
   'CmdBarPopup.Controls("Seguridad...").Execute   ' Espanol (Spanish version).

CleanUp:

   Set CmdBarPopup = Nothing
   Set CmdBar = Nothing

   Exit Sub

ErrHandler:

   MsgBox "Error in openSecurityDialog( )" & vbCrLf & _
               "in SecurityFunctions module." & vbCrLf & vbCrLf & _
               "Error #" & Err.Number & vbCrLf & Err.Description
   Err.Clear
   GoTo CleanUp

End Sub     ' openSecurityDialog( )

http://www.thai-access.com/yeadram_view.php?topic_id=256&page=2

อาจารย์ ditasilk คะ

หนูขอทราบความหมาย ของโค้ดคำสั่งตามที่ท่านแนะนำ และวิธีนำไปใช้งานด้วยค่ะ
สามารถนำไปผูกกับปุ่มคลิกโดยตรงได้เลยหรือไม่คะ

ขอบคุณค่ะ

ลองผูกกับปุ่ม ดูก่อนนะครับ แล้วเดี๋ยวเห็นผลอย่างไร มาคุยกัน
บางครั้ง เขียนโปรแกรม มันต้องซุกซนบ้างนะครับ
เพราะผมถือว่า วิทยาศาสตร์ต้องเกิดจากการทดลอง และสังเกตุ
ขอให้โชคดีครับ

เรียนอาจารย์ ditasilk พอดีหนูออกไปทำธุระ พึ่งจะกลับมาทดสอบ ขออภัยด้วยค่ะ
หนูลองเอาทั้งหมดไปผูกกับปุ่มโดยตรงในสถานะ คลิก
แล้วมันก็ขึ้น Error ตามในรูป



สรุปคือตอนนี้ยังไม่ได้เลยค่ะอาจารย์

เพิ่มเติมค่ะอาจารย์
ก่อนหน้านี้อาจารย์สันติสุข เคยให้โค้ดสำหรับเปิดหน้าต่าง บัญชีผู้ใช้และกลุ่ม ตามนี้ค่ะ

DoCmd.RunCommand acCmdUserAndGroupAccounts

ซึ่งใช้ได้ดีเยี่ยม หนูก็ลองเอามาดัดแปลง เพื่อจะให้มันเปิดหน้าต่าง ความปลอดภัย ดูบ้าง โดยหนูลองมั่วเขียนตามนี้ดู

DoCmd.RunCommand acCmdUserLevelSecurity

แต่ก็ไปไม่รอดค่ะ

ผมว่าไม่มีค่าคงที่ของ acCmdUserLevelSecurity ในสารบบนะครับ แล้วก็ไม่มี acCmd... อะไรที่ทำให้เปิด Macro Security ตรงนี้ด้วย ผมว่าอย่าไปเขียนโปรแกรมเปิดมันเลยครับ ให้ทำตามที่คุณ krathok-man (R01438) บอกไว้ในลิงค์ข้างบนหน่ะครับ ผมว่าง่ายดีแล้ว

ขอบคุณค่ะอาจารย์

ตอนแรกหนูก็เข้าใจว่าจะมีคำสั่งอะไรที่สามารถทำได้แบบไม่ยุ่งยาก
แต่พอพิจารณาความเห็นของอาจารย์แล้ว หนูมาคิดใหม่... ไม่เอาดีกว่าค่ะ

ขอขอบคุณอีกครั้งนะคะ ทุกๆท่านเลยค่ะ