Excel中使用vba快速隱藏鎖定單元格的操作方法
Excel中使用vba快速隱藏鎖定單元格的操作方法
excel使用vba來(lái)快速隱藏鎖定單元格，該如何去進(jìn)行操作的呢?今天，學(xué)習(xí)啦小編就教大家在Excel中使用vba快速隱藏鎖定單元格的操作方法。
Excel中使用vba快速隱藏鎖定單元格的操作步驟如下：
首先讓我們打開(kāi)一個(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
一開(kāi)始我們需要判斷本工作表是否在保護(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ū)域，我們這里的語(yǔ)句是選取指定的單元格區(qū)域。并將其鎖定隱藏設(shè)定為false。
然后下面的語(yǔ)句 Selection.SpecialCells(xlCellTypeFormulas).Select是選擇含有公式的單元格，并將其設(shè)置為鎖定和隱藏公式，其值為TRUE。
最后兩句代碼定義的是保護(hù)工作薄中的圖像，內(nèi)容不被修改和允許選取單元格。
添加按鈕指向這個(gè)宏，在開(kāi)發(fā)工具中點(diǎn)擊插入按鈕命令，并編輯指向?yàn)檫@個(gè)宏，點(diǎn)擊來(lái)運(yùn)行這個(gè)宏，查看結(jié)果。