学习啦 > 学习电脑 > 工具软件 > 办公软件学习 > Excel教程 > Excel函数 > Excel中使用vba快速隐藏锁定单元格的操作方法

Excel中使用vba快速隐藏锁定单元格的操作方法

时间: 晓生931 分享

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快速隐藏锁定单元格的操作方法相关文章:

1.Excel中使用快速隐藏锁定单元格的操作方法

2.Excel表格中进行锁定部分单元格的操作方法

3.如何解除excel锁定单元格的方法

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

5.Excel表格中怎么锁定单元格

6.Excel2013怎么锁定含有公式的单元格

7.excel如何使用vba实现单元格间数据移动

2198654