Excel中使用快速隐藏锁定单元格的操作方法
发布时间：2022-10-14 15:02:55
excel如何使用vba来快速隐藏锁定单元格的呢?具体该怎么去操作才对。今天，小编就教大家在Excel中使用快速隐藏锁定单元格的操作方法。
Excel中使用快速隐藏锁定单元格的操作步骤如下：
首先让我们打开一个工作样表作为例子。
进入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中使用快速隐藏锁定单元格的操作
0
投稿猜你喜欢
惠普笔记本怎么重装系统？win10 惠普电脑u盘重装系统步骤，笔记本使用时间久了，运行会变得非常的慢，于是大家就想到要重新装系统， 那么惠普- 苹果春季发布会结束啦！！错过本次发布会的看官们，快随小编来看看本次苹果发布会推出什么重磅产品吧！！ 本次发布会开头，库克老爷子先是
- 需要制作时事通讯，以便让您的客户和潜在客户知情吗？整理一份时事通讯需要几个小时，让你头疼，而你仍然对你的工作不满意？然后，Publisher
- Excel小丸子系列—不同青年如何多条件查找引用
- Win10系统比win7更支持个性化的功能与设置，比如在打开多个窗口后想进行窗口的切换，很多用户都习惯用切换窗口快捷键的形式去切换，那么对于
- 在阅读word文档内容时，如果我们同时打开多个文档窗口对不同文档进行查看，此时我们则可以使用窗口的设置功能，将多个窗口进行排列，以方便对文档
- Win7系统开机时不将explorer.exe载入怎么办？explorer.exe又是资源管理器，一直以来explorer.exe都很容易出
- 腾讯会议怎么打开摄像头？有用户刚下载使用腾讯会议，因此在需要打开摄像头进行视频时，不太清楚腾讯会议如何打开摄像头，其实方法很简单，我们在设置
- 1.打开需要修改网格线颜色的Excel表格，接着点击左上角的“Office按钮”，然后进入“Excel选项”。2.点击Excel选项左侧列表
- 如何使用wps offiice 去制作一个ppt呢?下面小编就为你提供wps office如何做ppt的方法啦!wps office做ppt
- Win11系统怎么更换系统散热模式？最近有用户反映这个问题，电脑运行时电脑中的硬件消耗也会增加，电脑中的风扇会进行散热，系统默认的散热方式不
- 每当在 Photoshop 中打开新的 RAW 文件时，Adobe Camera Raw 都会充当官方欢迎者。这是一个功能强大的 RAW 文
- Win10专业版系统提高了系统易用性，微调了任务栏，系统越来越稳定，久而久之出来问题基本上都能自己解决，那么Win10专业版电脑提示系统资源
- 对任何新事物的学习接受都离不开帮助，较之以前的版本，PPT提供了更强大更丰富的帮助功能。在实际应用中，用户既可以使用一部分安装在计算机中的主
- 20H2和2004是Win10的两款操作系统版本，相信有很多用户在使用，但是许多朋友仍然不知道Win10 20h2和2004之间的区别。下面
- 这篇文章主要介绍了如何修复Win10上HID兼容的触摸屏缺失问题?HID兼容的触摸屏缺失问题的解决方案的相关资料,需要的朋友可以参考下本文详
- RANDBETWEEN 函数返回介于指定两个数之间随机整数。适用版本Excel 2003+说明RANDBETWEEN 函数返回介于指定两个数
- 重装系统可以有效帮助用户解决电脑系统的故障问题，但是如果操作不当，没有提前备份好系统盘重要数据的情况下，就会导致重装系统数据丢失。那丢失的数
- excel拖动排列步骤如下：1.我在EXCEL中输入以下数字，如图：2.现在我要想复制“1”，则拖动单元格A1，但此该你会发现，在下拖动下方
- Win11打开telnet，Win11打开telnet方法，当我们在进行远程连接操作时，可能需要开启telnet服务才可以继续，但是在更新系
