<em>excel保护工作表</em>后<em>vba</em>失效要怎

那地方错误，提示是什么？
UserForm4.Show (modeless)，有没有这个来窗体？

而且打开事件里隐藏了自全部工作薄，在退出事件里了要加上Application.Visible = true，要不其他工作薄显示不出来，会保留在进zd程里

Worksheets("出库单度问").Protect Password:="111"
这里是答Worksheets("出库单").UnProtect Password:="111"吧？
然后最后内再加容上：
Worksheets("出库单").Protect Password:="111"

在要操道作工作表之前和之后加入工作表保护和撤消保护的代码
Sheet6.Unprotect Password:="y121635bk" '解除工作版表保护权
Sheet6.Protect Password:="y121635bk" '打开工作表保护
也可以在开头和结尾用
sub XXX()
Sheet6.Unprotect Password:="y121635bk" '解除工作表保护
'你的代码

Sheet6.Protect Password:="y121635bk" '打开工作表保护
end sub

如果工作表没有密码的话就用
Sheet6.Unprotect
Sheet6.Protect