VBA 列的隐藏和显示,密码验证

VBA 列的隐藏和显示,密码验证

Sub button1_Click()
  'default password
  finalPwd = "123456"

  '
  If Sheets("Sheet1").Columns("E:G").Hidden = True Then
     'INPUT PASSWORD
     inputPwd = InputBox("INPUT PASSWORD!", "INFO", Default)
     
     If finalPwd = inputPwd Then
        Sheets("Sheet1").Columns("E:G").Hidden = False
     Else
        MsgBox ("password error！")
     End If
  Else
     Sheets("Sheet1").Columns("E:G").Hidden = True
  End If
End Sub

效果验证：

按下【button】，输入密码

指定列表示

※显示隐藏的时候如果报 Range类无法定义Hidden，是因为sheet被保护了，解除保护即可。