一、應用程序窗口最大化顯示

　　Sub wdstate()

　　Application.WindowState = xlMaximized

　　End Sub

　　二、應用程序窗口最小化顯示

　　Sub wdstate()

　　Application.WindowState = xlMinimized

　　End Sub

　　三、應用程序窗口正常模式顯示

　　Sub wdstate()

　　Application.WindowState = xlNormal

　　End Sub