Salut le forum
Pense à protéger le code VBA car la on peut deviner facilement le mot de passe
Private Sub CommandButton1_Click()
Dim i As Integer
If TextBox1 = "toto" Then
For i = 2 To Sheets.Count
Sheets(i).Visible = True
Unload Me
Next i
MsgBox "Merci. Les feuilles 2 à " & i - 1 & "sont dorénavant visibles.", , "Pass-Pass dit:"
Else:
MsgBox "Le mot de passe est incorrect. Veuillez réessayer", , "Pass-Pass dit:"
TextBox1.Value = ""
End If
End Sub
Mytå