ecel无法复制粘贴已保护的工作表怎么办.docxVIP

excel 无法复制粘贴已保护的工作表怎么办 Excel 表格密码保护的解除方法 表格受密码保护时，我们修改数据 Excel 弹出“您试图更改的单元格或图表受保护，因而是只读的。若要修改受保护单元格或图表，请先使用‘撤消工作表保护’ 命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。这时候我们可以用 VBA 宏代码破解法来破解表格保护密码： 打开开发工具→点击“录制宏”， 出现“录制新宏”窗口， 打开开发工具→点击“录制宏”， 出现“录制新宏”窗口， 在“宏名”定义一个名称为：PasswordBreaker，点击“确定”退出 第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”， 打开“Microsoft Visual Basic”编辑器， 用如下内容替换右侧窗口中的所有代码： Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) Chr(j) Chr(k) _ Chr(l) Chr(m) Chr(i1) Chr(i2) Chr(i3) _ Chr(i4) Chr(i5) Chr(i6) Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox One usable password is Chr(i) Chr(j) _ Chr(k) Chr(l) Chr(m) Chr(i1) Chr(i2) _ Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n) ActiveWorkbook.Sheets(1).Select Range(a1).FormulaR1C1 = Chr(i) Chr(j) _ Chr(k) Chr(l) Chr(m) Chr(i1) Chr(i2) _ Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub J,IJII L 凡 三 上at 亡C,tt J f,5 .l n t eO , T I[，，二 压 1e 已江 如 置 1 缸 l u l 劝 E, n 虹 I 扯 叮 沪 ｀， D. 比： I n 1 gg m Dllll i ) 缸 I IL 上 屯 灯 ， 辽 伈 正 t” 闭 ， L3 缸 I 口 I:.e C 丁Di li i ,4, 缸 I IL 凶 ＄r , 还 比 丘 t” 心 ， 心 缸 I n t 屯 ” IJ:n. 氐 下 0r 瓦 5 可 、 七 nm:t 1 vt L : 芘 丘 邸 ： F 心 」 ＝ 貊 To B8 ． 氏 ?- :Le = 65 J 心 芘 1 o r 1 = 芘 h 6 6 f a r- 111 = 历 To 66: !:!OT i L = 65 la 66 Fot i 2 = 85 r o BO For i3 = 65 1 q OO: r 处 讨，＝ 朽 r o BB 1 or i 5 = 眨 吓 胱 ＇ ll or- i6 = 65 l a 芘 ： r 寂 n = 3 1 p ) 2E, 知 心 如 ． 气 ” 区 o t 玉 ( i ) ＆心 (j ) C 心 心 ＆ E 比. I)_) !!! C 虹