mxcf.net
当前位置:首页 >> vBA 保护工作表 密码 >>

vBA 保护工作表 密码

设置工作表密码 ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码 ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码

方法一:输入 '解除工作表保护’的代码:Sheet6.Unprotect Password:="y121635bk" 方法二:如果工作表没有密码的就输入: Sheet6.Unprotect Sheet6.Protect VBA的作用: 1.规范用户的操作,控制用户的操作行为; 2.操作界面人性化,方便用户的操...

可以用下面的代码来实现: Sub main() If ActiveSheet.ProtectContents=True Then MsgBox "工作表处于保护状态!" End If End Sub 关于此例中用到的ProtectContents属性的相关知识: 如果工作表的内容处于保护状态,则该值为 True。对于图表工作...

Option ExplicitSub CopyFirstCell() Dim rngSource As Range, rngTarget As Range Dim password As String '假设你保护工作的密码为123456 password = "123456" '取消保护工作表 ActiveSheet.Unprotect password '如果未设置密码或者要求操作人...

如果楼主是想保护工作簿中的各工作表,使其不可随意编辑,可以用以下代码。 Sub ProtectAllWorkSheets()'运行代码后,当前工作簿中的所有工作表都将不允许编辑,除非撤销工作表保护 On Error Resume Next Dim ws As Worksheet, myPassword As St...

我觉得只能用VBA程序来实现了。步骤如下: 打开需加密的Excel文件,按ALT+F11打开VBA编辑器 ; 在左边窗格里右键点击模块,插入一个新模块; 把以下代码贴入 Sub Macro1()Dim i, nn = Worksheets.CountFor i = 1 To n Worksheets(i).Protect Pas...

因为EXCEL的密码加密码方法与我们平常的不一样. EXCEL中是把你输入的密码转化成" ABABBBABAAA* "这种形式的: 前面11位每一位A或B组成,第12位才是任意一个字符. 举例:你输入1234为密码,结果用1257也能打开是一样的: 这样子就算你输入的密码1000万...

1.启动Excel,执行“工具→宏→Visual Basic 编辑器”命令,进入VBA编辑状态(如图1)。进入VBA编辑状态。 2.在左侧的“工程资源管理器”窗口中,选中“VBAproject(PERSONAL.XLS)”(个人宏工作簿)选项。 3.执行“插入→模块”命令,插入一个模块(模块1)。 4....

保护工作表: ActiveSheet.Protect Password:="123" 撤销保护: ActiveSheet.Unprotect ("123") ActiveSheet:当前工作簿,活动工作表。

可以使用VBA批量保护。 Sub Pro_All() Dim i As Single For i = 1 To ThisWorkbook.Worksheets.Count Worksheets(i).Protect "123456" '密码是123456,设定其他字符可以更改 Next End Sub 如果是解除密码,将protect更换为unprotect即可。 Sub P...

网站首页 | 网站地图
All rights reserved Powered by www.mxcf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com