如果您拥有密码...修改以下宏：

 Sub UnlockME（）
  '在这里为您的特定工作簿/工作表/密码进行更改
     const YOUR_PassWORD =" clickACCEPT！"  '<-这可能不是您的密码
     Const aSheetName =" Sheet1"'<---可能是您的工作表名称，但请确保
    
  ``魔术来了...
     ThisWorkbook.Sheets（aSheetName）。取消保护YOUR_PassWORD

 结束子
 

如果您没有密码，并且使用的是Excel 2010或更早版本... 此 VBA代码可能（始终）有效：

 Sub PasswordBreaker（）
     Const FunnyText As String =" Click_Accept !!"
 
     Dim i作为整数，j作为整数，k作为整数
     Dim l作为整数，M作为整数，n作为整数
     昏暗i1作为整数，i2作为整数，i3作为整数
     Dim i4作为整数，i5作为整数，i6作为整数
     关于错误继续
     对于i = 65至66：对于j = 65至66：对于k = 65至66
     对于l = 65至66：对于M = 65至66：对于i1 = 65至66
     对于i2 = 65至66：对于i3 = 65至66：对于i4 = 65至66
     对于i5 = 65至66：对于i6 = 65至66：对于n = 32至126
     ActiveSheet.Unprotect FunnyText＆Chr（i）＆Chr（j）＆Chr（k）＆_
         Chr（l）和Chr（M）和Chr（i1）和Chr（i2）和Chr（i3）和_
         Chr（i4）和Chr（i5）＆Chr（i6）和Chr（n）
     如果ActiveSheet.ProtectContents = False，则
         MsgBox"一个可用的密码是"＆FunnyText＆Chr（i）＆Chr（j）＆_
             Chr（k）＆Chr（l）＆Chr（M）＆Chr（i1）＆Chr（i2）＆_
             Chr（i3）和Chr（i4）和Chr（i5）和Chr（i6）和Chr（n）
          退出子
     万一
     下一个：下一个：下一个：下一个：下一个：下一个
     下一个：下一个：下一个：下一个：下一个：下一个
 结束

如果您使用的是2013年或更高版本。 该视频可能会有用。

如果您在道德上被共享此信息感到愤怒，请考虑 最好 每个人都知道破解Excel Sheet Protection有多么容易，而不是仅仅花很多时间在手...（我）上。