Question

继续上一个问题！VBA to change the name of the Activex button

我想在工作表点击启用按钮之前将工作表变灰。因此它看起来用户友好，并且他知道他需要点击按钮inroder进行编辑。

请建议

Answer 1

您可以制作两个按钮并将它们链接到类似下面的代码。确定锁定单元格的格式（我发现白色字体的灰色填充是消极的）。 Ex.1 Ex.2

Sub Unprotect()
    With Sheets("Sheet2")
        .Shapes("Edit").Visible = False
        .Shapes("Rounded Rectangle 2").Visible = True
        .Unprotect
        .Cells.ClearFormats
    End With
End Sub

Sub Protect()
    Sheets("Sheet2").Select
    ActiveSheet.Shapes("Rounded Rectangle 2").Visible = False
    ActiveSheet.Shapes("Edit").Visible = True
    With Sheets("Sheet2").Cells
        .Interior.Pattern = xlSolid
        .Interior.PatternColorIndex = xlAutomatic
        .Interior.ThemeColor = xlThemeColorDark1
        .Interior.TintAndShade = -0.149998474074526
        .Interior.PatternTintAndShade = 0
        .Font.ThemeColor = xlThemeColorDark1
        .Font.TintAndShade = 0
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

VBA灰色表格

1 个答案: