Program Excel - Błąd wykonania "1004": Nie można ustawić ukrytej właściwości klasy zakresu

Question

Jestem nowy w obsłudze skryptów i próbuję ulepszyć istniejące makro. Nagrałem makro do usuwania zduplikowanych i dodaje go w głównej funkcji, która wywołuje pewne inne funkcje, ale ja dostaję ten błąd, gdy dodam makro nagrałem:

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

kod wygląda

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 

Answer 1

Niektóre z możliwych odpowiedzi:

• masz komentarz w jednej z wybranych komórek
• masz jakieś narysowane obiekty, które nie resiz e z tekstem
• Twój arkusz jest chroniony

Po ustawieniu punktu przerwania na pierwszej linii obsługi zdarzeń, a następnie naciśnij klawisz F8, aby krok po kroku makro, jestem przy założeniu, że wywala na linii:

Range("A48:A136").EntireRow.Hidden = True 

Answer 2

spróbować :)

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 

to powinno działać dla ciebie :)