论坛风格切换
正版合作和侵权请联系 sd173@foxmail.com
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
购买邀请后未收到邀请联系sdbeta@qq.com
  • 2316阅读
  • 4回复

[教程资料]一键加密Excel工作表公式 [复制链接]

上一主题 下一主题
 

发帖
2958
今日发帖
最后登录
2024-01-01
只看楼主 倒序阅读 使用道具 楼主  发表于: 2009-06-21 20:18:56
    工作表中很多数据都是由公式计算生成的,那么如何让别人只看到计算的结果,而将使用的公式隐藏起来呢?今天我们就向大家介绍使用宏来解决这一问题。

  一、创建宏

  启动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,怎么样这样的操作是不是够方便呢。
1条评分
惊鸿一剑 电魂 +3 继续努力,期待您的下篇杰作 2009-06-21
离线惊鸿一剑
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 沙发  发表于: 2009-06-21 20:27:44
不错的方法
离线陈不二
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 板凳  发表于: 2009-06-22 12:23:06
谢谢分享,实用为先,支持中。
了解了,好帖子不要淹没了,
1条评分
寒江雪 电魂 +3 谢谢 2009-06-22
离线枫哓哓
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 地板  发表于: 2009-06-22 12:32:15
不太会用宏,收藏继续学习ING
离线aligu
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 地下室  发表于: 2009-06-30 09:09:53
继续学习,有了这一招就可以很方便了