如何防止他人在共用且未受保護的活頁簿中刪除列或欄？

作者孫修改日期2024-11-12

當您將活頁簿共用給他人時，如何在不啟用保護的情況下，防止他人刪除您共用活頁簿中的欄或列？我在此找到一段 VBA 程式碼，可有效防止他人在共用活頁簿中刪除欄與列。

使用 VBA 在共用活頁簿中防止刪除列或欄

1. 按下 Alt + F11，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入> 模組以開啟模組視窗，然後將下列 VBA 程式碼貼上至該視窗中。

VBA：防止刪除列或欄。

Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
    xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
    xBarControl.Enabled = False
Next
End Sub

3. 點選執行按鈕，或按下鍵盤上的 F5 鍵，立即執行此程式碼！

接著，當其他人按一下右鍵並嘗試刪除所選的欄或列時，內容功能表中的「刪除」選項將無法使用。請參閱螢幕截圖：

「刪除」選項已停用

此外，此方法還能有效防止使用者透過快速鍵 Ctrl + —— 刪除列或欄。

注意：

（1）如果您已透過審閱＞ 共用活頁簿 功能共用您的活頁簿，將無法再新增任何 VBA 巨集。建議您在共用前先加入 VBA 程式碼，以免影響後續使用！

（2）當您在所選欄或列上按一下右鍵時，此 VBA 會停用所有活頁簿內容功能表中的刪除功能。

（3）若要還原內容功能表中的刪除功能，請將上述 VBA 程式碼中的兩個 False 改為 True，再重新執行該 VBA 程式碼即可。

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

智慧執行：透過簡易指令，輕鬆執行儲存格操作、分析資料，並建立圖表！
自訂公式：打造專屬公式，讓您的工作流程更順暢！
VBA 編碼：輕鬆撰寫並套用 VBA 程式碼，立即提升工作效率！
公式解析：輕鬆掌握複雜公式！
文字翻譯：輕鬆打破試算表中的語言隔閡！

運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多