Excel - erreur d'Exécution '1004': Impossible de définir la propriété hidden de la gamme de classe

Je suis nouveau sur le script et je suis en train d'essayer d'améliorer une Macro existante. J'ai enregistré une macro pour supprimer les doublons et de l'ajouter dans une fonction Principale qui appelle quelques autres fonctions, mais j'obtiens cette erreur quand j'ai ajouter la macro que j'ai enregistré:

Run-time error '1004': Unable to set the hidden property of the range class

Le code ressemble à

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim changed As Range
    Set changed = Intersect(Target, Range("J15"))
    If Not changed Is Nothing Then
        Range("A48:A136").EntireRow.Hidden = True
        Select Case Target.Value
            Case "Agriculture"
                Range("A48:A96").EntireRow.Hidden = False
            Case "Commercial"
                Range("A97:A136").EntireRow.Hidden = False
            Case "MDP"
                Range("A48:A61").EntireRow.Hidden = False
        End Select
        Range("J15").Select
    End If
End Sub

OriginalL'auteur user1917946 | 2012-12-20

  1. 7

    Quelques réponses possibles:

    • Vous avez un commentaire dans l'une des cellules sélectionnées
    • Vous avez quelques objets dessinés qui ne pas redimensionner avec texte
    • Votre feuille de calcul est protégée

    Lorsque vous définissez un point d'arrêt sur la première ligne du gestionnaire d'événement, puis appuyez sur la touche F8 à l'étape grâce à la macro, je suis en supposant qu'elle se bloque sur la ligne:

    Range("A48:A136").EntireRow.Hidden = True
    Merci pour votre réponse, mais mon classeur est protégé et veut uniquement en mode protégé, en non en mode protégé, s'il vous plaît aider.
    Désolé, je n'ai pas compris le commentaire! Je pense que c'est peut être un problème de traduction ...
    J'ai un problème similaire... s'il vous Plaît vérifier ma question ici: stackoverflow.com/questions/19976469/...

    OriginalL'auteur Andy Brown

  2. 0

    essayez ceci 🙂

    Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.Unprotect "password_here"
    Dim changed As Range
    Set changed = Intersect(Target, Range("J15"))
    If Not changed Is Nothing Then
        Range("A48:A136").EntireRow.Hidden = True
        Select Case Target.Value
            Case "Agriculture"
                Range("A48:A96").EntireRow.Hidden = False
            Case "Commercial"
                Range("A97:A136").EntireRow.Hidden = False
            Case "MDP"
                Range("A48:A61").EntireRow.Hidden = False
        End Select
        Range("J15").Select
    End If
ActiveWorkbook.Protect "password_here"
End Sub

    Cela devrait fonctionner pour vous 🙂

    OriginalL'auteur Krystian Tambur