作者：乔山办公网日期：
返回目录：excel表格制作
在要操作工作表之前和之后加入工专作表保护和撤消保护的代码
Sheet6.Unprotect Password:="y121635bk" '解除工作表保属护
Sheet6.Protect Password:="y121635bk" '打开工作表保护
也可以在开头和结尾用
sub XXX()
Sheet6.Unprotect Password:="y121635bk" '解除工作表保护
'你的代码
Sheet6.Protect Password:="y121635bk" '打开工作表保护
end sub
如果工作表没有密码的话就用
Sheet6.Unprotect
Sheet6.Protect
把这段代码复制到zhidao你的EXCEL代码区域，如果需要保护工作表2,3，只需专把代码属中1改为2,3即可
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Protect Password:=你的密码
End Sub
这要看你的VBA是在什么情况下激活使用的
在VBA中调用过程的时候,需要增加解密语句,执行完成后,需要增加加密语句
保护工作表中的VBA代码在对表格执行代码的时候都需要先解密后加密