Excel VBA - Comment accéder à une feuille avec un Password

Описание

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