Public Sub openSecurityDialog()

Dim CmdBar As CommandBars
Dim CmdBarPopup As CommandBarPopup

Set CmdBar = Application.CommandBars("Menu Bar")
Set CmdBarPopup = CmdBar.Controls("Tools")
Set CmdBarPopup = CmdBarPopup.Controls("Macro")
CmdBarPopup.Controls("Security...").Execute

CleanUp:

Set CmdBarPopup = Nothing
Set CmdBar = Nothing

End Sub

เมื่อ RUN มัน ERROR ตรง CmdBar As CommandBars
"User definde-type not Definde" ผมต้องทำอย่างไรครับ