|
这样也被认作病毒。还有掉用DLL也总是问要不要阻止。别人怎么敢用你的程序?有什么方法不让360捣乱?
'Sub 没有工程密码就自杀代码()
'
'On Error Resume Next
'If ThisWorkbook.VBProject.Protection = 0 Then
'
'Application.DisplayAlerts = False
' With ThisWorkbook
' For i = 1 To .VBProject.VBComponents.Count
' With .VBProject.VBComponents(i).CodeModule
' .DeleteLines 1, .CountOfLines
' End With
' Next
' ActiveWorkbook.Unprotect Password:="123456"
' Sheets("导出资产负债表XML").Delete
' Sheets("导出利润表XML").Delete
' ActiveWorkbook.Protect Password:="123456", Structure:=True, Windows:=False
' .Save
' End With
'
' ThisWorkbook.Close True
'Application.DisplayAlerts = True
'End If
'
'End Sub
|
|