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

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

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

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

　　進入vba編輯器，插入一個新的模塊，在編輯器中輸入以下代碼：

　　Sub 鎖定和隱藏公式()

　　If ActiveSheet.ProtectContents = True Then

　　MsgBox "工作表已保護!"

　　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

　　一開始我們需要判斷本工作表是否在保護狀態，如果活動工作薄，也就是當前工作薄是已經鎖定保護的狀態，則彈出信息對話框提示工作表已保護。

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

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

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

　　添加按鈕指向這個宏，在開發工具中點擊插入按鈕命令，并編輯指向為這個宏，點擊來運行這個宏，查看結果。