J
JC de Lorient
Guest
bsr le forum
je viens de me lancer dans ma 1ère macro et bien évidemment elle fonctionne pas !!!!
pourtant elle est toute simple du moins je pensais !!
donc voilà :
j'ouvre mon classeur, la page menu s'affiche ça c ok
ensuite je voudrais mas text box pour le mot de passe
si mot de passe bon on continue sinon on ferme le classeur
voilà mon code :
Private Sub Workbook_Open()
Sheets('Menu').Activate
Dim mdp As String
mdp = InputBox('Mot de passe?', 'Merci d'entrer le mot de passe')
If mdp <> '****' Then Woorkbooks('JOEL.XLS').Close
End Sub
qu'est ce qui bloque ?
merci a vous !
JC
je viens de me lancer dans ma 1ère macro et bien évidemment elle fonctionne pas !!!!
pourtant elle est toute simple du moins je pensais !!
donc voilà :
j'ouvre mon classeur, la page menu s'affiche ça c ok
ensuite je voudrais mas text box pour le mot de passe
si mot de passe bon on continue sinon on ferme le classeur
voilà mon code :
Private Sub Workbook_Open()
Sheets('Menu').Activate
Dim mdp As String
mdp = InputBox('Mot de passe?', 'Merci d'entrer le mot de passe')
If mdp <> '****' Then Woorkbooks('JOEL.XLS').Close
End Sub
qu'est ce qui bloque ?
merci a vous !
JC