Bonjour,
bon j'ai trouvé ce que je cherchais il y a juste une modification à faire pour que mon travail soit comme je l'imaginais.
Voici le code que j'ai utilisée :
Private Sub Worksheet_Activate()
Dim REP As String
Columns("A:XFD").EntireColumn.Hidden = True
REP = InputBox("PASSWORD", "OUVERTURE FEUILLE RECAP ASSO")
If REP = "Alpha" Then
Columns("A:XFD").EntireColumn.Hidden = False
ActiveSheet.Cells(1, 1).Select
End If
End Sub
Il fonctionne parfaitement mais si le code n'est pas rentré la page ne se voit pas. Ce que j'aimerais c'est que la page soit visible mais non modifiable. J'ai modifiée le "Hidden = True" par "Fasle", ma page est bien devenue visible, mais modifiable même si le code n'est pas rentré (je me répète mais j'essaie d'être clair dans mes propos ). Je pense que c'est justement ça que je dois changer mais je ne sais pas par quel code.
Pouvez vous m'aider ?
Par avance merci.