VBA使工作表变灰

继续我前面的问题

我想灰显该表，直到用户单击“启用”按钮。这样，它将看起来对用户友好，并且他理解他需要单击“编辑”中的按钮

---

请建议

您可以制作两个按钮，并将它们链接到下面的代码。确定锁定单元格的格式（我发现用白色字体填充灰色很有意思）。

---

你自己试过什么？上一个示例中您没有提供任何代码，本例也没有。谢谢您的回复。这是有道理的。但令人担忧的是，我的床单上并没有足够的空间容纳两个按钮。因为按钮应该放在一个单元格中，所以如果在一个单元格中添加两个按钮，看起来就不整洁了。我有一个在其他单元格上使用按钮的限制。如果我可以尝试n链接到一个按钮，这将真的是伟大的建议，在我的第一个问题。希望这会有帮助……如果你有任何想法，请告诉我

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