Bonjour à tous,  
 
Je cherche à protéger, déprotéger mon travail à l'aid e macro reliées à des boutons. Les lignes de macros que j'ai faites se trouvent ci-Après
Ca fonctionne sauf que j'ai fait le test en mettant un autre code que "rrr" et la déprotection (comme la protection) fonctionne aussi ! A quoi ça sert de mettre un code ?!!... Ca fait déjà un bout de temps que j'y travaille mais je ne vois pas !
 
Merci d'avance pour votre aide  
 
 
Sub Protéger()
 
'
    rrr = InputBox("donnez le mot de passe svp" )
For Each ss In Application.Sheets
ss.Select
 
     
     ActiveSheet.Protect Password:="rrr", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoSelection
Next
End Sub
 
 
Sub Déprotéger()
 
'
rrr = InputBox("donnez le mot de passe svp" )
For Each ss In Application.Sheets
ss.Select
 
     ActiveSheet.Protect Password:="rrr", DrawingObjects:=True, Contents:=True, Scenarios:=True
       ActiveSheet.EnableSelection = xlNoRestrictions
 
 
Next
End Sub

 
 
Au secours !!!