隠している「アーカイブ」という名前のワークブックがあります。ブックを開くと、ユーザーフォームが表示され、パスワードの入力を求められます。正しいパスワードを入力すると、別のフォームが開きます。問題は、ブックをクリックした後にパスワードフォームを開くと、他のブックを開くことができないことです。すべてのワークブックが非表示になっていて、パスワードを入力した場合にのみ開くようです。私が使用するコードは次のとおりです。
Private Sub commandbutton2_click()
If TextBox1.Value = "Secret" Then
MsgBox "Welcome", vbExclamation, "Access granted"
Me.Hide
UserForm1.Show
Else
MsgBox "You have entered an incorrect password!"
Unload Me
End If
End Sub
vbModeless
モーダルを使用する必要があります
つまり、コードを変更します
Sub auto_open()
Application.Visible = False
UserForm2.Show
End Sub
に
Sub auto_open()
Application.Visible = False
Windows("archive").Visible = False
UserForm2.Show vbModeless
End Sub
これにより、他のブックを開くことができます
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加