Cette vidéo va vous montrer comment accéder à une feuille grâce à un Mot de passe. <br /> <br />ci-dessous le code : <br /> <br />Private Sub Workbook_Open() <br /> <br /> 'Déclaration des variables <br /> Dim i As Integer <br /> Dim MonPassword As Variant <br /> <br /> On Error GoTo 1 <br /> <br /> 'Afficher la feuille Sommaire dès l'ouverture du Classeur <br /> Worksheets("Sommaire").Activate <br /> <br /> 'On faire une boucle permettant de masquer toutes autres feuilles <br /> For i = 1 To Sheets.Count - 1 <br /> Sheets("User " & i).Visible = False <br /> Next i <br /> <br /> ' On va récupérer le code ou mot de passe dans une boite de type InputBox <br /> MonPassword = InputBox("Veuillez entrer votre mot de passe pour accéder à votre feuille :", "Identification") <br /> <br /> 'On va réaliser les différents test <br /> <br /> If MonPassword = "1234" Then <br /> <br /> Sheets("User 1").Visible = True <br /> Worksheets("User 1").Select <br /> Range("A1").Select <br /> <br /> End If <br /> <br /> If MonPassword = "12345" Then <br /> <br /> Sheets("User 2").Visible = True <br /> Worksheets("User 2").Select <br /> Range("A1").Select <br /> <br /> End If <br /> <br /> If MonPassword = "123456" Then <br /> <br /> Sheets("User 3").Visible = True <br /> Worksheets("User 3").Select <br /> Range("A1").Select <br /> <br /> End If <br /> <br /> 'Ouvrir toutes les feuilles si mot de passe administrateur <br /> <br /> If MonPassword = "1234567" Then <br /> <br /> For i = 1 To Sheets.Count <br /> Sheets("User " & i).Visible = True <br /> Next i <br /> <br /> End If <br />1 <br />End Sub
