ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码 ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码 '本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿,并保存其更改内容 。 For Each w In Workbooks If w.Name ThisWorkbook.Name Then w.Close SaveChanges:=True End If Next ...
Public Sub Protect_Sheet()‘保护工作表，设置密码为“password”ActiveSheet.Protect Password:="password"End Sub 上述代码可以对活动工作表进行保护，并设置保护密码为“password”。下面的代码撤消活动工作表保护：Public Sub Unprotect_Sheet()‘用已知密码“password”撤消工作表保护 ActiveSheet.Unprotect ...
Public Sub Protect_Sheet()‘保护工作表,设置密码为“password”ActiveSheet.Protect Password:="password"End Sub上述代码可以对活动工作表进行保护,并设置保护密码为“password”。下面的代码撤消活动工作表保护: Public Sub Unprotect_Sheet()‘用已知密码“password”撤消工作表保护ActiveSheet.Unprotect Password:="passw...
ActiveSheet.Unprotect Password:="123456" End Sub ``` 上述代码将取消当前活动工作表的保护,密码为"123456"。 通过使用VBA,我们可以轻松地修改工作表的保护设置,以满足我们的特定需求。这种灵活性使得Excel成为一个功能强大的办公工具。 通过以上的代码示例,我们可以了解到如何使用VBA修改工作表保护。这种方法简单、高...
Sub UnprotectActivesheet() IfActiveSheet.ProtectContents Then ActiveSheet.UnprotectPassword:='test' End If End Sub 说明: Unprotect方法只有一个可选参数Password,用来提供保护工作表时所设置的密码。 如果保护工作表时没有设置密码,可以忽略参数Password。 如果提供的密码不正确,那么Excel会弹出一个错误提示框,如下图...
Sheets('商品信息').Visible = 0 普通隐藏工作表(-1为显示工作表,0为普通隐藏工作表,2为深度隐藏工作表) ActiveSheet.Unprotect Password:='1234''活动工作表解密,后面为解密密码。 ActiveSheet.Protect Password:='1234''活动工作表加密,后面为加密密码。
VBA 取消和设置表保护的密码 ActiveSheet.Unprotect Password:="123456" ActiveSheet.protect Password:="123456"
Sub nzUnprotectWS() '取消保护工作表 ActiveSheet.Unprotect "123"End Sub 如果要取消对工作表的保护，可以使用此宏代码。您所要做的就是提及您在保护工作表时使用的密码。If you want to unprotect your worksheet you can use this macro code. All you have to do just mention your password which you ...
Sub UnprotectActivesheet() IfActiveSheet.ProtectContents Then ActiveSheet.UnprotectPassword:='test' End If End Sub 说明: Unprotect方法只有一个可选参数Password,用来提供保护工作表时所设置的密码。 如果保护工作表时没有设置密码,可以忽略参数Password。 如果提供的密码不正确,那么Excel会弹出一个错误提示框,如下图...
Workbook.Unprotect 取消工作簿的保护。如果工作簿不是受保护的,则此方法不起作用。 语法:Unprotect(Password) 如果保护有密码,则密码参数是必须的。 示例: ActiveWorkbook.Protect Password:="123", structure:=True, Windows:=True ActiveWorkbook.Unprotect Password:...