如何防止在共享的未受保護工作簿中刪除列或行？

當您將工作簿共享給他人時，如果沒有保護工作簿，該如何防止他人刪除您共享工作簿中的列或行呢？我在這裡找到了一段VBA代碼，可以防止他人在共享工作簿中刪除列和行。

使用VBA防止在共享工作簿中刪除列或行

使用VBA防止在共享工作簿中刪除列或行

1. 按 Alt + F11 鍵打開 Microsoft Visual Basic for Application 視窗。

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 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！