Всем привет
Есть такой макрос, присвоенный к кнопке След. накладная
Sub Макрос3()
Range("H10:H185").ClearContents
Cells(4, "D").ClearContents
ActiveSheet.Range("$B$9:$J$185").AutoFilter Field:=7
Cells(3, "D") = (Cells(3, "D").Value) + 1
Cells(4, "D").Activate
End
End Sub
Работает он следующим образом: нажимаешь на кнопку и отчищается H10:H185, отключается фильтр и номер накладной ставится +1 к текущему номеру
Есть проблема: при использовании защиты листа, а использовать его в данном случае нужно ОБЯЗАТЕЛЬНО, этот макрос работать не хочет. Появляется ошибка, что фильтр с защитой листа отключать через макрос нельзя.
Кто знает, как исправить?
Окно ошибки присвоил к сообщению