moinschergratuit a écrit :
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
|