Private Sub Worksheet_Activate()
Dim MyPassword As String
MyPassword = "toto" 'là tu choisi le mot de passe que tu souhaite appliqué a ta feuille
Range("AA65000").Select 'choisi une cellule qui est loin de ton champ de donnees
Sheets("donnees").Protect Password:=MyPassword
Message = InputBox("Mot de passe:", "Entrer le mot de passe pour consulter la feuille")
If Message = MyPassword Then
Sheets("donnees").Unprotect Password:=MyPassword
Sheets("donnees").Range("A1").Select
Exit Sub
Else: Sheets("formulaire").Range("A1").Select
End If
End Sub