跟據密碼來設定menu的項次(編號:1596)

各位好
我想跟據user login 的密碼來對menu的item設定其visible屬性但是用..
Me.常用分錄維護.Visible = False
可以執行. 但是太麻煩..
如果寫成..
Dim mProgram
  For Each mProgram In Me
    mProgram.Visible = False
  Next
則跑到 mprogram.name = "常用分錄維護" 這一item 時
會出現錯誤訊息 "本控制項不可設定visible屬性.."
每個第二層的最後一項都會出現錯誤.
為什麼不同的語法一個可以另一個卻不行,該如何解決.. 謝謝