Enlever et remettre une protection dans une macro

  • Initiateur de la discussion Initiateur de la discussion nike780
  • 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 !

nike780

XLDnaute Occasionnel
Bonjour,

J'ai plusieurs feuilles de calculs avec beaucoup de formules, je voudrai protéger les feuilles (je n'ai pas mis de mot de passe) mais lorsque je clique sur la case pour actualiser il ne se passe rien.

Je voudrai savoir s'il est possible dans la macro ci-dessous d'intéger une fonction qui enlève la protection (sans mot de passe) au début de la macro et qui la remette à la fin

Sub masquerlignes()
Dim cel As Range

Range("a36:a71").EntireRow.Hidden = False

For Each cel In Range("a36:a71")
If cel = "" Or cel = 0 Then
cel.EntireRow.Hidden = True
End If
Next
End Sub

D'avance je vous remercie pour votre aide

Cdlt

Michel
 
Re : Enlever et remettre une protection dans une macro

Bonjour nike, Le Forum

Voici les deux instructions trouvées il y a quelques temps sur ce site grace au moteur de recherche

ActiveSheet.Unprotect Password:="1234"

ActiveSheet.Protect Password:="1234"

A+
 
Re : Enlever et remettre une protection dans une macro

Bonjour,

Je viens d'essayer la fonction
ActiveSheet.Unprotect et ActiveSheet.Protect
sans mettre l'option Password car je n'ai pas mis de mot de passe et ça fonctionne.

Je te remercie

Cdlt

Michel
 
- 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

Discussions similaires

Réponses
17
Affichages
471
  • Question Question
Microsoft 365 modifier un code
Réponses
1
Affichages
464
Réponses
4
Affichages
223
Retour