日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

公告:魔扣目錄網為廣大站長提供免費收錄網站服務,提交前請做好本站友鏈:【 網站目錄:http://www.ylptlb.cn 】, 免友鏈快審服務(50元/站),

點擊這里在線咨詢客服
新站提交
  • 網站:51998
  • 待審:31
  • 小程序:12
  • 文章:1030137
  • 會員:747

在開發Excel模板過程中,為了減少因為誤操作等引起的數據發生偏差等問題,經常會把其中的公式保護起來,如果表格太多,操作起來就非常麻煩,所以,我們需要批量操作!
說批量操作之前,我們先來講講如何實現,單個保護!也是很多新手經常問的,一起來看動畫演示,輕松搞定!
工作表保護

01 | 解除鎖定

 

Excel批量保護隱藏公式,這篇足夠

 

動畫操作說明:1、點擊左上角的三角,全選工作表,或者按住Ctrl,再按下兩次A(Ctrl+A+A)也是可以全選工作表2、右擊【設置單元格格式】-【保護】,取消【鎖定】前面的√(默認全部鎖定)

02 | 定位公式,鎖定

 

Excel批量保護隱藏公式,這篇足夠

 

動畫操作說明:1、全選工作表后,按下Ctrl+G(或者【開始】-【定位條件】),在定位中,點擊【公式】,確定!
2、Ctrl+1(或者右擊【設置單元格格式】),把【鎖定】√上,確定!這樣我們就只鎖定了公式區域,其他區域未鎖定!

03 | 保護工作表

 

Excel批量保護隱藏公式,這篇足夠

 

動畫操作說明:1、點擊【審閱】-【保護工作表】2、輸入密碼,再次輸入密碼,確定即可,如果只是保護,防止誤操作,可以不設置密碼,直接確定即可!
以上只是操作說明,沒有更多的講解,下面我們稍微總結一下,確保大家是搞懂,而不是一直去模仿,過幾天就又忘了!
小結
Excel中保護工作表功能,只針對的是鎖定的區域,未鎖定的區域在保護狀態下可以繼續編輯。這也是我們為什么要先全部解除鎖定,然后針對公式區域鎖定的原因!如果我們除了公式區域,還有想要保護的,只要把對應區域鎖定即可!
你以為這樣就結束了嗎?我們批量保護還沒說不是!批量保護,我們使用VBA來處理,比較簡單,我已經封裝成了函數,大家可以在自己的宏中直接調用!

 


批量保護

 

效果演示:批量保護

Excel批量保護隱藏公式,這篇足夠

 

動畫操作說明:

1、批量保護:可以自定義密碼,是否隱藏公式

2、批量取消:使用同一個函數,需要原密碼和Unpro設置為True

3、如何使用宏教程:

如何使用寫好的宏

 

保護和隱藏公式自定義函數源碼:

Excel批量保護隱藏公式,這篇足夠

 

 

源碼:可直接調用


'**************************************************
'日期:2020年10月7日
'作者:Excel辦公實戰-小易
'功能:保護工作表公式(隱藏)
'參數:
    '1.ws-必選,需要保護的工作表對象
    '2.NewPassword-可選,保護的密碼
    '3.OldPassword-可選,如果已保護,提供密碼
    '4.bHidden-可選,是否隱藏公式
    '5.bUnPro-可選,取消保護
'***************************************************
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

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

分享、點贊、在看三連
假期已近尾聲,小編也正式回歸更新啦!這篇干貨滿滿,喜歡的朋友,記得三連!有希望學習的知識點,給小編留言!

分享到:
標簽:公式 隱藏 Excel
用戶無頭像

網友整理

注冊時間:

網站:5 個   小程序:0 個  文章:12 篇

  • 51998

    網站

  • 12

    小程序

  • 1030137

    文章

  • 747

    會員

趕快注冊賬號,推廣您的網站吧!
最新入駐小程序

數獨大挑戰2018-06-03

數獨一種數學游戲,玩家需要根據9

答題星2018-06-03

您可以通過答題星輕松地創建試卷

全階人生考試2018-06-03

各種考試題,題庫,初中,高中,大學四六

運動步數有氧達人2018-06-03

記錄運動步數,積累氧氣值。還可偷

每日養生app2018-06-03

每日養生,天天健康

體育訓練成績評定2018-06-03

通用課目體育訓練成績評定