déprotection feuille par macro

[darib52]

bonsoir à tous,
j'ai confectionné une macro de mise à jour d'un prog que j'ai diffusé.
le pb est que j'ai protégé les feuilles par un mot de passe, qu'il faut que je les déprotège, fasse la mise à jour, et les reprotège.
la macro ci-dessous décrit le processus sauf pour le mot de passe.
quelle commande intégrée pour donner le mot de passe dans la macro et reprotèger avec le même mot, sans le diffuser aux utilisateurs.

merci de vos conseils toujours avisés.

Sub Bouton1_QuandClic()

Application.ScreenUpdating = False
Application.Dialogs(xlDialogOpen).Show 'permet le choix du chemin'
Sheets('accueil').Select
ActiveSheet.Unprotect
Range('A6:L6').Select
ActiveCell.FormulaR1C1 = 'version 1.02 du 08 juin 2006'
Range('G8').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets('departement').Select
ActiveSheet.Unprotect
ActiveWindow.SmallScroll Down:=114
Range('A147:E147').Select
ActiveCell.FormulaR1C1 = _
'=(''5°) PRINCIPAUX CONSTATS AU 31/12/''&R[-143]C[29]&'' :'')'
Range('B17').Select
ActiveWindow.SmallScroll Down:=-126
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets('region').Select
ActiveWindow.SmallScroll Down:=87
ActiveSheet.Unprotect
Range('A147:E147').Select
ActiveCell.FormulaR1C1 = _
'=(''5°) PRINCIPAUX CONSTATS AU 31/12/''&R[-143]C[29]&'' :'')'
Range('b17').Select
ActiveWindow.SmallScroll Down:=-144
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save 'sauvegarde du fichier modifié'
ActiveWindow.Close 'fermeture du fichier'
CreateObject('Wscript.shell').Popup 'La mise à jour s'est bien déroulée. Si vous avez diffusé le fichier d'origine, merci de faire suivre cette mise à jour.', 4, 'E.V.A. - Mise à jour n° 1' 'msgbox avec temporisation'
ActiveWorkbook.Close savechanges:=False
Application.Quit
End Sub

 

[darib52]

réponse en direct sur ma boite

ActiveSheet.Unprotect Password:='toto'

et ça fonctionne.
merci à ceux qui ont jeté un oeil.
amitiés à tous.