Sub Protection()
Dim wbMyWb As Workbook
Dim Nom_Fichier As Variant
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx", , , , True)
If Nom_Fichier <> False Then
Set wbMyWb = Workbooks.Open(Nom_Fichier)
wbMyWb.Activate
code = InputBox("Saisissez ci dessous le code de verrouillage du classeur")
For i = 1 To Sheets.Count
Sheets(i).Protect Password:=code
Next i
End If
wbMyWb.Close
End Sub