Excel怎么保护自己的劳动成果?强制用户启用宏,再加上这一步

当Excel工作簿中含有VBA代码时,用户在使用时需要启用宏,否则工作簿的某些功能就会失效。或者是编辑的VBA代码含有定期删除指令,为了保证工作簿的安全性,和防止他人禁用宏造成知识产权法受到侵害,需要强制用户启用宏。看过以下三篇文章的小伙伴也提出同样的问题。

Excel科幻电影效果,文件倒计时销毁功能,网友直呼太科幻

Excel工作表打开一次后自动销毁文件,回收站中都找不到

Excel工作簿自动销毁功能,使用时间到期后自动删除文件

经过两天的深思熟虑终于找到解决问题办法。思路是通过编辑VBA代码,打开Excel工作簿后自动检测宏是否被启用,如果宏处于禁用状态,工作簿会自动隐藏关键数据所在的工作表,此处的隐藏属于深度隐藏,无法直接取消隐藏工作表。

步骤一:打开Excel工作簿后,再插入一个新的工作簿Sheet2用来存放关键数据,Sheet1作为提示工作簿,主要功能是提示用户必须强制启用宏和启用宏的方法,否则隐藏关键数据所在的工作表。

Excel在打开含有宏的工作簿时,会提示用户是否启用宏,如果没有做任何提示,此时就需要用户自己动手启用。启用宏的操作步骤依次是:文件→选项→信任中心→信任中心设置→宏设置→启用所有宏→确定。

步骤二:接下来就是编辑VBA代码,打开Visual Basic编辑器后,将以下代码复制粘贴到ThisWorkbook代码窗口中,最后对VBAProject进行加密处理,主要是保护VBA代码不被删除或更改,以保证整个工作簿的安全性。设置完成后关闭Visual Basic编辑器回到工作簿操作界面。

代码区域:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim sh As Worksheet

Sheet1.Visible = True

For Each sh In Me.Worksheets

If UCase(sh.Name) <> "SHEET1" Then sh.Visible = xlSheetVeryHidden

Next sh

Me.Save

End Sub

Private Sub Workbook_Open()

If UCase(sh.Name) <> "SHEET1" Then sh.Visible = True

Next sh

Sheet1.Visible = xlSheetVeryHidden

End Sub

步骤三:工作簿的存储也非常重要,需要将Excel工作簿另存为【*.xls】格式或【*.xlsm】格式,因为【*.xlsx】格式无法识别带有宏的工作表,保存后宏会自动清除。

需要注意的是,在宏禁用的情况下,默认隐藏的是除Sheet1工作表之外的其他工作表,请勿将重要数据存放在Sheet1工作表之中。当启用宏后,工作簿会自动隐藏Sheet1工作表。

至此,Microsoft Excel强制用户启用宏的操作方法已经介绍完毕。如果对操作过程有些费解,请浏览查阅前三篇文章获取答案,也许会有不一样的效果。如果感兴趣可以结合前三篇文章的内容,制作属于自己的工作簿,相信您定会让他人大吃一惊。

(0)

相关推荐

  • VBA代码库11:强制用户启用宏(续)

    excelperfect 在<VBA代码库10:强制用户启用宏>中,讲解了一段用户在打开工作簿时必须启用宏才能使用工作簿功能的代码.本文给出另一段同样可以实现强制用户启用宏的代码. 如果用 ...

  • VBA代码库10:强制用户启用宏

    有时,必须确保用户在打开工作簿时启用宏,否则就不能实现工作簿的效果.由于无法使用宏去打开宏,因此需要一种确保用户启用宏的技术.下面讲解的方法隐藏除"欢迎"工作表(告诉用户启用宏)之 ...

  • 如何强制用户启用宏?

    问:有时候,我们使用VBA为工作簿编写了一些功能,但是如果用户在打开工作簿时不启用宏设置或者彻底禁用宏,那么这些功能就无法使用.例如,有位网友问我,他想使用双重保护来保护某工作簿,一重保护是工作簿自带 ...

  • 强制用户启用宏

    有时,必须确保用户在打开工作簿时启用宏,否则就不能实现工作簿的效果.由于无法使用宏去打开宏,因此需要一种确保用户启用宏的技术.下面讲解的方法隐藏除"欢迎"工作表(告诉用户启用宏)之 ...

  • 约谈后拒绝搬迁,滇池一级保护区内“云南人家”被强制迁出

    滇池一级保护区内云南人家被强制搬迁[约谈后拒绝搬迁,滇池一级保护区内"云南人家"被强制迁出!]5月12日上午,官渡区政府组织市.区相关部门对位于宝丰半岛滇池一级保护区内的" ...

  • 黎雄才的“劳动成果”

    黎雄才 绍兴风光 黎雄才 (1910-2001) 当代国画家.美术教育家 岭南画派卓有成就的代表人物 黎雄才一生步履不停,笔耕不辍.此专题汇集黎雄才各时期的写生作品,真可谓是台上一分钟,台下十年功.在 ...

  • EXCEL强制启用宏的实现

    如果,EXCEL禁用了宏,那么,我们制作的很多功能就不能实现了.为此,必须要求启用宏. 首先,当然是在工作薄里添加一个名为"启用宏"的工作表,写上些内容,提示如何启用宏. 其次,在 ...

  • Excel批量保护或者隐藏公式,这篇足够!

    在开发Excel模板过程中,为了减少因为误操作等引起的数据发生偏差等问题,经常会把其中的公式保护起来,如果表格太多,操作起来就非常麻烦,所以,我们需要批量操作! 说批量操作之前,我们先来讲讲如何实现, ...

  • 王越剑调研职工劳动保护及和谐劳动关系建设工作

    王越剑调研职工劳动保护及和谐劳动关系建设工作