當您關閉活頁簿在 Excel 中的 「 若要隱藏儲存變更 」 方式提示

附註: 我們想要以您的語言,用最快的速度為您提供最新的說明內容。 本頁面是經由自動翻譯而成,因此文中可能有文法錯誤或不準確之處。 讓這些內容對您有所幫助是我們的目的。 希望您能在本頁底部告訴我們這項資訊是否有幫助。 此為英文文章出處,以供參考。

摘要

在 Microsoft Excel 中,您可以建立 Microsoft Visual Basic for Applications (VBA) 巨集,當您關閉活頁簿時,會隱藏 [儲存變更的提示。 這可以完成指定狀態的活頁簿已儲存的屬性,或是隱藏的活頁簿的所有通知。

其他資訊

附註:Microsoft 提供不明示或暗示圖例僅程式設計的範例。 這包含,但不限於銷售或適合特定用途的隱含的擔保責任。 本文假設您已熟悉示範所的程式設計語言,以及整合的工具,會用來建立並偵錯程序。 Microsoft 支援工程師可以協助您說明的特定的程序的功能。 不過,它們不會修改這些提供的新增功能或建構符合您特定需求的程序的範例。 

若要準備實作其中一項下面的範例,請先執行下列步驟:

  1. 啟動 Excel 並開啟新的活頁簿。

  2. 按 ALT + F11,啟動 Visual Basic 編輯器。

  3. 按一下 [插入] 功能表上的 [模組

  4. 輸入模組工作表中的範例巨集程式碼。

  5. 按 ALT + F11,回到 Excel。

  6. 在 Microsoft Office Excel 2003 和舊版 Excel 中,選擇 [工具] 功能表中,從 [巨集,然後按一下 [巨集

    在 Microsoft Office Excel 2007 中,按一下 [開發人員] 索引標籤上的 [程式碼] 群組中的巨集。 

    如果無法使用 [開發人員] 索引標籤,請考慮執行此動作:

        。 按一下 [ Microsoft Office ] 按鈕,然後按一下 [ Excel 選項]

    b。 在 [常用] 類別中,使用 Excel 時最常用的選項] 底下按一下以選取顯示
            功能區中的開發人員] 索引標籤
    核取方塊,然後再按一下[確定]

  7. 選取您要的巨集,然後按一下 [執行

如果變更已對活頁簿上次儲存之後,儲存屬性會傳回False的值。

您可以使用保留的副程式名稱Auto_Close來指定應該都可以隨時關閉活頁簿時執行的巨集。 如此一來,您可以控制文件時,使用者會關閉 Excel 中的文件的處理方式。
 

範例 1: 關閉活頁簿,而不儲存變更

若要強制關閉而不儲存對活頁簿,請在該活頁簿的 Visual Basic 模組中輸入下列程式碼:
 

    Sub Auto_Close()

        ThisWorkbook.Saved = True

    End Sub

當 [已儲存] 屬性設定為True時,Excel 會回應像是已儲存活頁簿後,最後一個儲存發生任何變更。


程式DisplayAlerts屬性可供達到相同的目的。 例如,下列巨集DisplayAlerts並會關閉、 關閉使用中活頁簿,而不儲存變更,然後變成DisplayAlerts
 

    Sub CloseBook()

        Application.DisplayAlerts = False

        ActiveWorkbook.Close

        Application.DisplayAlerts = True

    End Sub

您也可以使用SaveChanges的引數的Close方法。

下列巨集關閉活頁簿,而不儲存的變更:
 

    Sub CloseBook2()

        ActiveWorkbook.Close savechanges:=False

    End Sub

範例 2: 關閉的活頁簿並儲存變更

若要強制要儲存變更,該活頁簿在 Visual Basic 模組中輸入下列程式碼的活頁簿:
 

    Sub Auto_Close()

        如果 ThisWorkbook.Saved = False 然後

            如果 ThisWorkbook.Save 結束

    End Sub

此 sub 程序會檢查是否檔案已儲存屬性設定為False。 如果有的話,已變更活頁簿上次儲存之後,這些變更會儲存。

增進您的 Office 技巧
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與我們的其中一個 Office 支援專員連絡以深入了解您的意見。

×