达夕博客
  • 首页
  • 软件工具
    • 提高生产力
    • 数字化办公
    • 智能手机
    • 开发工具
  • 技术编程
  • 互联网
  • 关于
  1. 首页
  2. 提高生产力
  3. 正文

Excel中批量保护和撤销工作表

2018年08月08日 3146点热度 2人点赞 1条评论

Excel中批量保护和撤销工作表

Excel中如果想对Sheet进行控制,防止其他人编辑、修改、复制等操作。需要为每个Sheet开启保护功能。详细做法可以参考这里。但是一次只能修改一个Sheet。如果有很多Sheet都需要设定保护功能的话,就会非常繁琐。这里提供了一个通过VBA方法,可以做到对一个Excel总的所有Sheet批量保护的功能。注意需要Excel开启宏功能。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub 批量保护()
Dim sh As Worksheet
Dim pwd As String
Dim repwd As String
Do
    pwd = InputBox("请输入保护密码,为空时不进行保护:")
    repwd = InputBox("再次输入保护密码:")
    If pwd = repwd Then
       For Each sh In Worksheets
       'Protect( Password , DrawingObjects , Contents , Scenarios , UserInterfaceOnly , AllowFormattingCells , AllowFormattingColumns , AllowFormattingRows , AllowInsertingColumns , AllowInsertingRows , AllowInsertingHyperlinks , AllowDeletingColumns , AllowDeletingRows , AllowSorting , AllowFiltering , AllowUsingPivotTables )
       sh.EnableSelection = xlNoSelection
       sh.Protect pwd, True, True, True, True, False, False, False, False, False, False, False, False, False, True, False
       Next
       Exit Sub
    End If
Loop
End Sub
 
Sub 批量解除()
Dim sh As Worksheet
Dim pwd As String
pwd = InputBox("请输入解除密码:")
For Each sh In Worksheets
    sh.Unprotect pwd
Next
End Sub

 

标签: Excel 保护 加密 批量
最后更新:2018年08月08日

达夕

保持饥渴的专注,追求最佳的品质

点赞
< 上一篇
下一篇 >

文章评论

  • 头像
    lioner

    您好,如果我想在保护单元格的同时,能够编辑某一列的内容,要怎么写代码呢

    2021年01月13日
    回复
  • 取消回复

    最新 热点 随机
    最新 热点 随机
    Intellij Idea 2020.3.1无限试用激活补丁 PDF全能解决方案Adobe Acrobat DC 2020 SP 直装特别版 IntelliJ IDEA 开发助手插件DevHelper 1.0.2版本发布 IntelliJ IDEA 开发助手插件DevHelper发布啦,充分提高工作效率 全能数据库管理工具Navicat 15 旗舰版x64位安装激活 Redis可视化工具Redis Desktop Manager 2020.2下载 v2ray启动报code=exited, status=218/CAPABILITIES错误的解决方法 Adobe Photoshop 2020 V21.1.0.106 绿色特别版
    IntelliJ Idea最新版2019.3.3激活方法Windows安装版Redis Desktop Manager 2019.4下载PowerDesigner 16.6的安装破解资源下载Windows安装版Redis Desktop Manager 2019.5下载Adobe Photoshop 2020 V21.1.0.106 绿色特别版三步完成PowerDesigner 16.5的安装破解汉化Sublime Text 3 最新版3176激活方法Beyond Compare最新特别版4.2.6.23150下载
    印象笔记新增快捷输入语法,实例演示让写笔记更高效 如何修改Intellij Idea 中的默认配置 Redis可视化工具Redis Desktop Manager 2020.2下载 PowerDesigner 16.6的安装破解资源下载 利用Google Drive打造自己的专属音乐播放器 [iOS]新版Firefox五大改进,大幅提升性能和用户体验度 你的密码还安全吗:密码设置原则和策略 利用Eclipse三步导出可执行jar包
    标签聚合
    IntelliJ Idea 印象笔记 iPhone 激活 Google Chrome Windows 10 Google Drive 敏捷开发 Evernote Dropbox
    推荐文章

    COPYRIGHT © 2020 达夕博客. ALL RIGHTS RESERVED.

    THEME KRATOS MADE BY VTROIS