将按钮设置为已解锁

Question

所以我有一张保护和取消保护VBA的工作表。除了我的表单重置按钮之外，这在大多数情况下工作正常，不允许任何人点击按钮（下面编码）。

有没有办法在按钮中设置属性才能解锁？因此，当它之前的宏创建它然后锁定工作表时，您仍然可以单击它？

With ActiveSheet.Buttons.Add(545, 42, 72, 18)
        .Name = "NEWNCR"
        .Caption = "New NCR #"
    End With
    ActiveSheet.Shapes.Range(Array("NEWNCR")).Select
    Selection.OnAction = "populatencrnumber"

也许像

ActiveSheet.Shapes.Range(Array("NEWNCR")).Locked = False

这个确切的例子当然不起作用。但这样的事情存在，对吗？任何帮助将不胜感激。