如何解除excel工作表锁定

) & Chr(k) & _РChr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _РChr(i4) & Chr(i5) & Chr(i6) & Chr(n)РIf Not .ProtectContents ThenРPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _РChr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _РChr(i4) & Chr(i5) & Chr(i6) & Chr(n)РMsgBox Application.Substitute(MSGPWORDFOUND2, _Р"$$", PWord1), vbInformation, HEADERР'leverage finding Pword by trying on other sheetsРFor Each w2 In WorksheetsРw2.Unprotect PWord1РNext w2РExit Do 'Bypass all for...nextsРEnd IfРNext: Next: Next: Next: Next: NextРNext: Next: Next: Next: Next: NextРLoop Until TrueРOn Error GoTo 0РEnd IfРEnd WithРNext w1РEnd IfРMsgBox ALLCLEAR & AUTHORS & VERSION & REPРBACK, vbInformation, HEADERРEnd SubР步骤阅读Р5Р依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,执行,确定两次; Р耐心等一会,再点击两次确定,就ok啦!Р步骤阅读Р步骤阅读Р步骤阅读Р步骤阅读Р步骤阅读