示例：进入模块

您可以确定用户是否可以进入或切换到 ALM 模块。

将以下代码添加到 CanEnterModule 事件过程，该事件在用户进入或切换到 ALM 模块之前触发。

Function CanEnterModule(ModuleName)
  On Error Resume Next
  result = MsgBox("Do you want to enter "+ModuleName+"?", vbYesNo)
  Select case result
     case vbNo
         CanEnterModule = false
     case vbYes
         CanEnterModule = DefaultRes
  End Select
  On Error GoTo 0
End Function