我有一本Excel工作簿，其中包含三页信息。

对于成功按下受密码保护的按钮（称为“管理员”）的用户，应该看到第2张（称为Grund）。当再次按下该按钮时，它应改为隐藏工作表。此按钮位于工作表1（称为Hela）上。

工作表1中某些列（BC：BI）中的信息将通过受密码保护的按钮以相同的方式隐藏和隐藏。

设置按钮以使用调用功能启动宏。
我设法使列按预期进行隐藏和取消隐藏（请参见下面的代码），但是我找不到与列相同的隐藏和取消隐藏工作表的方法。

在工作表下面的代码中，该文件受到保护，因此我尝试解决此问题，并且需要使用与我想像相同的方式来设置工作表的宏。

我尝试了“ xlhidden”和“ .hidden = not”的不同变体以及不同的“ if”，“ ifs”等。

这是隐藏和取消隐藏列的宏

Sub hideunhidecol()
Dim pwd As String

pwd = "admin"
'
activeSheet.Unprotect Password:=pwd 'unprotect the sheet'

Columns("BC:BI").Hidden = Not Columns("BC:BI").Hidden

With activeSheet
    .Protect Password:=pwd,DrawingObjects:=True,Contents:=True,Scenarios:=True _,AllowFiltering:=True
    .EnableSelection = xlNoRestrictions
    'protect the sheet'
End With
End Sub