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

Fermé

AnthonMa Messages postés 2 Date d'inscription dimanche 17 mars 2019 Statut Membre Dernière intervention 18 mars 2019 - 17 mars 2019 à 21:01
AnthonMa Messages postés 2 Date d'inscription dimanche 17 mars 2019 Statut Membre Dernière intervention 18 mars 2019 - 18 mars 2019 à 08:32

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

'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
Feuille de pointage excel - Télécharger - Tableur
Supprimer une feuille word - Guide
Masquer une conversation whatsapp - Guide
Feuille a5 - Guide
Fonction si et - Guide

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
18 mars 2019 à 08:09

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

AnthonMa Messages postés 2 Date d'inscription dimanche 17 mars 2019 Statut Membre Dernière intervention 18 mars 2019
18 mars 2019 à 08:32

Un grand merci, cela fonctionne.

Discussions similaires

Feuille de score belote

feuille excel de gestion belote

Remplir une cellule (texte) en fonction d'une autre (texte).

Statut « en ligne » alors que non

Discussions similaires

Newsletters