自動保存Personal.xls

我在Windows 7 Professional安裝程序上使用Excel 2003。在我的Personal.xls文件中，我已經編譯了我從不同地方獲得的代碼/公式的片段，以供我在使用Excel時供參考。這些包含一些易失性函數，如cell(),rand(),today()等。因此，當我關閉Excel時，它詢問我是否要保存Personal.xls。自動保存Personal.xls

我想讓我的Personal.xls保持原樣，但仍然以某種方式禁用彈出窗口。無論如何，我無法保存，因爲我不會更改Personal.xls。

我曾嘗試下面的代碼在我PERSONAL.XLS在Workbook_BeforeClose部分

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
ThisWorkbook.Save 
End Sub

但它似乎並沒有工作。我已經嘗試了一些變體，包括.Save和.Saved=True，並試圖交替使用ThisWorkbook.,Me. & Workbooks("PERSONAL.xls")。然而，Excel仍然要求我保存Personal.xls

我也試過在我的Personal.xls中禁用計算。

Private Sub Workbook_Open() 
For Each ws In ThisWorkbook.Worksheets 
ws.EnableCalculation = False 
Next 
End Sub

這也沒有解決問題。最後，我試圖在將計算模式更改爲手動後執行「ThisWorkbook.Save」，但這也不會改變任何內容。

我在這裏錯過了什麼嗎？任何意見，將不勝感激。提前致謝！

來源

2012-03-23 playercharlie

你想：

Me.Save

工作簿中的BeforeClose事件。

來源

2012-03-23 16:28:21 Jesse

我已經嘗試過所有的'Me.Save'和'Me.Saved = TRUE'，@jesse。但它似乎沒有任何影響。我可以錯過別的東西嗎？ – playercharlie 2012-03-23 22:58:24

@playercharlie你怎麼把這個標記爲正確的答案，但你評論說它不起作用？ – 2014-08-16 15:08:35

我不知道這是否會幫助你，但我已經嘗試運行，我可以節省..請不要往下投它的工作對你的身邊。

我只是刪除了取消爲布爾

Private Sub Workbook_BeforeClose() 
ThisWorkbook.Save 
End Sub

來源

2012-03-26 08:41:20 user1204868

試過了，但沒有改變任何東西。 :) – playercharlie 2012-03-26 11:01:26

自動保存Personal.xls

回答

相關問題