[已解决]继续请求修改代码

zjdh

1.  不输入密码，不计数
2.  取消则退出
3.  3次密码，文件自毁
MIMA2.rar (6.41 KB, 下载次数: 2)

2013-12-28 18:09 上传

点击文件名下载附件

hwc2ycy

武林长风 发表于 2013-12-28 17:54
麻烦您给修改一下。

你把原来的代码全删除了？
KILLME你原来模块里都有的。
贴给你的什么代码，你就改对应的就成了，不需要全删除。

hwc2ycy

Thisworkbook里的完整代码。

1. Dim blCancle
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3.     On Error Resume Next
   
4.     If blCancle Then
   
5.         Exit Sub
   
6.     End If
   
7. 
   
8.     Application.DisplayAlerts = False
   
9.     For Each st In ThisWorkbook.Sheets
   
10.         If st.Name <> "Sheet3" Then
    
11.             st.Visible = xlSheetVeryHidden
    
12.         End If
    
13.     Next
    
14.     ThisWorkbook.Save
    
15.     Application.DisplayAlerts = True
    
16. End Sub
    
17. 
    
18. Private Sub Workbook_Open()
    
19.     On Error Resume Next
    
20.     Static i As Byte
    
21.     Dim myrow As Integer
    
22.     Application.Visible = False
    
23.     Do
    
24.         XX = Application.InputBox("输入密码", "提示", Type:=1)
    
25.         If XX = False Then
    
26.         Else
    
27.             myrow = WorksheetFunction.Match(XX, Sheets("数据").Range("a:a"), 0)
    
28.             If myrow > 0 Then
    
29.                 ThisWorkbook.Sheets("查询").Visible = True
    
30.                 Application.Visible = True
    
31.                 Sheets("数据").Cells(myrow, 1).Resize(1, 6).Copy Sheets("查询").Cells(13, 3)
    
32.                 Sheets(1).Select
    
33.                 Exit Sub
    
34.             End If
    
35.             i = i + 1
    
36.             If i < 3 Then MsgBox "卡号错误，请重新输入，还有" & 3 - i & "次机会"
    
37.         End If
    
38. 
    
39.     Loop Until i = 3
    
40.     Call KILLME
    
41. End Sub
    
42. 
    
43. Public Sub KILLME()
    
44.     blCancle = True
    
45.     Application.DisplayAlerts = False
    
46.     ActiveWorkbook.ChangeFileAccess xlReadOnly
    
47.     Kill ActiveWorkbook.FullName
    
48.     ThisWorkbook.Close False
    
49. End Sub

复制代码

武林长风

hwc2ycy 发表于 2013-12-28 18:17
Thisworkbook里的完整代码。

又发现了一个问题：出现下面的输入密码提示时，若想取消或关闭都不行，必须输入——确定，怎么解决这个问题，即不输入或取消这个提示就没了？