EXCEL213以降

EXCEL2013以降のバージョンで起動するとApplication.Visible = Falseで隠していたシートが表示されるようになってしまいました。MDIからSDIに変わってしまったのが原因の様です。

 


ThisWorkbook に記述

Private Sub Workbook_open()
'EXCEL起動時ユーザーフォームを表示する

    With UserForm1
        .StartUpPosition = munaak1
        .Top = 100
        .Left = 500
    End With
    UserForm1.Show vbModeless
    
End Sub

 

Sheet1記述

Private Sub UserForm_Activate()
''★起動時Excelを非表示にする★
    Application.Visible = False

End Sub

 

解決方法をご存知の方は教えてね!

 

vafeeさん ありがとうございます。

その方法だと以下のようになってしまいます。

 

 

2017/10/20

勤務先、情シスの方に見てもらったところ

UserForm1.Show vbModeless −−> UserForm1.Show とvbModelessを外すとシートが表示されなくなりましたと連絡がありました。(目から鱗だわ!) 但し、フォームにボタンを付けそこからシートを表示させ編集とかは無理です。

 

起動させたフォームにボタンを付け、そこからデータ入力用フォームを更に表示させるようにすれば、目的は叶いそうです。