Exemple : Entrer dans un module

Vous pouvez déterminer si l’utilisateur peut entrer ou passer dans un module ALM.

Ajoutez le code suivant à la procédure d’événement CanEnterModule, qui est déclenchée avant que l’utilisateur n’entre ou ne passe dans un module 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