六月丁香五月婷婷,丁香五月婷婷网,欧美激情网站,日本护士xxxx,禁止18岁天天操夜夜操,18岁禁止1000免费,国产福利无码一区色费

學(xué)習(xí)啦 > 學(xué)習(xí)電腦 > 工具軟件 > 辦公軟件學(xué)習(xí) > Excel教程 > Excel函數(shù) > Excel中使用vba快速隱藏鎖定單元格的操作方法

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

時(shí)間: 曉生931 分享

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

  excel使用vba來快速隱藏鎖定單元格,該如何去進(jìn)行操作的呢?今天,學(xué)習(xí)啦小編就教大家在Excel中使用vba快速隱藏鎖定單元格的操作方法。

  Excel中使用vba快速隱藏鎖定單元格的操作步驟如下:

  首先讓我們打開一個(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)前工作薄是已經(jīng)鎖定保護(hù)的狀態(tài),則彈出信息對話框提示工作表已保護(hù)。

  接著選取sheet1工作薄當(dāng)前活動區(qū)域單元格。大家還記得CurrentRegion函數(shù)的作用嗎?CurrentRegion函數(shù)是定位活動(指定)單元格區(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é)果。


Excel中使用vba快速隱藏鎖定單元格的操作方法相關(guān)文章:

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

2.Excel表格中進(jìn)行鎖定部分單元格的操作方法

3.如何解除excel鎖定單元格的方法

4.excel中使用vba功能的方法

5.Excel表格中怎么鎖定單元格

6.Excel2013怎么鎖定含有公式的單元格

7.excel如何使用vba實(shí)現(xiàn)單元格間數(shù)據(jù)移動

2198654