sur une feuille 2 quand je l'active
je veux qu apparaissent une inputbox
avec le texte "Mot de passe"
Quand je rentre le mot de passe "Agefec"
l'inputbox disparait et j ai la feuille 3 et 4 qui apparait
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
Francois L
Bonjour tous le monde
voila
quelqu un saurait il faire en vba ?
sur une feuille 2 quand je l'active je veux qu apparaissent une inputbox avec le texte "Mot de passe" Quand je rentre le mot de passe "Agefec" l'inputbox disparait et j ai la feuille 3 et 4 qui apparait
Bonsoir,
En supposant que les feuilles 3 et 4 sont masquées, mettre dans la feuille 2 le code suivant
Private Sub Worksheet_Activate() Test = InputBox("Entrez le mor de passe", "Bonjour") If Test <> "Agefec" Then MsgBox "Mot de passe erroné" Else For i = 3 To 4 Sheets(i).Visible = True Next End If End Sub
-- François L
Bonjour tous le monde
voila
quelqu un saurait il faire en vba ?
sur une feuille 2 quand je l'active
je veux qu apparaissent une inputbox
avec le texte "Mot de passe"
Quand je rentre le mot de passe "Agefec"
l'inputbox disparait et j ai la feuille 3 et 4 qui apparait
Bonsoir,
En supposant que les feuilles 3 et 4 sont masquées, mettre dans la
feuille 2 le code suivant
Private Sub Worksheet_Activate()
Test = InputBox("Entrez le mor de passe", "Bonjour")
If Test <> "Agefec" Then
MsgBox "Mot de passe erroné"
Else
For i = 3 To 4
Sheets(i).Visible = True
Next
End If
End Sub
sur une feuille 2 quand je l'active je veux qu apparaissent une inputbox avec le texte "Mot de passe" Quand je rentre le mot de passe "Agefec" l'inputbox disparait et j ai la feuille 3 et 4 qui apparait
Bonsoir,
En supposant que les feuilles 3 et 4 sont masquées, mettre dans la feuille 2 le code suivant
Private Sub Worksheet_Activate() Test = InputBox("Entrez le mor de passe", "Bonjour") If Test <> "Agefec" Then MsgBox "Mot de passe erroné" Else For i = 3 To 4 Sheets(i).Visible = True Next End If End Sub
-- François L
damgui
bonjour francois
c est exactement ce que je voulais et une question supplementaire est il possible de regler la taille de l'inputbox?
bonjour francois
c est exactement ce que je voulais
et une question supplementaire
est il possible de regler la taille de l'inputbox?