Note: The other languages of the website are Google-translated. Back to English

如何防止在Excel中刪除特定單元格內容?

本文討論的是防止在Excel中刪除特定的單元格內容。 您可以使用本文中的方法來實現。

通過保護工作表防止特定的單元格內容被刪除
防止使用VBA代碼刪除特定的單元格內容


通過保護工作表防止特定的單元格內容被刪除

默認情況下,工作表中的所有單元格均被鎖定。 如果要防止刪除特定單元格內容,並在保護後使其他單元格可編輯,請執行以下操作。

1。 點擊 按鈕在工作表的左上角以選擇整個工作表。 然後按 按Ctrl + 1 鍵打開 單元格格式 對話框。

2.在彈出 單元格格式 對話框中,取消選中 鎖定 選項下 保護 選項卡,然後單擊 OK 按鈕。 看截圖:

3.選擇您不想刪除內容的單元格,按 按Ctrl +1鍵打開 單元格格式 再次出現對話框,請檢查 鎖定 選項下 保護 選項卡,然後單擊 OK 按鈕。

4.現在點擊 回顧 > 保護工作表,然後在兩個 保護工作表 確認密碼 對話框。

現在,工作表已受保護。 並且指定的單元格內容將不再被刪除。


防止使用VBA代碼刪除特定的單元格內容

除了上述兩種方法,您還可以運行VBA代碼以防止特定的單元格內容在工作表中被刪除。 請執行以下操作。

1.打開包含您不想刪除的單元格內容的工作表,右鍵單擊“工作表”選項卡,然後單擊“確定”。 查看代碼 從右鍵單擊菜單中。

2.複製下面的VBA代碼並將其粘貼到 Microsoft Visual Basic for Applications 窗口。

VBA代碼:防止在Excel中刪除特定單元格內容

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:E7")) Is Nothing Then Exit Sub
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " You can't delete cell contents from this range " _
        , vbCritical, "Kutools for Excel"
    End If
ExitPoint:
    Application.EnableEvents = True
End Sub

備註:在代碼中,A1:E17是您將防止刪除的單元格內容的範圍。 您可以根據需要更改範圍。

從現在開始,當您嘗試從範圍A1:E17刪除單元格內容時,您將獲得一個 Excel的Kutools 對話框如下圖所示,請點擊 OK 按鈕。


相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (17)
5中的5評分 · 1評級
網站主持人對此評論進行了最小化
正是我要找的,謝謝幫助!
網站主持人對此評論進行了最小化
不要擔心總是在這裡幫助:)
網站主持人對此評論進行了最小化
你好,

我剛剛嘗試了 VBA 腳本,雖然它在大多數情況下都運行良好。 但是,當您從可編輯單元格切換到不可編輯的列/單元格時,它不起作用。 問題出現在它拋出錯誤消息 - 按照命令 - 但它不會保留在原始的、可編輯的單元格中輸入的數據,該單元格是從該單元格中選擇的。

您是否會對腳本進行修改,以便在您選擇不可編輯時接受可編輯單元格中的數據?

乾杯
網站主持人對此評論進行了最小化
美好的一天,
我按照您在您的案例中提到的方法進行了嘗試,但沒有拋出錯誤。 您能提供您案例的屏幕截圖還是告訴我您的 Office 版本?
謝謝你的評論。
網站主持人對此評論進行了最小化
如果您不想查看工作表或編寫 VBA 代碼,那麼我使用一種簡單的技術來防止任何覆蓋,除非他們使用“DELETE”鍵(不允許退格,但刪除很難停止)。 我所做的是使用以下設置添加數據驗證:

1) 允許 --> 列表

2)取消選中“忽略空白”和“單元格下拉菜單”

3) 在源中輸入兩個雙引號(即“”)

4) 在錯誤警報選項卡中,選中“輸入無效數據後顯示錯誤更改”,樣式選擇“停止”,然後輸入錯誤消息和描述(例如,不要覆蓋)
網站主持人對此評論進行了最小化
嗨,
感謝分享
網站主持人對此評論進行了最小化
VBA 代碼 - 很棒的提示,謝謝

是否有 VBA 代碼可以防止特定單元格內容在 Excel 中被修改和刪除?
通常的保護表對我不起作用,因為我失去了對數據進行排序的能力?

提前致謝 - 尼爾
網站主持人對此評論進行了最小化
“通過保護工作表來防止特定單元格內容被刪除”我按照您的指南做了,仍然可以刪除單元格信息,即保護不起作用。 任何解決方案。
網站主持人對此評論進行了最小化
嗨,阿桑,
您是否應用了 VBA 方法?
您需要將 VBA 添加到工作表代碼窗口。 假設要保護的單元格內容在 Sheet9 中,請右鍵單擊工作表選項卡並從上下文菜單中選擇查看代碼,然後將代碼直接複製到代碼窗口中,如下圖所示。
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
您好,此代碼運行良好,但刪除行/列將繞過它。 有什麼解決方法嗎? 乾杯,大衛。
網站主持人對此評論進行了最小化
嗨大衛,
您使用的是哪個 Excel 版本? 代碼我試過了,應用代碼後指定範圍內的整行整列都不能刪除。
網站主持人對此評論進行了最小化
感謝您提供寶貴的信息。
關於以下VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
如果 Intersect(Target, Range("A1:E7")) 沒有,則退出 Sub
出錯時 GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) 那麼
應用程序.撤消
MsgBox "你不能刪除這個範圍內的單元格內容" _
, vbCritical, "Kutools for Excel"
如果結束
出口點:
Application.EnableEvents = True
END SUB

以上將允許在某個指定範圍內執行。 它不允許添加新行。 有沒有辦法可以添加新行但保持相同的保護。
感謝致敬
網站主持人對此評論進行了最小化
嗨,烏薩馬·阿布·法拉傑,
在嘗試了各種方法後,我似乎無法讓它發揮作用。 添加新行後,該區域將立即被鎖定,新插入的單元格無法編輯。
網站主持人對此評論進行了最小化
是否可以在工作簿級別做類似的事情?

Private Sub Worksheet_Change(ByVal Target As Range)
如果 Intersect(Target, Range("A1:M7000")) 什麼都不是,則退出 Sub
出錯時 GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) 那麼
應用程序.撤消
MsgBox "你不能刪除這個範圍內的單元格內容" _
, vbCritical, "Kutools for Excel"
如果結束
出口點:
Application.EnableEvents = True
END SUB
網站主持人對此評論進行了最小化
嗨格魯,
您的意思是防止在當前工作簿的所有工作表中刪除範圍“A1:M7000”嗎?
網站主持人對此評論進行了最小化
不,我的意思是不允許刪除(不保護 wks 或 wkb)。

上述工作在 Wks 級別上很好。

如果有什麼東西可以讓它在 wkb 級別上工作,那就更好了(我有很多工作表)

G
網站主持人對此評論進行了最小化
這很棒。 我想知道這是否是一個選項並且確實是。 感謝您提供非常簡單的說明。

安德魯·S。
5中的5評分
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護