Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

PROTECT-UNPROTECT

  • Initiateur de la discussion Initiateur de la discussion GILLES
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

G

GILLES

Guest
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
 

Pièces jointes

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
12
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…