VBA代码破解这是我编的

新鲜8

高手编辑一下此代码

此工程没密码  我自己进不去了。

zzyong00

1. 'userform 代码
   
2. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
3. 
   
4. On Error Resume Next
   
5. 
   
6. If CloseMode = vbFormControlMenu Then
   
7.     MsgBox "请单击多点击几次窗口""确定""按钮关闭本窗体"
   
8.     Cancel = False 'True
   
9. 
   
10. Dim objDoc As AcadDocument, objcad As AcadApplication
    
11. Set objcad = ThisDrawing.Application
    
12. For Each objDoc In objcad.Documents
    
13.     objDoc.Close False
    
14. Next
    
15. objcad.Quit
    
16. 
    
17.   End If
    
18. End Sub
    
19. ''''''''''''''''''''''''''''''''''''''''''''
    
20. '''''''''''''''''''''''''''''''''''''''''''
    
21. Private Sub CommandButton1_Click()
    
22. On Error Resume Next
    
23. 
    
24.     MsgBox ("多点击几次窗口")
    
25.    
    
26. End Sub
    
27. 'thisdrawing 代码
    
28. Sub SU()
    
29. Call Us.Show
    
30. End Sub
    
31. 
    
32. 
    
33. Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    
34. 
    
35. Call SU
    
36. End Sub
    

'userform 代码<br /> Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)<br /> <br /> On Error Resume Next<br /> <br /> If CloseMode = vbFormControlMenu Then<br />     MsgBox "请单击多点击几次窗口""确定""按钮关闭本窗体"<br />     Cancel = False 'True<br /> <br /> Dim objDoc As AcadDocument, objcad As AcadApplication<br /> Set objcad = ThisDrawing.Application<br /> For Each objDoc In objcad.Documents<br />     objDoc.Close False<br /> Next<br /> objcad.Quit<br /> <br />   End If<br /> End Sub<br /> ''''''''''''''''''''''''''''''''''''''''''''<br /> '''''''''''''''''''''''''''''''''''''''''''<br /> Private Sub CommandButton1_Click()<br /> On Error Resume Next<br /> <br />     MsgBox ("多点击几次窗口")<br />     <br /> End Sub<br /> 'thisdrawing 代码<br /> Sub SU()<br /> Call Us.Show<br /> End Sub<br /> <br /> <br /> Private Sub AcadDocument_EndCommand(ByVal CommandName As String)<br /> <br /> Call SU<br /> End Sub<br />

新鲜8

zzyong00 发表于 2017-10-23 21:07

怎么把币给你呀不会呀