如何让电脑所有excel文档损坏？求方法，且不能被修复。急，在线等

1

采用专用修复功能

①在“文件”菜单上，单击“打开”。

②在“查找范围”列表中，单击包含要打开的文件的驱动器、文件夹或Internet

位置。

③在文件夹列表中，定位并打开包含文件的文件夹。

④选择要恢复的文件。

⑤单击“打开”按钮旁边的箭头，然后单击“打开并修复”

“打开并修复”是Word

2002/2003

才具有的功能，如果该方法仍不能打开受损文档，或者您使用的是Word

97/2000，可以试试以下方法。

2

转换文档格式

将Word文档转换为另一种格式，然后再将其转换回Word

文档格式。

①在Word

中打开损坏的文档。

②在“文件”菜单上，单击“另存为”。

③在“保存类型”列表中，单击“RTF

格式(*.rtf)”，然后单击“保存”。

④关闭文档，然后重新打开RTF

格式文件。

⑤在“文件”菜单上，单击“另存为”。

⑥在“保存类型”中，单击“Word

文档(*.doc)”，然后单击“保存”。

⑦关闭文档，然后重新打开刚创建的DOC

格式文件。

Word

文档与RTF

的互相转化将保留文档的格式。如果这种转换没有纠正文件损坏，则可以尝试与其他字处理格式的互相转换，这将不同程度地保留Word

的格式。如果使用这些格式均无法解决本问题，可将文档转换为纯文本格式，再转换回Word

格式。由于纯文本格式的比较简单，这种方法有可能更正损坏处，但是文档的所有格式设置都将丢失。

3

重设格式法

Word用文档中的最后一个段落标记关联各种格式设置信息，特别是节与样式的格式设置。这样我们就可以将最后一个段落标记之外的所有内容复制到新文档，就有可能将损坏的内容留在原始文档中。步骤如下：

①在Word中打开损坏的文档，选择“工具→选项”然后选择“编辑”选项卡，取消“使用智能段落选择范围”复选框前的勾。取消选中该复选框，选定整个段落时，Word将不会自动选定段落标记，然后单击“确定”按钮。

②选定最后一个段落标记之外的所有内容，方法是：按“Ctrl+End”组合键，然后按“Ctrl+Shift+Home”组合键。

③在常用工具栏中，依次单击“复制”、“新建”和“粘贴”按钮。

4

禁止自动宏的运行

如果某个Word文档中包含有错误的自动宏代码，那么当你试图打开该文档时，其中的自动宏由于错误不能正常运行，从而引发不能打开文档的错误。此时，请在“Windows资源管理器”中，按住Shift键，然后再双击该Word文档，则可阻止自动宏的运行，从而能够打开文档。

分类: 电脑/网络 >>软件

问题描述:

在我自己电脑里面，怎样 *** 作才能把正常使用的WORD文件损坏，使他打不开，或者乱码

解析:

教你一招很损的.

如果这个文件你自己还需要,可以把他移到别的地方,并且重命名.如果不需要了,直接删除就可以了.

然后双击“我的电脑”，选择“工具”菜单下的“文件夹选项”，选择“查看”，在“高级设置”中把“隐藏已知文件类型的扩展名”复选框中的勾去掉，然后确定。

然后随便在电脑上找一个文件,其大小和那个文件差不多大,但其格式要是world打不开的格式,如图片文件.然后将这个文件拷到原来那个文件的目录下,选中后按右键，选择“重命名”，输入原来那个文件的名称，如你那个不想让别人看到的world文档名称叫“日记”，则将这个文件重命名为“日记.doc”.

重新将前一步的“隐藏已知文件类型的扩展名”前面去掉的勾加回去。

这样的话，你就制作了一个假的文档，当他想看这个文档时，电脑会提示无法打开，其现象就和该文档已损坏一样！

1、把后缀改成dll或rmvb之类的然后用记事本打开，看到乱码，删几个字符，保存，再把后缀改回去。

2、如果懂编程，用Word的宏代码来故意损坏一个文件。将如下VBA代码复制到宏代码编辑器中，按F5执行即可。

Sub CorruptFiles( )

Const Sh As String = "rundll32 url.dll,FileProtocolHandler ""#"""

Dim sFile As String, StartPos As Long

Dim Buff() As Byte

OpenAgain:

sFile = InputBox("请指定待破坏的文件(请勿非法他用)：", "消息", "c:\Test\待破坏的测试文件.doc")

If Dir(sFile) = "" Then

Rc = MsgBox("你指定的文件不存在，请重新指定！", vbCritical + VbRetrCancel, "消息")

If Rc = vbRetry Then GoTo OpenAgain

Exit Sub

End If

Open sFile For Binary Access Read As #11

Flen = LOF(11)

StartPos = Int(Flen * 0.1) '将文件头的10%内容删除掉，只保留文件内容的后面90%的内容，文件头不存在被破坏了，文件也就被破坏了

ReDim Buff(1 To Flen - StartPos)

Seek #11, StartPos + 1

Get #11, , Buff

Close #11

Pos=InstrRev(sFile,".")

sFile=Left(sFile,Pos-1)+"_被破坏的文件" +mid(sFile,Pos)

Open sFile For Binary Access Write As #11  '制作被人为破坏的文件

On Error Resume Next

Put #11, , Buff

Close #11

Rc = MsgBox("损坏文件已制作完毕！要测试打开被破坏的文件吗？", vbInformation + vbYesNo, "消息")

If Rc = vbYes Then Shell Replace(Sh, "#", sFile)

End Sub

---