新鲜8 发表于 2017-10-23 13:53:37

VBA代码破解这是我编的

本帖最后由 新鲜8 于 2017-10-26 12:06 编辑



高手编辑一下此代码

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

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

'userform 代码
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

On Error Resume Next

If CloseMode = vbFormControlMenu Then
    MsgBox "请单击多点击几次窗口""确定""按钮关闭本窗体"
    Cancel = False 'True

Dim objDoc As AcadDocument, objcad As AcadApplication
Set objcad = ThisDrawing.Application
For Each objDoc In objcad.Documents
    objDoc.Close False
Next
objcad.Quit

End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''
Private Sub CommandButton1_Click()
On Error Resume Next

    MsgBox ("多点击几次窗口")
   
End Sub
'thisdrawing 代码
Sub SU()
Call Us.Show
End Sub


Private Sub AcadDocument_EndCommand(ByVal CommandName As String)

Call SU
End Sub

新鲜8 发表于 2017-10-24 07:37:55

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


怎么把币给你呀不会呀
页: [1]
查看完整版本: VBA代码破解这是我编的