Начинать работу всегда с одного листа

[Виктор82]

Добрый день! На работе есть созданная большая таблица, сейчас с переходом на ЛибреОфис этот код перестал работать

Option VBASupport 1
Private Sub Workbook_Open()
    Me.Sheets("ДЕБИТОРКА").Activate
    Dim wsSh As Object
    For Each wsSh In Me.Sheets
        Protect_for_User_Non_for_VBA wsSh
    Next wsSh
End Sub
Sub Protect_for_User_Non_for_VBA(wsSh As Object)
    wsSh.Protect Password:="1111", UserInterfaceOnly:=True
End Sub


Он ставил автоматическую защиту на все страницы и работа с документом всегда начинается строго с одной определённой странице. В Exel  всё работает, а в либро начинается настоящая вакханалия с этим кодом, внутри все формулы сбиваются и работать стало не возможно.