前景提要(文末提供源碼下載）

昨天我們學習了工作表的批量保護的功能，通過昨天的方法呢，我們可以輕松快速的實現多個工作表的加密，在一定程度上能夠實現數據的保護功能，當其他人将數據使用完之後，返回來給我們修改的時候，新的問題出現了！工作表的保護是挺好，好到現在我自己修改數據都需要一個一個去解除密碼保護才可以修改，太麻煩了，既然有批量實現工作表的保護功能，那麼有沒有相對的批量解除保護的功能？

場景說明

批量解除保護的功能肯定是存在的，不然批量保護在某種程度上也等于是阻擾我們自己對數據的修改，自找麻煩

來看看我們的案例，這是我們上節學習批量保護的工作薄，上節我們已經成功的将總表之外的其他的工作表都已經加密了，這樣的提示也證明所有的工作表都處于一個鎖定的狀态，我們來嘗試下批量解鎖

代碼區

Sub UNprotect() Dim sth As Worksheet, str$ s = Application.InputBox("請輸入密碼", "密碼的确定", , , , , , 8) For Each sth In Worksheets sth.UNprotect "" & s & "" If Err.Number <> 0 Then str = sth.Name & "-" & str End If Next sth If Len(str) = 0 Then MsgBox str & "尚未成功取消保護，請核實密碼是否正确" Else MsgBox "已全部取消保護！" End If End Sub

看看效果如何

先輸入解鎖的密碼

總表的密碼我們并不知道，所以總表無法用我們上節加密的密碼進行解鎖，這是正确的結果，然後看看其他的工作表是否已經成果解除保護，我們嘗試輸入内容看看

可以輸入新的内容，并且工作表的保護的按鈕也成為了可以進行工作表保護的狀态，證明我們的效果實現了。

代碼分析

今天的代碼依然是非常的簡單，重點就一個，工作表的解密

sth.UNprotect "" & s & ""

這裡需要注意，如果你的輸入的解除保護的密碼是錯誤的話，那麼程序就會報錯，影響代碼的正常執行，所以為了保證程序的正常執行，我們這裡選擇跳過報錯，在後面利用報錯返回的結果來判斷程序是否操作成功

If Err.Number <> 0 Then

如果有報錯，那麼不管報錯的内容是什麼， Err.Number都不會等于0 ，所以我們可以利用這個來判斷是否有報錯，并且将報錯的工作表名稱記錄下來，最終通過彈窗的方式反饋給我們。

str = sth.Name & "-" & str

================================

本節課的案例源碼已經上傳，需要的小夥伴後台私信“7-63-3”，希望大家多支持~~，多多關注 ~ ~

本節案例将會含有批量保護和解除批量保護兩個内容，分别對用不同的按鈕，當然總表是一個另類的存在。

好了，明晚19:00,準時再見!

,

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部