[已解决]VBA代码请教

youfang

输入3次密码不正确就删除此工作簿，请看工作簿打开事件。将原来的关闭工作簿改为删除掉此工作簿
Book1.rar (5.48 KB, 下载次数: 3)

2013-7-22 23:00 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2013-7-22 23:32

1. Sub test()
   
2.     Dim x, i
   
3.    
   
4.     Do While i < 3
   
5.         x = InputBox("密码：")
   
6.         If x = "abc" Then
   
7.             Exit Do
   
8.         Else
   
9.             i = i + 1
   
10.         End If
    
11.     Loop
    
12. 
    
13.     If i = 3 Then
    
14.         ActiveWorkbook.ChangeFileAccess xlReadOnly
    
15.         Kill ActiveWorkbook.FullName
    
16.         Application.Quit
    
17.     End If
    
18. End Sub
    

复制代码

3.rar (7.52 KB, 下载次数: 6)

2013-7-22 23:30 上传

点击文件名下载附件


http://www.excelpx.com/thread-23003-1-1.html
很少这么做，看以前的帖做的，不知合适吗

跳转到最佳答案楼层

sliang28

附件传错了吧!没有代码啊!
感觉逻辑上有点问题吧,代码运行时怎么能删除thisworkbook呢？

爱疯

1. Sub test()
   
2.     Dim x, i
   
3.    
   
4.     Do While i < 3
   
5.         x = InputBox("密码：")
   
6.         If x = "abc" Then
   
7.             Exit Do
   
8.         Else
   
9.             i = i + 1
   
10.         End If
    
11.     Loop
    
12. 
    
13.     If i = 3 Then
    
14.         ActiveWorkbook.ChangeFileAccess xlReadOnly
    
15.         Kill ActiveWorkbook.FullName
    
16.         Application.Quit
    
17.     End If
    
18. End Sub
    

复制代码

3.rar (7.52 KB, 下载次数: 6)

2013-7-22 23:30 上传

点击文件名下载附件


http://www.excelpx.com/thread-23003-1-1.html
很少这么做，看以前的帖做的，不知合适吗

BAIXINGR

这论坛里边已经有很多楼上的应该可以满足楼主
你要是共享的话你没备份就麻烦了