无效的外部程序 – 新的编码

我试图隐藏某些行的代码依赖于将一个“密码”放入Excel中同一工作表中的一个单元格中。 我不是很聪明，但是到目前为止，我已经拼凑在一起了：

Sub HideData() With Sheet2 If Cells("B1").Text = "password" Then Rows("2:500").EntireRow.Hidden = False Else: Rows("2:500").EntireRow.Hidden = True End If End With End Sub 

任何帮助表示赞赏！

Answer 1

试试这个（注意将范围和表单连接起来的小点，没有这些小点的活动表单将会被引用 – 尽pipe如此，这不会导致你的错误）：

 Sub HideData() With Sheet2 .Rows("2:500").EntireRow.Hidden = Not (.Range("B1").Text = "preserve") End With End Sub