Réponse de l'accès VBA lors de la remise mot de passe incorrect pour l'importation de mot de passe crypté

Question

J'utilise ce code pour l'importation crypté Excel dans Access 2007:

xlApp.Workbooks.Open FileName:=dlgOpen.SelectedItems(i), PASSWORD:=strPasswd 

Il fonctionne bien si je donne le mot de passe, ou rien (je invite l'utilisateur à entrer à nouveau le mot de passe car il donne un mot de passe vide), mais pas pour un mauvais mot de passe, Access demandera l'erreur "1004", disant que le mot de passe n'est pas correct et demandera le débogage.

Comment puis-je le modifier afin qu'il rejette l'entrée de l'utilisateur et demande de nouveau mot de passe?

Merci!

Answer 1

Vous devrez effectuer un piégeage d'erreur. Du haut de ma tête quelque chose comme ça

Public Sub Import (strPassword as String) 
On error goto Error_trap 
If len(strPassword)=0 then 
    strPassword=InputBox(“Enter Password”) 
End if 
xlApp.Workbooks.Open FileName:=dlgOpen.SelectedItems(i), PASSWORD:=strPasswd 

Exit Sub 

Error_trap: 

If err.Number=1004 then 
    If msgbox(“No Password entered, do you want to try again?”,36)=vbYes then 
     Import "" 
    Else 
     Msgbox “Ok fine be that way” 
    End if 
Else 
    Msgbox “Error happened in sub Import, error description, “ & err.description 
End if 
End Sub