Salut Dok
Evidemment il faut proteger le classeur (outil/ protec/ classeur)
mettre un code de protect a ce classeur ("toto" par exemple,
et rajouter à la macro
ActiveWorkbook.Protect password:="toto", structure:=False, Windows:=True
comme ci dessous
Sub mystere()
Dim X, retour
retour = MsgBox("Accés a la feuille secrete." & Chr(13) & "que je ne veux pas montrer. " & Chr(13) & "" & Chr(13) & "" & Chr(13) & " Code d'accés obligatoire ! ", 4 + vbInformation + vbDefaultButton2, " et oui il faut un code . ")
If retour = vbYes Then
Do
X = Application.InputBox(" Saisir le code d'accés . * * * * * .", "Code d'accés à la feuilles secrete.", " Password !")
Loop Until LCase(X) = "dok" Or X = False
If X = ("dok") Or X = ("DOK") Then
Application.ScreenUpdating = False
ActiveWorkbook.Protect password:="toto", structure:=False, Windows:=True
Sheets("feuil1").Visible = True
End If
End If
End Sub
Ensuite lorsque tu ressortiras de cette feuille "mystere" il faudra penser à reinverser le procesus par un bouton macros ur la feuil Mystere qui t'en fera resortir avec:
Private Sub pass_visible()
Sheets("ici le nom de la feuil ou tu veux revenir").Select
Sheets("feuil1").Visible = False
ActiveWorkbook.Protect password:="toto", structure:=True, Windows:=False
end sub
voilà bonne programmation(sssssssssssssss)
Evelynetfrancois
End Sub
