excel - 禁止在 Excel 工作表 (VBA) 中调整按钮大小

Question

我创建了一个宏，它为我的工作簿中的每个工作表添加了两个按钮。我试图弄清楚如何“锁定”按钮(通过 VBA)，以便用户无法调整大小、更改文本等。这似乎应该是一项简单的任务，但由于某种原因，我找不到简明的答案。我找到的唯一代码是:.Placement = xlMove ，但是，这不起作用。

这是当前的按钮代码:

Dim t1 As Range
Set t1 = ActiveSheet.Range(Cells(TwoDown, 6), Cells(TwoDown, 6))
Set btn1 = ActiveSheet.Buttons.Add(t1.Left, t1.Top, t1.Width, t1.Height)

With btn1
    .Placement = xlMove
    .OnAction = "Module32.btnF"
    .Caption = "Sort By Field Order"
     .Name = "Sort By Field Order"
End With

t1.Select
Application.ScreenUpdating = True

提前致谢并祝圣诞快乐!

Answer 1

AFAIK，这样做的唯一方法是保护工作表，使用 DrawingObjects:=True和所有其他选项 False或 True如预期的。

ws.Protect DrawingObjects:=True, Contents:=False, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True

请注意，您必须 Unprotect尝试添加按钮之前的工作表，如果它已经受到保护。

旁注 : 一个 Button还有一个 Locked和 LockedText属性，但这些仅在工作表受到保护时才有效。将它们设置为 False允许在工作表处于设计模式(但仍 protected )时编辑按钮。如前所述，我认为完成您正在寻找的唯一方法是保护工作表。