問題1、在Execl2013中,使用Application.Visible = False是隱藏Execl程式,當前打開的其它Execl檔案也不可見。
如何只隱藏當前的作業薄,不影響其它的作業薄?
問題2、Execl2013不同的作業薄不在一個視窗內,點擊右上角的“x”就會關閉當前的作業薄。如果在點“x”后不想直接關閉作業薄,而是把當前作業薄隱藏,怎么做?
uj5u.com熱心網友回復:
樓主你好,關于兩個問題,請試試我的方法1. 因為Application指代的是Excel本體,所以如果把它的Visible改成False,就會造成Excel被隱藏,所有的檔案也都會看不到,所以咱們如果要隱藏一個Workbook,只能對ActiveWindow這個Object進行隱藏,陳述句是ActiveWindow.Visible = False
2.要實作這點就需要知道點擊那個X之后,Excel做了什么,當用戶點擊后,Excel會出發一個Before Close時間。因為這個動作是Excel自己提供的,咱們要想干預它的動作,就需要在想要隱藏的Workbook的ThisWorkbook的Object中,寫入一個程序
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
ActiveWindow.Visible = False
End Sub
首先要講關閉的動作取消掉,所以Cancel = True,其次,將點擊的那個視窗隱藏掉。
如果疑問,請繼續發帖。
轉載請註明出處,本文鏈接:https://www.uj5u.com/caozuo/118396.html
上一篇:安裝delphi時顯示無法訪問windowsInsaller
下一篇:求大神幫忙解密下excel
