在開發(fā)Excel模板過程中，為了減少因?yàn)檎`操作等引起的數(shù)據(jù)發(fā)生偏差等問題，經(jīng)常會(huì)把其中的公式保護(hù)起來，如果表格太多，操作起來就非常麻煩，所以，我們需要批量操作！
說批量操作之前，我們先來講講如何實(shí)現(xiàn)，單個(gè)保護(hù)！也是很多新手經(jīng)常問的，一起來看動(dòng)畫演示，輕松搞定！
工作表保護(hù)

01 | 解除鎖定

動(dòng)畫操作說明：1、點(diǎn)擊左上角的三角，全選工作表，或者按住Ctrl，再按下兩次A（Ctrl+A+A）也是可以全選工作表2、右擊【設(shè)置單元格格式】-【保護(hù)】，取消【鎖定】前面的√（默認(rèn)全部鎖定）

02 | 定位公式，鎖定

動(dòng)畫操作說明：1、全選工作表后，按下Ctrl+G（或者【開始】-【定位條件】），在定位中，點(diǎn)擊【公式】，確定！
2、Ctrl+1(或者右擊【設(shè)置單元格格式】），把【鎖定】√上，確定！這樣我們就只鎖定了公式區(qū)域，其他區(qū)域未鎖定！

03 | 保護(hù)工作表

動(dòng)畫操作說明：1、點(diǎn)擊【審閱】-【保護(hù)工作表】2、輸入密碼，再次輸入密碼，確定即可，如果只是保護(hù)，防止誤操作，可以不設(shè)置密碼，直接確定即可！
以上只是操作說明，沒有更多的講解，下面我們稍微總結(jié)一下，確保大家是搞懂，而不是一直去模仿，過幾天就又忘了！
小結(jié)
Excel中保護(hù)工作表功能，只針對的是鎖定的區(qū)域，未鎖定的區(qū)域在保護(hù)狀態(tài)下可以繼續(xù)編輯。這也是我們?yōu)槭裁匆热拷獬i定，然后針對公式區(qū)域鎖定的原因！如果我們除了公式區(qū)域，還有想要保護(hù)的，只要把對應(yīng)區(qū)域鎖定即可！
你以為這樣就結(jié)束了嗎？我們批量保護(hù)還沒說不是！批量保護(hù)，我們使用VBA來處理，比較簡單，我已經(jīng)封裝成了函數(shù)，大家可以在自己的宏中直接調(diào)用！

批量保護(hù)

效果演示：批量保護(hù)

動(dòng)畫操作說明：

1、批量保護(hù)：可以自定義密碼，是否隱藏公式

2、批量取消：使用同一個(gè)函數(shù)，需要原密碼和Unpro設(shè)置為True

3、如何使用宏教程：

如何使用寫好的宏

保護(hù)和隱藏公式自定義函數(shù)源碼：

源碼：可直接調(diào)用

'**************************************************
'日期：2020年10月7日
'作者：Excel辦公實(shí)戰(zhàn)-小易
'功能：保護(hù)工作表公式(隱藏)
'參數(shù)：
    '1.ws-必選，需要保護(hù)的工作表對象
    '2.NewPassword-可選，保護(hù)的密碼
    '3.OldPassword-可選，如果已保護(hù)，提供密碼
    '4.bHidden-可選，是否隱藏公式
    '5.bUnPro-可選，取消保護(hù)
'***************************************************
Function ProSht(ByRef ws As Worksheet, _
    Optional ByVal NewPassword, _
    Optional ByVal OldPassword, _
    Optional ByVal bHidden As Boolean = True, _
    Optional ByVal bUnPro As Boolean = False)

    On Error Resume Next
    With ws

        '取消保護(hù)（如果已經(jīng)保護(hù)過）
        If .ProtectContents Then
            If Not IsMissing(OldPassword) Then _
            .Unprotect OldPassword Else .Unprotect
        End If
        'bUnPro=True，取消保護(hù)-結(jié)束
        If bUnPro Then GoTo sEnd
        '全表取消鎖定
        With .Cells
            .Locked = False
            .FormulaHidden = False
        End With
        '嘗試定位公式并保護(hù)
        With .Cells.SpecialCells(xlCellTypeFormulas, 23)
            .Locked = True
            .FormulaHidden = bHidden
        End With
        '保護(hù)工作表
        If Err.Number > 0 Then Err.Clear Else .Protect NewPassword
    End With
sEnd:
End Function

‍

分享、點(diǎn)贊、在看三連
假期已近尾聲，小編也正式回歸更新啦！這篇干貨滿滿，喜歡的朋友，記得三連！有希望學(xué)習(xí)的知識點(diǎn)，給小編留言！