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

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。

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

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

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。