如何在 Excel 中停用或不允許“儲存”和“另存為”選項?


高效的電子表格程式 Excel 經常用於資料管理、計算和分析。在某些情況下,為了維護資料完整性或保護敏感資訊,您可能希望限制使用者儲存或複製特定 Excel 檔案。您可以透過本教程中的說明停用或限制“儲存”和“另存為”選項來管理檔案的使用方式,並防止未經授權的更改或傳播。無論您是在處理共享文件、重要報告還是機密檔案,這些方法都將幫助您在 Excel 環境中實施適當的安全級別。

請注意,本文中介紹的技術可能涉及更改設定或使用 VBA(Visual Basic for Applications)程式碼,並且需要管理員許可權。在實施這些限制之前,務必備份您的 Excel 檔案,以便在必要時撤消任何更改。讓我們繼續瞭解限制或停用 Excel 中“儲存”和“另存為”選項的各種方法,以便您更好地控制電子表格檔案。

停用或不允許儲存和另存為選項

在這裡,我們將首先插入 VBA 程式碼以停用儲存選項,然後在同一工作表中新增另一段程式碼以停用另存為選項。因此,讓我們瞭解一個簡單的過程,瞭解如何停用或不允許在 Excel 中儲存和另存為選項。

步驟 1

考慮任何 Excel 檔案。

首先,右鍵單擊工作表名稱,然後選擇“檢視程式碼”以開啟 VBA 應用程式。然後,雙擊此工作簿並將以下程式碼複製到文字框中。

右鍵單擊 > 檢視程式碼 > 雙擊 > 複製。

程式碼

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   ThisWorkbook.Saved = True
End Sub

步驟 2

然後單擊“儲存”,並將工作表另存為宏啟用模板。為此,請單擊“儲存”,選擇目標位置,選擇“型別”為宏啟用模板,然後單擊“確定”。

步驟 3

現在,再次在 VBA 應用程式中,對於“ThisWorkbook”視窗,將以下程式碼新增到現有程式碼中。

程式碼

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"

If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
   Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
   Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
   Sheets(xName & "").Visible = False
   Exit Sub
End If
   Cancel = True
End Sub

步驟 4

然後再次儲存工作表並關閉它。您可以看到工作表已儲存,並且停用了儲存和另存為選項。

結論

在本教程中,我們使用了一個簡單的示例來演示如何停用或不允許在 Excel 中儲存和另存為選項,以突出顯示特定資料集。

更新於: 2023-07-11

2K+ 次檢視

開啟你的 職業生涯

透過完成課程獲得認證

開始學習
廣告
© . All rights reserved.