如何在受保护的工作表中更新表单控件标题？

Question

I have a form control which I wanted its caption changes between two entries. The worksheet is protected, but even I am changing userinterfaceonly = true and allowing drawingobjects = true it still can not be changed! is this a bug or I am doing something wrong? I am trying to avoid uprotect ==> modify ==> protect workaround.

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

Thanks in advance.

Cheers,
M

Answer 1

you want drawing objects to be false,

From help : True to protect shapes. The default value is True. True to protect shapes. The default value is True.