使用inputbox设置密码以隐藏/取消隐藏excel工作表
使用inputbox设置密码以隐藏/取消隐藏excel工作表
提问于 2022-05-06 10:26:34
我最近做了一个MCQ测试模块，它将帮助准备带有来自问题库的随机问题的试卷，并进行测试和计算分数。
所有这些都是经过编码和完成的。由于这是MCQ测试宏，有一个名为"Admin“的工作表，它将完成大部分工作，如生成问题、设置计时器、设置通过率等。此表将使用另一个简单的宏xlvery隐含隐藏。为了取消隐藏此工作表，我希望设置用户在Admin中输入密码的内容，然后隐藏工作表。
如果管理员想再次访问这个工作表，他必须输入密码，该密码将使用前面设置的密码进行验证。
下面是我编写的代码的截图。“如果，否则，那么和=”似乎不起作用。它要么抛出错误密码的警告消息，要么打开工作表，即使密码不正确。
任何帮助都是非常感谢的。提前谢谢。
回答 1
Stack Overflow用户
回答已采纳
发布于 2022-05-06 12:21:29
兄弟，您没有为inpu2分配任何值；因此，如果您想将inpu1与inpu2进行比较的话。您应该将以前存储的值分配给inpu2。只有这样，你才应该比较两者。您可以通过两个简单的步骤来完成这一任务。
步骤1:创建一个新的隐藏工作表来存储传递
步骤2:从工作表中检索通行证以检查
Option Compare Text
Sub passToLock()
Dim newSheetObj As Worksheet, inpu2 As String
Set newSheetObj = Worksheets.Add
newSheetObj.Name = "hiddenPass" ' to refer to later on
newSheetObj.Visible = xlSheetVeryHidden ' to make the sheet hidden
inpu2 = Application.InputBox("Enter The Password") ' to get initial password
newSheetObj.Range("A1").Value = inpu2 ' to store the password in hidden sheet
Set newSheetObj = Nothing
End Sub
Sub Unlock2()
Dim inpu1 As String, inpu2 As String
inpu2 = Sheets("hiddenPass").Range("A1").Value
inpu1 = Application.InputBox("Enter The Password")
If inpu1 = inpu2 Then Worksheets("Admin CP").Visible = xlSheetVisible
End Sub我相信你可以修改代码以满足你的需求。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/72139992
复制相关文章
相似问题
腾讯云开发者
