Excel工作表保护密码破解的宏代码

下了个微软软研究院的开发组实习生申请表，想填却填不进去。

原来他对工作表做了锁定，还有密码，我猜测他不是故意坑人的，想申微软的人连这点手段都没有人家也不会要的。下面的宏代码就是来破工作表锁定的。

 

<span style="font-size:12px;color:#000000;">Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick   JE McGimpsey "
Const HEADER As String = "工作表保护密码破解"
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & "                   hfhzi3—戊冥 整理"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" &