Masquer des lignes sur une feuille protégé en fonction d'une autre feuille Fermé

Question

Bonjour, 

Je bloque sur une macro que je doit faire sur une feuille protégé.

Je dois afficher ou masquer les lignes (45:46) d'une feuille (Récapitulatif Lot) en fonction du contenu d'une cellule (H44) d'une autre feuille (Administrative). J'ai réussi à faire cela quand la feuille n'est pas verrouillé.

Par contre, cela ne fonctionne pas quand c'est verrouillé. Voici  mon code.

Private Sub Worksheet_Change(ByVal Target As Range)Dim lignes As Range'DeverrouillageWorksheets("Récapitulatif Lot").Unprotect (Mot de passe)  'Définir les lignes à masquer  Set lignes = Worksheets("Récapitulatif Lot").Rows("45:46")    'Masquer/Afficher les lignes  If Worksheets("Administrative").Range("H44").Value = 0 Then    lignes.Hidden = True  Else    lignes.Hidden = False  End If  ' VerrouillageWorksheets("Récapitulatif Lot").Protect (Mot de passe)  End Sub 

Un grand merci d'avance pour votre aide !

Frenchie83 · Answer

Bonjour,
Exemple avec le MDP "Essai"

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lignes As Range
    
    'Deverrouillage
    Worksheets("Récapitulatif Lot").Unprotect Password:="ESSAI"
    
    'Définir les lignes à masquer
    Set lignes = Worksheets("Récapitulatif Lot").Rows("45:46")
    
    'Masquer/Afficher les lignes
    If Worksheets("Administrative").Range("H44").Value = 0 Then
    lignes.Hidden = True
    Else
    lignes.Hidden = False
    End If
    
    ' Verrouillage
    Worksheets("Récapitulatif Lot").Protect Password:="ESSAI"
End Sub

Cdlt

Masquer des lignes sur une feuille protégé en fonction d'une autre feuille

1 réponse

Discussions similaires