Ошибка VBA Не удалось установить скрытое свойство класса диапазона Ошибка 1004

Question

когда у вас есть элемент управления из формы, нет проблемы
, но если он у вас есть на самом листе, то он работает на самом деле, но с ошибкой: 1004
, поэтому просто используйте (On Error Resume Next)

Private Sub ComboBox1_Change()
Dim wsMon As Worksheet
Set wsMon = ThisWorkbook.Worksheets("Montag")
On Error Resume Next
Select Case ComboBox1.ListIndex
       Case 0
            xHide (False)
            wsMon.Rows("12:25").EntireRow.Hidden = True
            xHide (True)
       Case 1
            xHide (False)
            wsMon.Rows("12:25").EntireRow.Hidden = False
            wsMon.Rows("19:25").EntireRow.Hidden = True
            xHide (True)
       Case 2
            xHide (False)
            wsMon.Rows("12:25").EntireRow.Hidden = False
            xHide (True)
End Select

End Sub

xHide - логическая функция: true

Application.ScreenUpdating = True
Application.DisplayAlerts = True

или False

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Answer 1

Если я запускаю этот файл и мой лист защищен паролем, я получаю ту же ошибку. Попробуйте добавить эту строку (при необходимости вы можете повторно защитить ее):

wksMain.Unprotect (conPassword)

Кроме того, вам не нужно возобновлять сообщение об ошибке, а если вы его используете, добавляйте Go To 0 всякий раз, когда вам нужно. Вы прошли код, для которого он нужен.