首页
学习
活动
专区
圈层
工具
发布

VBA技巧:在不保护工作簿的情况下防止删除工作表

通常情况下,我们执行“保护工作簿”命令后,此时删除工作表的命令变成灰色,用户就不能轻易地删除工作表了。然而,这样也不能进行插入、移动或复制工作表的操作了。...如果想要在不保护工作簿的情况下防止用户删除工作表,而且允许用户插入工作表并对其进行重命名,也允许用户移动或复制工作表,有没有什么好的方法实现?可以使用下面的VBA代码,很简单,却很实用。..." End Sub Sub RemoveProtection() '撤销保护工作簿 ThisWorkbook.Unprotect End Sub 此时,用户再要删除该工作簿中的工作表,就会弹出...“工作簿有保护,不能更改。”...的警告信息(如下图1所示),但用户仍可以在该工作簿中进行添加工作表、移动或复制工作表、对工作表重命名等操作。 图1

3.1K30
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    个人永久性免费-Excel催化剂功能第61波-快速锁定解锁单元格及显示隐藏公式

    为了在Excel这样的异常灵活的工具上规范地生成所需的数据源,是需要一定的前期工作的准备的。在数据化规范录入上,不止有上一波提及的数据有效性验证,也有之前提及过的工作表保护和工作薄保护的功能辅助。...今天着重给大家带来工作表保护的前期的设置事项:单元格的锁定与未锁定及单元格的公式显示与否,对这两项内容作一点点效率上的提升。...在工作表保护前奏,需要对单元格进行锁定和解锁的操作,和是否让用户在查阅过程中看到原始的公式而区分了公式的隐藏与显示两种状态。...一般来说,Excel的默认单元格状态是锁定和公式显示,对工作表进行保护时,锁定的单元格是不能编辑的,所以一般为了在工作表保护后留下部分单元格供用户录入、编辑等操作,需要对其进行单元格选定后操作去锁定或不想终端用户看到公式的内容进行公式的隐藏...而一般地场景也是倾向于知道现在设定了哪些单元格是去锁定的,让用户可以填写的,进行一个复核的过程,防止工作表保护后,分发给终端用户,因工作表保护原因终端用户未能顺利编辑对应的单元格区域。

    1.1K20

    Vba实现彻底禁止表格内容复制,表格到期自动删除

    分析:表格内容复制的方法  直接选择单元格进行复制。  ...复制表格到新的或者空白的工作簿 另存为其他格式表格 如何强制使用VBA 将所有表格的Visible属性设置为完全不可见,编写表格打开事件代码,打开时自动显示表格。不运行Vba时只显示空白表格。...退出表格时将所有数据表改为完全不可见。 打开时调用工作簿结构保护,退出时解锁隐藏所有表。 禁止单元格复制 编写表格选择事件,让只有指定范围的单元格才能被选中。...通过事件,禁止另存为 表格到期删除 选择一个单元格记录时间,定时任务减小数值,为零时新建空白表,关闭错误提示,Delete删除其他表格,Save保存表格。 将时间保存到注册表,退出更新值。

    3.8K20

    【改进和增强Microsoft Office应用程序】ExtendOffice软件产品介绍

    您可以在单个选项卡式窗口中打开多个文档/文件例如使用浏览器IE 8/9/10、Firefox和Google ChromeKutools for Excel、Word、Outlook是功能强大的插件拥有适用于...例如,Excel用户可以轻松地将工作表与几次单击合并,合并单元格而不会丢失数据,仅粘贴到可见的单元格,等等。 无疑,此功能强大且用户友好的加载项将为Excel用户节省大量工作时间,并大大提高工作效率。...二、Kutools Plus选项卡01、工作簿和表格组工作簿和表格组包含工作簿、工作表、合并(工作表)、表合并、拆分数据、格式转换器、拆分工作簿、工作表设计、复印机等功能和栏目02、安全组安全组包含密码管理器...、加密单元、解密单元、保护工作表、取消保护工作表、加密工作簿、解密工作簿等功能和栏目03、邮件组邮件组包含创建邮件列表和发电子邮件等功能04、过滤统计组过滤统计组包含排序、超级滤镜、特殊过滤器、按颜色计数...、分页小计、数据透视表等功能三、设计选项卡01、保护组保护组包含锁定、解锁单元、突出显示解锁、隐藏公式、取消隐藏公式、突出显示隐藏等功能02、查看组查看组包含突出显示公式、突出显示名称等功能03、监控组监控组包含监视先例

    16.7K20

    Excel小技巧88:保护公式单元格

    本文讲解一种仅保护工作表中含有公式的单元格的简单方法。 Excel中的“保护工作表”功能使用起来有点奇怪,似乎有点烧脑。但是,你按照下面介绍的步骤,可以快速保护工作表中的公式单元格。...然后,选择“保护”选项卡,取消选中“锁定”复选框,如下图2所示。 ? 图2 保持选择工作表所有单元格,单击功能区“开始”选项卡“编辑”组中的“查找和选择——公式”命令。...此时,仅工作表中的公式单元格被选择。 按Ctrl+1组合键,再次打开“设置单元格格式”对话框。在“保护”选项卡中,选取“锁定”复选框(如下图3所示),锁定所有公式单元格。 ?...图3 然而,在你保护工作表之前,锁定单元格没有任何作用。因此,需要单击功能区“审阅”选项卡,在“更改”组中单击“保护工作表”按钮。...在“保护工作表”对话框中,选择是否希望能够选择公式单元格,如下图4所示。 ? 图4 此时,对于工作表中含有公式的单元格,用户就不能编辑了。

    1.3K20

    Excelize 开源基础库发布 2.10.1 版本更新

    支持XLAMXLSMXLSXXLTMXLTX等多种文档格式,高度兼容带有样式、图片(表)、透视表、切片器等复杂组件的文档,并提供流式读写支持,用于处理包含大规模数据的工作簿。...,相关issue1607新增GetSheetProtection函数,支持获取工作表保护设置当向已存在批注的单元格添加批注时,AddComment函数将返回错误支持插入ICO格式图片,相关issue2234...,减少生成的工作簿文件大小问题修复修复v2.10.0中引入的问题,解决GetCellValue与GetRows函数在某些情况下读取空白单元格时,错误地返回了共享字符串索引,相关issue2240修复GetPivotTables...函数在部分情况下获取数据透视表时发生panic的问题修复部分情况下,读取带有中文月份名称数字格式的单元格时,发生panic的问题,相关issue2224修复部分情况下,打开带有密码保护的加密工作簿时,发生...生成的工作簿损坏的问题修复计算单元格的值时,对带有单引号的工作表名称解析失败,导致的单元格公式计算结果有误问题修复使用默认字体或填充格式创建样式时,重复创建样式的问题,相关issue2254性能优化通过增加计算缓存并将处理范围限定到实际数据区域

    13521

    个人永久性免费-Excel催化剂功能第74波-批量排版格式利器,瞬间美化表格

    之前专门写过一篇吐槽文详细展开说过。...、直接输入两种,同时公式生成方面,也分是否是引用其他工作薄表的数据分本表和跨表两种,组合起来,共6种样式。...保护部分:若是手动输入的数据,想在后续进行工作表保护后,其对应的区域可以在保护状态下进行编辑,可以使用样式进行设置,无需重复后期对可编辑的单元格区域进行重复设置。...(下一功能) 功能4:重新设置原单元格样式 在遍历或查找到的结果表中,进行样式名称列的修改,让对应的单元格重新设置为修改后的样式名称。...,性能更优 小技巧2: 因程序使用EPPLUS 的开源类库来读取或搜索所有单元格,会对活动原工作薄进行关闭后再读取和写入结果表,操作完成后再打开保存后结果表的工作薄。

    1.9K10

    在线Excel的分权限编辑

    在Excel中,有一种机制叫做表单保护。表单保护是结合单元格锁定状态和工作表的保护状态,可以用来控制单元格是否可以编辑,这种可编辑控制的最小粒度可以达到单元格级别。 该如何来实现呢?...我们将编辑权限控制整体分为三类,分别如下: (1)整个工作表不可编辑 一个Excel文件我们称为一个工作簿,一个工作簿会包含多个工作表。...默认状态下,工作表的锁定状态为true,此时如果想要设置整个工作表不可编辑,只要执行工作表保护相关代码即可。...如果需要整个工作簿都不可编辑,只需要循环去设置工作簿中每个工作表的保护状态即可。 (2)实现部分单元格可以编辑 之前讲到,不可编辑的原则是单元格锁定&表单保护同时生效。...只要目标能够编辑的单元格不满足这个与条件,即可进行编辑。表单保护是在工作表上的控制参数,无法对应的单元格,因此想要与条件不成立,只需要将对应单元格的锁定状态设置为false即可。

    1.1K20

    Excel 中使用 Python 完全指南:从启用到实战

    如果没有,检查你的版本是否符合要求——这是解锁高效办公的第一道门槛。 先确认:你的 Excel 能跑 Python 吗?...第 2 步:用 xl() 函数引用 Excel 数据 Excel 中的 Python 不能直接读取本地文件(如 pandas.read_excel 禁用),必须通过 xl() 函数引用工作表数据。...语法规则如下: 引用单个单元格:xl("A1") 引用区域:xl("B1:C4")(B1 到 C4 的矩形区域) 引用表格:xl("MyTable[#All]", headers=True)...(MyTable 为表格名称,#All 表示整个表格,headers=True 保留表头) 示例:在单元格中输入 =PY(xl("A1") + xl("B1")),即可计算 A1 和 B1 的和,结果直接显示在单元格中...在 Power Query 编辑器中加载数据,点击「关闭并上载」,数据会显示在新工作表中(假设表名为「销售数据」)。

    1.8K51

    VBA: 为worksheet 设置密码和解除密码

    1 判断工作表是否处于保护状态 ProtectContents是工作表的属性,用于判断工作簿中的某张表是否处于保护状态。...End If 2 保护和解除保护工作表 2.1 保护工作表 在VBA中可以使用Worksheet对象的Protect方法保护工作表。...其余的部分参数对应的是“保护工作表”对话框中显示的“允许此工作表的所有用户进行的选项”,如下图所示: 值得一提的是,在保护工作表之前,需要对受保护的单元格区域设置锁定。...这样,在保护工作表期间,那些锁定单元格得到保护,其他未锁定的单元格依然可以编辑。 2.2 解除保护工作表 在VBA中可以使用Worksheet对象的Unprotect方法解除保护工作表。...This method has no effect if the sheet or workbook isn't protected. 3 综合示例 假设有张工作表Sheet1,密码是“111”,单元格区域已锁定

    3.9K20

    个人永久性免费-Excel催化剂功能第62波-单元格区域内数据加解密处理,最有效地保护数据方式

    Excel的数据保护能力有限,诸如之前提及过的工作表保护、工作薄保护等,都是十分微弱的保护措施,而对于强保护的工作薄打开密码来说,它像是个总开关一样,要么全不能看,要么就全看到。...有这样的场景需求,一份工作表内,有部分内容是较为敏感的,不想让人轻易看到,在这样的场景下,有必要对单元格的内容进行加密处理,原生功能不支持,Excel催化剂带给大家行业公认较为可靠的加密手段,应对一般性的加密需求足够...使用场景 单元格的部分内容需要加密起来不给人查看到,这个简单的需求,真正用原生功能实现起来,还真不容易或者说是弱爆了的君子之约的保护级别。...原生的功能可以用单元格数字格式、单元格隐藏后工作表保护等方式实现,但稍微一个中级Excel用户,都是轻松破解的。...功能入口 加解密用到的技术,和之前实现的自定义函数里的加解密函数是一致的,大家可酌情看哪种方式符合实际需求 自定义加解密函数 解密操作验证一致性 输入密码因子 加密后的加密文本 解密操作时,同样是需要输入密码因子来解密

    42930

    Excel信息安全保卫战

    选中要隐藏的表-右键-选中隐藏 第二步:保护工作簿 如果只做了第一步呢,很多对Excel很熟的朋友直接取消隐藏,就可以把你的明细表调用出来了,这样很不安全,所以还需要上一把锁! ? ?...每个人的收入都是根据其它单元格运算而来!但是我想要把整个表的公式隐藏不给你看! 就是辣么任性!怎么弄? 第一步:选中表中的所有含有公式的单元格 ? 在开始菜单-查找和选择-定位条件 ?...选中公式-单击确定 第二步:设置单元格格式-保护-设置为隐藏 选择公式后确定 ? 然后在选中的某个单元格上右键-选中设置单元格格式 ? 在包含选项卡上勾选隐藏-然后确定! 第三步:保护工作表 ?...审阅选项卡-单击保护工作表 ? 设置密码保存表格 ? 设置好后,选中有公式的单元格,将不会显示公式来源 对比一下之前的情况 ? 看到区别了咩!!!!...前面分享了如何保护工作表,当设置完保护工作表后整个表都不能修改了! 这不科学哇!全部锁定了,就变成只读状态了! ? 比如这张表,目前想给别人填写身高信息,但是又不想他改除了涂黄以外的任何区域!

    1.3K40

    Excelize 开源基础库发布 2.10.0 版本更新

    支持 XLAM / XLSM / XLSX / XLTM / XLTX 等多种文档格式,高度兼容带有样式、图片(表)、透视表、切片器等复杂组件的文档,并提供流式读写支持,用于处理包含大规模数据的工作簿。...Apple Numbers 的兼容性,相关 issue 2145在工作簿内部关系部件中为工作表使用相对路径问题修复修复 v2.9.1 中引入的问题,修复 ARMv7 架构上构建失败的问题,解决 issue...,读取带有不支持的数据透视表缓存源类型时出现的 panic 问题,解决 issue 2161修复字符验证错误,在字符长度限制检查中将字符作为单个字符计数,解决 issue 2167修复部分情况下,添加数据透视表后...,生成的工作簿在 Mac 版本 Excel 打开时提示文档损坏的问题,解决 issue 2180修复读取包含藏语数字格式代码的单元格时月份缩写错误的问题修复读取 1900 年带有特殊日期数字格式的结果与...你将不再受限于 Excel 的传统操作方式,而是能够通过编程的方式,解锁 Excel 新境界,创造出更加智能、高效的数据处理解决方案。

    29410

    VBA实战技巧26:使用递归确定所有的引用单元格

    图2 立即窗口中的输出告诉我们,Precedents属性适用于这个简单的示例,但是这个示例和帮助文件没有告诉我们的是它不会返回其他工作表或其他工作簿上的引用单元格。...这个限制由Range.Precedents属性的定义所限制,因为该属性返回一个Range对象,而Range对象不能跨不同工作表引用单元格区域。...'不能遍历受保护工作表中的引用单元格 '不能识别隐藏工作表中的引用单元格 Public Function GetAllPrecedents(ByRef rngToCheckAs Range) As Object...注意,这段代码不会遍历关闭的工作簿或受保护的工作表追踪引用单元格,也不会在隐藏的工作表中找到引用单元格。...在Excel2010之前的版本中,Range.SpecialCells的返回值限制为8,192个不连续的单元格。你不可能打破此限制。

    1.9K10

    excel常用操作大全

    工作簿(表)受保护后,还可以保护工作表中某些单元格区域的重要数据,具有双重保护功能。...此时,您可以这样做:首先,选择要保护的单元格区域,在“格式”菜单中选择“单元格”命令,选择“保护”,从对话框中选择“锁定”,然后单击“确定”退出。...然后在“工具”菜单中选择“保护”命令,选择“保护工作表”,根据提示输入密码两次后退出。注意:不要忘记你有一个“密码”。如果您想修改这些受保护单元格的内容,您需要输入密码。...解决方法是:选择文件\页面设置\工作表,并在“打印”栏中选择“单色打印单元格”选项。之后,打印的表格看起来是一样的。 25.如果我忘记了工作表保护的密码怎么办?...如果您想使用受保护的工作表并忘记密码,有什么办法吗?是的。选择一个工作表,选择编辑\复制,并将其粘贴到新工作簿中(注意:它必须是新工作簿),这可以覆盖工作表保护。

    28.6K10

    Excel技巧:锁定包含公式的单元格

    标签:Excel技巧,保护工作表 有时候,我们想保护工作表中的公式,不让用户能够随便修改,但是又不想限制用户编辑除公式之外的数据。...此时,不能够简单的使用“保护工作表”命令,稍微需要添加一点技巧来实现。 按以下步骤操作: 步骤1:按Ctrl+A组合键,选择整个工作表单元格。...步骤2:单击鼠标右键,从快捷菜单中选择“设置单元格格式”命令。在弹出的“设置单元格格式”对话框中选择“保护”选项卡,取消“锁定”前复选框中的勾选,如下图1所示。...图3 此时,Excel选择工作表中所有包含公式的单元格。 步骤5:单击鼠标右键,从快捷菜单中选择“设置单元格格式”命令。...在弹出的“设置单元格格式”对话框中选择“保护”选项卡,选取“锁定”前的复选框,如下图4所示。 图4 步骤6:单击功能区“审阅”选项卡中的“保护工作表”命令。

    4.2K20

    用编程赋能工作系列——解锁合并单元格问题

    我会从自己实际工作中遇到的繁琐难题入手,分别给出编程实现思路,在巩固自己语法基础的同时,也希望可以帮到那些有心学习编程技能来赋能职业发展的小伙伴儿。...>>>> 以下是学习时间 ---- 新栏目开篇是最近遇到的一个小case,场景如下图所示,不太好用文字描述这个功能叫啥,索性就叫做解锁合并单元格吧。 ?...这种情况,相信在很多包含非结构化数据的汇总分析中经常遇到,如果不把表格中右侧合并在单元格中的多行内容汇总到单行单元格中(如图右半部分所示的理想情况),那么要想做全局性的汇总统计分析工作就很困难。...以上诉求在Excel中是很难得到解决,但是如果对R语言和Python稍有基础的话,那么就很轻松可以解决,整体思路如下: 1、先用一个循环遍历每一行 2、把每一行内容,根据右侧单元格中文本的长度改造成单个数据框...还是那句话,不求一定要成为数据科学家、AI工程师、算法工程师,能让你的职场工作更高效,留些时间多陪陪父母和孩子、陪陪伴侣和朋友,不要在枯燥繁琐的工作中一筹莫展、泥足深陷,学会借力、借势,让工具赋能工作,

    91730

    Excel 宏编程的常用代码

    Const MyStr = “Hello”, MyDouble As Double = 3.4567 选择当前单元格所在区域 在EXCEL97中,有一个十分好的功能,他就是把鼠标放置在一个有效数据单元格中...给指定单元格赋值 例如:A1单元格内容设为”HELLO” Range(“a1″).value=”hello” 又如:你现在的工作簿在sheet1上,你要往sheet2的A1单元格中插入”HELLO” 1...隐藏工作表 ‘隐藏SHEET1这张工作表   sheets(“sheet1”).Visible=False ‘显示SHEET1这张工作表   sheets(“sheet1”).Visible=True...得到当前日期及时间 msgbox date & chr(13) & time 保护工作簿 ActiveSheet.Protect 取消保护工作簿 ActiveSheet.Unprotect 给活动工作表改名为...删除活动工作表 activesheet.delete 打开一个工作簿文件 Workbooks.Open FileName:=”C:/My Documents/Book2.xls” 关闭活动窗口 ActiveWindow.Close

    4K10
    领券