解除全部工作表保护

yuxinrong · 发表于 2011-12-27 16:11

解除全部工作表保护
Sub 解除全部工作表保护()
Dim n As Integer
For n = 1 To Sheets.Count
Sheets(n).Unprotect
Next n
End Sub

epexiaocheng · 发表于 2011-12-28 10:08

若用密码保护，想打开的话就是叫“破解”了！

莫其名 · 发表于 2011-12-27 23:01

这个适用于没有密码的情况，有密码时会提示输入密码

yuxinrong · 发表于 2011-12-28 09:06

若用密码保护，想打开的话就是叫“破解”了！呵呵

yuxinrong · 发表于 2011-12-28 11:48

干脆再上传一个破解工作表的加载项

88888888 · 发表于 2012-2-29 22:55

多谢分享，学习了。

		自动登录	找回密码
密码			注册