Macro masquer feuille avec mot de passe

Résolu
PIERRO1234 Messages postés 21 Statut Membre -  
PIERRO1234 Messages postés 21 Statut Membre -
Bonjour,
Concernant la macro de Greg (option1), je n'y arrive pas! puis avoir un fichier excel avac la macro svp?
Merci bien

1 réponse

  1. PIERRO1234 Messages postés 21 Statut Membre
     
    Oups , j'ai trouvé sur le site
    Private Sub Worksheet_Activate()
    Dim REP As String
    Columns("A:XFD").EntireColumn.Hidden = True
    REP = InputBox("PASSWORD", "OUVERTURE FEUILLE RECAP ASSO")
    If REP = "YOURPASSWORD" Then
    Columns("A:XFD").EntireColumn.Hidden = False
    ActiveSheet.Cells(1, 1).Select
    End If
    End Sub

    Merci
    0