一键加密Excel工作表公式

工作表中很多数据都是由公式计算生成的,那么如何让别人只看到计算的结果,而将使用的公式隐藏起来呢?今天我们就向大家介绍使用宏来解决这一问题。

一、创建宏

启动Excel,依次选择“工具”—“宏”—“录制新宏”,在打开的窗口中输入宏的名称,并把“保存在”项设为“个人宏工作簿”,单击“确定”按钮进入宏录制模式。此时我们可以在当前窗口中看到宏录制的工具栏,单击“停止录制”退出宏的录制。

退出后,在Excel中按下“Alt+F11”键,在打开的VB编辑窗口中选择“VBAProject(PERSONAL.XLS)”—“模块”—“模块1”,然后将右侧窗口中的内容替换成:

Sub 密码保护() //宏的名称

ActiveSheet.Unprotect ("888888") //默认密码

Cells.Select

Selection.Locked = False

Selection.SpecialCells(xlCellTypeFormulas, 23).Select

Selection.Locked = True

Selection.FormulaHidden = True

ActiveSheet.Protect ("123456")

ActiveSheet.EnableSelection = xlUnlockedCells

End Sub

做好之后保存设置退出编辑窗口(图1),在实际的操作过程中需要将默认的888888换成自己的密码,以免造成泄露。



电脑教程图1

二、应用宏

在Excel中打开“工具”菜单中的“自定义”命令,在“命令”选项卡的“类别”中选择“宏”,在“命令”中选择“自定义按钮”,并将其拖放到工具栏上,单击工具栏上的按钮,在弹出的窗口中选择我们创建的宏名并保存设置。

至此,我们要加密时只需单击该按钮,就可以将当前工作表保护起来,并且默认密码为888888,怎么样这样的操作是不是够方便呢。

(0)

相关推荐

  • WPS如何加密Excel工作表

    WPS是现在十分常用的一款办公软件,有些新用户不知道该软件如何加密Excel工作表,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步根据下图所示,用WPS打开电脑中的Excel文档 ...

  • 如何实用宏为Excel工作表公式加密

    工作表中很多数据都是由公式计算生成的,那么如何让别人只看到计算的结果,而将使用的公式隐藏起来呢?今天我们就向大家介绍使用宏来解决这一问题。 一、创建宏 启动Excel,依次选择“工具”—“宏”—“录制 ...

  • 巧用宏命令来为Excel工作表公式加密码

    工作表中很多数据都是由公式计算生成的,那么如何让别人只看到计算的结果,而将使用的公式隐藏起来呢?今天我们就向大家介绍使用宏来解决这一问题。 一、创建宏 启动Excel,依次选择“工具”—“宏”—“录制 ...

  • 用公式查找Excel工作表中重复数据

    前不久,一位网友求教,要求找出Excel工作表中的重复数据并在单元格中列出。我给出了一个数组公式供参考,但不是太符合要求,因为这个数组公式虽然找出了重复数据,但是如果将数组公式向下复制时超出了出现重复 ...

  • excel工作表中利用函数公式把数据排名次

    excel工作表中,可以利用函数公式把数据排名次.详细操作步骤请往下看. 步骤 1.以图中的表格为例. 把B2至B7单元格的数据排名次,名次结果显示在C2至C7单元格中. 光标点下C2单元格,然后输入 ...

  • excel怎么使用vba一键隐藏所有工作表?

    excel中使用vba一键隐藏所有工作表 1.首先我们打开一个工作样表作为例子. 2.使用alt+f11组合键打开vbe编辑器,新建一个模块,在模块编辑窗中输入以下代码: Option Explici ...

  • 怎么把Excel工作表工作簿进行加密

    今天,小编给大家分享把Excel工作表工作簿进行加密的方法,希望对大家有所帮助.具体如下:1. 首先,请大家中的想要加密的Excel文件,点击将其打开,接着我们需要依次选择界面中的[文件]-[信息]- ...

  • 怎么给excel工作表加密

    怎么给excel工作表加密,为了防止数据丢失,我们会给自己的工作表格加上密码,来保护数据 操作方法 01 首先我们找到桌面上的excel表格 02 双击打开它 03 比如现在我输入的内容就是我们要保护 ...

  • 怎样用公式查找Excel工作表中重复数据

    前不久,一位网友求教,要求找出Excel工作表中的重复数据并在单元格中列出.我给出了一个数组公式供参考,但不是太符合要求,因为这个数组公式虽然找出了重复数据,但是如果将数组公式向下复制时超出了出现重复 ...