Как обновить заголовок элемента управления формы на защищенном листе?

Question

У меня есть элемент управления формы, который я хотел, чтобы его заголовок изменялся между двумя записями. Рабочий лист защищен, но даже если я изменяю userinterfaceonly = true и разрешаю drawingobjects = true, его все равно нельзя изменить! это ошибка или я что-то не так делаю? Я пытаюсь избежать защиты ==> изменить ==> защитить обходной путь.

Sub ShowChangesOnly()
Dim ws As Worksheet, Rng As Range, Criteria As Range, Btn As Object
    Set ws = ThisWorkbook.Sheets("Tod")
    ws.Protect , True, , , True, , , , , , , , , True, True
    Set Btn = ws.Buttons("Button 1")
    Set Rng = ws.Range("TodayD")
    Set Criteria = ws.Range("Criteria")
    RemoveFilters ws
    If Btn.Caption = "Filter Changes" Then
        Rng.AdvancedFilter xlFilterInPlace, Criteria
        Btn.Caption = "Show All"
        MsgBox "Total of " & Rng.Columns(3).SpecialCells(12).Count - 1 &  _
          " Found as Having Changes."
        Else
            Btn.Caption = "Filter Changes"
        End If
    End Sub

Спасибо заранее.

Приветствия
M

Answer 1

вы хотите, чтобы объекты рисования были ложными,

Из справки: True to protect shapes. The default value is True.