代码之家 › 专栏 › 技术社区 › Mahhdy

如何更新受保护工作表中的窗体控件标题?

vba excel

Mahhdy · 技术社区 · 6 年前

我有一个表单控件,我希望在两个条目之间更改其标题。工作表是受保护的,但即使我正在更改 userinterfaceonly = true 允许 drawingobjects = true 还是无法改变!这是虫子还是我做错了什么?我试图避免uprotect==>modify==>保护解决方案。

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

提前谢谢。

干杯,
米