j'ai une macro pour faire apparaitre des feuilles invisibles :
Sub MontrerFeuille()
While pw <> "passe": pw = InputBox("entrer mot de passe"): Wend
Sheets("Info").Visible = True
Sheets("hsup").Visible = True
' MontrerFeuille Macro
' Macro enregistrée le 27/01/2005 par User144
'
End Sub
Mais mon pb, c'est que si je n'ai pas le mot de passe, je ne peux pas annuler.
Comment résoudre ce pb?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rai
Bonjour,
Une toute petite modif' de ton code devrait le faire :
Sub MontrerFeuille() pw = InputBox("entrer mot de passe") if pw="passe" then Sheets("Info").Visible = True Sheets("hsup").Visible = True Else 'optionnel MsgBox "Désolé", vbCritical, "Mauvais mot de passe" 'optionnel End If
End Sub
Bonne journée
Rai
Bonjour,
j'ai une macro pour faire apparaitre des feuilles invisibles :
Sub MontrerFeuille() While pw <> "passe": pw = InputBox("entrer mot de passe"): Wend Sheets("Info").Visible = True Sheets("hsup").Visible = True ' MontrerFeuille Macro ' Macro enregistrée le 27/01/2005 par User144 ' End Sub
Mais mon pb, c'est que si je n'ai pas le mot de passe, je ne peux pas annuler. Comment résoudre ce pb?
Merci d'avance. YANN
Bonjour,
Une toute petite modif' de ton code devrait le faire :
Sub MontrerFeuille()
pw = InputBox("entrer mot de passe")
if pw="passe" then
Sheets("Info").Visible = True
Sheets("hsup").Visible = True
Else 'optionnel
MsgBox "Désolé", vbCritical, "Mauvais mot de passe" 'optionnel
End If
End Sub
Bonne journée
Rai
Bonjour,
j'ai une macro pour faire apparaitre des feuilles invisibles :
Sub MontrerFeuille()
While pw <> "passe": pw = InputBox("entrer mot de passe"): Wend
Sheets("Info").Visible = True
Sheets("hsup").Visible = True
' MontrerFeuille Macro
' Macro enregistrée le 27/01/2005 par User144
'
End Sub
Mais mon pb, c'est que si je n'ai pas le mot de passe, je ne peux pas annuler.
Comment résoudre ce pb?
Une toute petite modif' de ton code devrait le faire :
Sub MontrerFeuille() pw = InputBox("entrer mot de passe") if pw="passe" then Sheets("Info").Visible = True Sheets("hsup").Visible = True Else 'optionnel MsgBox "Désolé", vbCritical, "Mauvais mot de passe" 'optionnel End If
End Sub
Bonne journée
Rai
Bonjour,
j'ai une macro pour faire apparaitre des feuilles invisibles :
Sub MontrerFeuille() While pw <> "passe": pw = InputBox("entrer mot de passe"): Wend Sheets("Info").Visible = True Sheets("hsup").Visible = True ' MontrerFeuille Macro ' Macro enregistrée le 27/01/2005 par User144 ' End Sub
Mais mon pb, c'est que si je n'ai pas le mot de passe, je ne peux pas annuler. Comment résoudre ce pb?
Merci d'avance. YANN
anomymousA
re,
une autre forme en utilisant la méthode InputBox et pas la focntion InputBox. Le principe est le même mais la méthode renvoie forcément du texte car le type n'est pas spécifié.
Do While response <> "passe" response = Application.InputBox(prompt:="entrer mot de passe") If response = False Then msgbox "Fin programme" : Exit sub Loop
j'ai une macro pour faire apparaitre des feuilles invisibles :
Sub MontrerFeuille() While pw <> "passe": pw = InputBox("entrer mot de passe"): Wend Sheets("Info").Visible = True Sheets("hsup").Visible = True ' MontrerFeuille Macro ' Macro enregistrée le 27/01/2005 par User144 ' End Sub
Mais mon pb, c'est que si je n'ai pas le mot de passe, je ne peux pas annuler. Comment résoudre ce pb?
Merci d'avance. YANN
re,
une autre forme en utilisant la méthode InputBox et pas la focntion
InputBox. Le principe est le même mais la méthode renvoie forcément du texte
car le type n'est pas spécifié.
Do While response <> "passe"
response = Application.InputBox(prompt:="entrer mot de passe")
If response = False Then msgbox "Fin programme" : Exit sub
Loop
j'ai une macro pour faire apparaitre des feuilles invisibles :
Sub MontrerFeuille()
While pw <> "passe": pw = InputBox("entrer mot de passe"): Wend
Sheets("Info").Visible = True
Sheets("hsup").Visible = True
' MontrerFeuille Macro
' Macro enregistrée le 27/01/2005 par User144
'
End Sub
Mais mon pb, c'est que si je n'ai pas le mot de passe, je ne peux pas annuler.
Comment résoudre ce pb?
une autre forme en utilisant la méthode InputBox et pas la focntion InputBox. Le principe est le même mais la méthode renvoie forcément du texte car le type n'est pas spécifié.
Do While response <> "passe" response = Application.InputBox(prompt:="entrer mot de passe") If response = False Then msgbox "Fin programme" : Exit sub Loop
j'ai une macro pour faire apparaitre des feuilles invisibles :
Sub MontrerFeuille() While pw <> "passe": pw = InputBox("entrer mot de passe"): Wend Sheets("Info").Visible = True Sheets("hsup").Visible = True ' MontrerFeuille Macro ' Macro enregistrée le 27/01/2005 par User144 ' End Sub
Mais mon pb, c'est que si je n'ai pas le mot de passe, je ne peux pas annuler. Comment résoudre ce pb?
