被修改

Question

在工作簿中，我有名为AAA，BBB，CCC等的工作表。

在＆＃34; main＆＃34;表，我要求用户从列表框中选择他/她的名字（单元格D7）。在单元格D10中，将显示密码。如果密码正确，则只能看到名称为单元格D7的工作表。所有其他工作表应保持/隐藏。

我有以下但我无法让它发挥作用。

＆＃39;按钮2的代码取消隐藏工作表：

Sub ViewSheet2()
   pword = Application.InputBox("Type your password", "PASSWORD REQUIRED")
   If pword = Range("D10").Value Then
         Sheets(Range("D7")).Visible = True
   End If
End Sub

Answer 1

直接使用Cell来引用其中的值

Sheets(Cells(7, 4).Value).Visible = True

或者如果你想坚持范围

Sheets(Range("D7").Value).Visible = True

Answer 2

被修改

试试这个

Sub ViewSheet2()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim PWORD As String
pword1 = ws.Range("D7")
PWORD = Application.InputBox("Type your password", "PASSWORD REQUIRED")
If PWORD = ws.Range("D10").value Then
Sheets(Format(pword1)).Visible = True
else
MsgBox "Incorrect Password"
Exit Sub
End If
End Sub

从VBA设置Excel中的表格可见性

2 个答案:

被修改