Private Sub Worksheet_Activate()
Dim mdp$
Cells.RowHeight = 0.1
Cells.ColumnWidth = 0.1
mdp = InputBox("Le mot de passe, illico presto!", "SESAME, OUVRE-TOI")
If mdp = "a" Then
Cells.RowHeight = Sheets(1).StandardHeight
Cells.ColumnWidth = Sheets(1).StandardWidth
End If
End Sub