如何用VBA保护工作表

最新推荐文章于 2024-05-23 16:28:12 发布
最新推荐文章于 2024-05-23 16:28:12 发布
阅读量6.5k 收藏 5
点赞数 2
分类专栏： VBA
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_42412150/article/details/81315632
版权

代码如下：

Private Sub July241()  

Sheets("sheet1").Cells.Font.ColorIndex = 2 '防止文档越权使用者看到内容 

If Application.InputBox("请输入操作权限密码：") = 123 Then  

Sheets("sheet1").Cells.Font.ColorIndex = 56 '输入正确的密码之后文字将会变为深灰色

Else  MsgBox "密码错误，即将退出！"  

Sheets("工作表1").Select  

End If  

End Sub

冯修聿
关注
  • 2
    点赞
  • 踩
  • 5
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
VBA助力Excel工作薄另存备份和自我销毁，确保工作薄名称自始至终不被修改
BeijixingVBA的博客
05-08 906
VBA助力Excel工作薄另存备份和自我销毁，确保工作薄名称自始至终不被修改
利用VBA批量保护/撤销EXCEL表
God_68的博客
12-26 4202
//批量保护EXCEL表 '定义存储保护密码与撤销保护密码的变量并初始化值 Dim passwd As String Dim CP As String '自动保护客户信息 Sub 自动保护() passwd = InputBox("请输入保护密码，密码为6位数字") '对所有工作表对象执行循环 For Each one In Worksheets '激活某个工作表 one.Select '保护工作表 ActiveSh.
第五课 利用VBA设置工作表使用权限
gxiyv的专栏，欢迎您的光临指导！
04-21 2494
第五课 利用VBA设置工作表使用权限Excel Home 一般保护工作表采取的方法是用EXCEL菜单中的“保护”命令，有时这尚嫌不足，比如一些机密文件根本要让某些使用者无法看到，但又需要他来操作工作簿中的其他表，怎么办？ 可以打开VBA编辑器，打开“工程资源管理器”，双击该工作表，现在出现的是设置该表的属性的编辑窗口，单击窗口左上的下拉列表框，选择worksheet ,这时再从该窗口右
14｜VBA脚本编程：如何扩展Excel，实现文件的批量打印？
最新发布
qq_37756660的博客
05-23 2093
第三部分是 PrintOut 方法的三个参数，它的三个参数更改了打印的默认行为。
VBA中判断工作簿是否结构、窗口保护
12-02
日常工作中经常要处理别人发来的excel附件，在工作簿中增加一个sheet来显示数据提取结果，但数据结构保护的工作簿会添加sheet失败。 VBA中判断工作簿是否结构、窗口保护，后重新指定判断结果输出位置。
Excel VBA保护工作表
banzhen4494的博客
12-24 2144
　　 '设定可编辑区域 ActiveSheet.Protection.AllowEditRanges.Add Title:="区域1", Range:=Range("E5:H12") '保护工作表，但允许上面设定的区域可以编辑 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scena...
VBA代码来破解工作表保护
nocomment_84的博客
07-05 2041
VBA代码来破解工作表保护: Sub 破解() ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True ActiveSheet.U
VBA即用型代码手册：立即保护所有工作表Code及插入多工作表Code
VBA语言専攻
02-24 761
我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部的创作。
VBA示例之 求人不如自已动手 取消隐藏工作表（包括vba Project工程保护的)
10-26
`If ws.ProtectContents = True Then`判断工作表是否被内容保护，如果被保护，使用`ws.Unprotect Password:="your_password"`解除保护。这里，你需要替换`"your_password"`为实际的密码。 对于VBA Project工程保护...
破解excel工作表保护密码.xlsm
01-08
破解excel工作表保护密码
VBA_Excel工作表代码总结
07-05
8. **保护工作表**： - `Sheets("工作表名 ").Protect (Password)`：保护工作表，需要输入密码才能修改。 - `Sheets("工作表名 ").Unprotect (Password)`：撤销保护，允许修改。 - 示例：`Sheets("sheet1")....
excel vba 限制工作表的滚动区域代码
09-05
在Excel VBA编程中，有时候我们可能需要对工作表的可滚动区域进行限制，以便用户只能查看和操作特定的部分，比如在设计交互式报表或者保护数据时。这可以通过设置`Worksheet`对象的`ScrollArea`属性来实现。`Scroll...
拾柒-VBA 给 Excel Worksheet 上锁
BerryBC的三世书
12-16 737
这个主要是记录给我为公司写的小宏，都什么年代了，还写 VB宏 ，我觉得绝望。 主要在之前的基础上实现了两个功能： 1. 在查询数据的时候把数据内容 Sheet 显示 因为又要把整个 Excel 放在公共盘，又不能把内容直接给别人看，这是闹哪样？ 不过还是这样吧，做了吧，当作是为了工资。 首先我有一个 Sheet 叫 DBR ，这个 Sheet 就是数据源，在平时要隐藏起来，而因为隐藏的时候是更新和...
用vba解除excel的sheet保护的最快方法
wzhang1987的博客
02-23 6513
需求：解除excel的sheet保护，不知道sheet保护密码。 这个方法是偶然看到的，可能是利用了excel的bug，亲测可用，1秒破解。 sub upt() ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True ActiveSheet.
ExcelVBA之sheet完全隐藏
soga235的博客
05-29 2491
问题： 使某些Excel的文档不直接可见，除非有密码，该命令和隐藏命令不一样，不输入正确密码，根本不知道还有其他sheets如机密文档sheet：如下文档只可见普通文档，机密文档完全不可见，不是通过取消隐藏来实现可见的。 代码： Private Sub Worksheet_Activate() If Application.InputBox("请输入操作权限密码:") = 123 Then Range("A1").Select Sheets("机密文档").Visible = xlSheetV.
【EXCEL_VBA_实战】利用VBA批量解除工作表保护，并调整页面设置
分享个人收获，创建共享共赢社区
05-01 1085
VBA批量处理工作簿框架的应用
Excel VBA入门教程
热门推荐
m0_61961937的博客
04-08 6万+
简单介绍vba是什么，和编写第一个vba程序
EXCEL VBA 入门与实用例子
cnds123的专栏
06-22 6万+
VBA这个以前用过，放下很久了，最近因需要用Excel处理数据，用到了它，使用了其它一些方式，对比一下，感到VBA还是有些长处的。故将以前的学习笔记，重新整理了一下，发表到这里，供有需要的人借鉴。...............
【数据分析】Excel中使用VBA进行宏编程
Sig的博客
01-28 1万+
从开发者角度看，Excel VBA应用程序由工作表、用户窗体、模块和类模块等部分构成。工作表：用于保存和显示程序的数据，是程序的主体部分。一般先在工作表中制作出特定表格的格式，并设置好样式，再通过VBA代码获取表格中的数据，经过加工处理后将其填写入相应的单元格，供用户进行查看、打印输出等操作。用户窗体：在Excel VBA应用程序中，除了可使用工作表与用户进行交互外，还可向程序添加用户窗体，用来与用户进行交互操作。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值