免费视频|新人指南|投诉删帖|广告合作|地信网APP下载

查看: 1606|回复: 2
收起左侧

[EXCEL] 一键加密Excel工作表公式

[复制链接]

7

主题

441

铜板

1

好友

技术员

Rank: 3Rank: 3

积分
72
发表于 2012-5-13 19:09 | 显示全部楼层 |阅读模式
工作表中很多数据都是由公式计算生成的,那么如何让别人只看到计算的结果,而将使用的公式隐藏起来呢?今天我们就向大家介绍使用宏来解决这一问题。  一、创建宏
  启动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
  做好之后保存设置退出编辑窗口,在实际的操作过程中需要将默认的888888换成自己的密码,以免造成泄露。
  二、应用宏
  在Excel中打开“工具”菜单中的“自定义”命令,在“命令”选项卡的“类别”中选择“宏”,在“命令”中选择“自定义按钮”,并将其拖放到工具栏上,单击工具栏上的按钮,在弹出的窗口中选择我们创建的宏名并保存设置。
  至此,我们要加密时只需单击该按钮,就可以将当前工作表保护起来,并且默认密码为888888,怎么样这样的操作是不是够方便呢。

7711

主题

31万

铜板

892

好友

超级版主

地信网论坛贵宾

Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17

积分
128743

宣传勋章优秀斑主灌水勋章活跃勋章贡献勋章童话节勋章

QQ
发表于 2012-7-19 22:43 | 显示全部楼层
来学习下怎么加密

评分

参与人数 1铜板 +2 收起 理由
admin + 2 亲,你好快哦~~~

查看全部评分

该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

2

主题

1万

铜板

7

好友

钻石会员

Rank: 26Rank: 26Rank: 26Rank: 26Rank: 26Rank: 26Rank: 26

积分
6419
发表于 2023-1-16 09:27 | 显示全部楼层
学习一下
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

在线客服
快速回复 返回顶部 返回列表