VBAProject --> Microsoft Excel Objects --> ThisWorkbook

Private Sub Workbook_Open()

    ' Excelを最小化
    Application.WindowState = xlMinimized
            
    ' Excelをアクティブなアプリケーションとする
    VBA.AppActivate Excel.Application.Caption
            
    UserForm1.Show

End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ