Masquer des lignes sur une feuille protégé en fonction d'une autre feuille
AnthonMa
Messages postés
2
Statut
Membre
-
AnthonMa Messages postés 2 Statut Membre -
AnthonMa Messages postés 2 Statut Membre -
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.
Un grand merci d'avance pour votre aide !
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
'Deverrouillage
Worksheets("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
' Verrouillage
Worksheets("Récapitulatif Lot").Protect (Mot de passe)
End Sub
Un grand merci d'avance pour votre aide !
A voir également:
- Masquer des lignes sur une feuille protégé en fonction d'une autre feuille
- Comment imprimer en a5 sur une feuille a4 - Guide
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment supprimer une feuille sur word - Guide
- Fonction si et - Guide
1 réponse
Bonjour,
Exemple avec le MDP "Essai"
Cdlt
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
AnthonMa
Messages postés
2
Statut
Membre
Un grand merci, cela fonctionne.
