PROTECT-UNPROTECT

[GILLES]

Bonjour à tous.

Une question sur la protection des feuilles de calcul.
J'ai réalisé avec l'aide du Forum et de G CLAIRE en outre que je remercie
une petite application sur un enregistrement de courrier.

Je souhaite parfaire cette dernière par l'utilisation d'un mot de passe.
Je sais sans savoir l'utiliser qu'il existe la fonction Protect et Unprotect coupler avec un mot de passe. Je ne sais où la placer.

Je remercie d'avance ceux qui me lirons et ceux qui me répondront.

L'application est jointe à cette question.

A plus
Gilles

 

[GILLES]

- C'est toujours moi, j'ai oublié de débloquer l'application.
Merci à tous.
Gilles.

 

[bernard]

Salut Gilles,
Personnellement j'utilise ça dans un module:

Sub Protect()
Application.ScreenUpdating = False
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Protect password:="xxxxxx"
Next I
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub
____________________________________________________
Sub Unprotect()
Application.ScreenUpdating = False
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect password:="xxxxxx"
Next I
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub

et j'appelle la macro à chaque fois que j'en ai besoin dans mes autres modules

bernard

 

[GILLES]

- Merci Bernard pour ta solution. Je vais tenter de m'en sortir.

Bonne journée.