使用按钮隐藏单元格值的VBA代码

Question

我当前使用的 VBA 代码是:

Sub PasswordPointage()
       Dim Password As String
       Do Until Password = "123"
             Password = InputBox("plz enter password","Password","")
        If Password = "" Then
                   Exit Sub
        End If
       Loop
       Columns ("A:B").EntieColumn.Hidden = False
End Sub

但问题是我无法保护我的工作表并使其正常工作，因为我无法隐藏/取消隐藏 protected 工作表上的列

是否有任何代码只能隐藏/取消隐藏单元格值？或者也许用白色为值着色，并在按下按钮时将其设为黑色

Answer 1

But the Problem is that I can't protect my sheet and make it work since I can't hide/unhide columns on protected sheets

你可以。最简单的方法是使用 UserInterfaceOnly:=True

保护工作表

Sheet1.Protect Password:="abc", UserInterfaceOnly:=True

现在您可以隐藏/取消隐藏 protected 工作表中的列

Sheet1.Columns(3).EntireColumn.Hidden = True