帮你做了个解锁的,按alt+F11进入VBA编辑,双击ThisWorkbook,把以下代码copy进去。5秒内可以解开所有的worksheet的锁。如果你想解workbook的,稍微修改一下代码就可以了。试试吧。Private Sub myUnprotect()Dim ws As WorksheetDim i, j, k, l, m, n, o, p, q, r, s, t As IntegerApplication.ScreenUpdating = FalseOn Error Resume NextFor Each ws In Worksheets
If ws.ProtectContents Then
...
|