Excel中使用VBA函數(shù)快速隱藏鎖定單元格的操作方法

　　excel使用vba來快速隱藏鎖定單元格，具體該怎么去進(jìn)行的呢?今天，學(xué)習(xí)啦小編就教大家在Excel中使用VBA函數(shù)快速隱藏鎖定單元格的操作方法。

　　Excel中使用VBA函數(shù)快速隱藏鎖定單元格的操作步驟：

　　首先讓我們打開一個(gè)工作樣表作為例子。

　　進(jìn)入vba編輯器，插入一個(gè)新的模塊，在編輯器中輸入以下代碼：

　　Sub 鎖定和隱藏公式()

　　If ActiveSheet.ProtectContents = True Then

　　MsgBox "工作表已保護(hù)!"

　　Exit Sub

　　End If

　　Worksheets("Sheet1").Range("A1").CurrentRegion.Select

　　Selection.Locked = False

　　Selection.FormulaHidden = False

　　Selection.SpecialCells(xlCellTypeFormulas).Select

　　Selection.Locked = True

　　Selection.FormulaHidden = True

　　Worksheets("Sheet1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

　　Worksheets("Sheet1").EnableSelection = xlNoRestrictions

　　End Sub

　　一開始我們需要判斷本工作表是否在保護(hù)狀態(tài)，如果活動(dòng)工作薄，也就是當(dāng)前工作薄是已經(jīng)鎖定保護(hù)的狀態(tài)，則彈出信息對(duì)話框提示工作表已保護(hù)。

　　接著選取sheet1工作薄當(dāng)前活動(dòng)區(qū)域單元格。大家還記得CurrentRegion函數(shù)的作用嗎?CurrentRegion函數(shù)是定位活動(dòng)(指定)單元格區(qū)域，我們這里的語句是選取指定的單元格區(qū)域。并將其鎖定隱藏設(shè)定為false。

　　然后下面的語句 Selection.SpecialCells(xlCellTypeFormulas).Select是選擇含有公式的單元格，并將其設(shè)置為鎖定和隱藏公式，其值為TRUE。

　　最后兩句代碼定義的是保護(hù)工作薄中的圖像，內(nèi)容不被修改和允許選取單元格。

　　添加按鈕指向這個(gè)宏，在開發(fā)工具中點(diǎn)擊插入按鈕命令，并編輯指向?yàn)檫@個(gè)宏，點(diǎn)擊來運(yùn)行這個(gè)宏，查看結(jié)果。