TheProdigy
XLDnaute Impliqué
Bonjour à tous j'ai une macro que j'ai perfectionné grace à votre forum.
J'aimerais bien si je pourrais avoir un complément pr afficher le mot de passe en forme ***.
Merci à tous
Sub afficher_tout()
If InputBox("Mot de passe ?") = "123" Then
Dim n As Integer
For n = 2 To Sheets.Count
Sheets(n).Visible = True
Next n
Else: MsgBox ("Mot de passe incorrect. Réessayez!")
If InputBox("Mot de passe ?") = "" Then Exit Sub
End If
End Sub
J'aimerais bien si je pourrais avoir un complément pr afficher le mot de passe en forme ***.
Merci à tous
Sub afficher_tout()
If InputBox("Mot de passe ?") = "123" Then
Dim n As Integer
For n = 2 To Sheets.Count
Sheets(n).Visible = True
Next n
Else: MsgBox ("Mot de passe incorrect. Réessayez!")
If InputBox("Mot de passe ?") = "" Then Exit Sub
End If
End Sub