excel vbaを使用してuserformでブックを隠す

私は隠している "archive"という名前のブックを持っています。ワークブックを開くと、UserFormがポップしてパスワードを尋ねます。正しいパスワードが入力されると、別のフォームが開きます。問題は、ブックをクリックした後にパスワードフォームが開くと、他のワークブックを開くことができないということです。すべてのワークブックが隠されているように見え、パスワードを入力した場合にのみ開いてしまいます。私が使用するコードは次のとおりです。excel vbaを使用してuserformでブックを隠す

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

出典

2016-09-05 Mbarack Saeed

最初のuserformに 'UserForm_Initialize（）'がありますか？もしそうなら、あなたは何を持っていますか？ –

「Workbook_Open」イベントはモーダルでパスワードフォームを表示していますが、問題を再現するのに十分なコードが表示されていないため推測に過ぎません。 – Tim

お世話になりましたありがとうございました –

あなたは、これはあなたをできるようになります

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

に、あなたのコードを変更している vbModelessモーダル

を使用する必要があります他のブックを開く

出典

2016-09-06 07:26:19

Arunに感謝します。私はそれを試してみましょう。 –

もう一度ありがとうございますArun、それは動作します。神のお恵みがありますように。もう一つの問題はこれです。別のブックを開くと、それは隠れたブックと一緒に開きます。 –

'Windows（" archive "）を試してみてください。Visible = False' –

excel vbaを使用してuserformでブックを隠す

答えて

関連する問題