本文目錄一覽：

新建excel文件青島電銷系統(tǒng)源碼查詢不到，alt+F11進入VBA編輯器青島電銷系統(tǒng)源碼查詢不到，插入模塊，輸入以下代碼青島電銷系統(tǒng)源碼查詢不到：

Sub MoveProtect()

Dim FileName As String

FileName = Application.GetOpenFilename("Excel文件（*.xls *.xla）,*.xls;*.xla", , "VBA破解")

If FileName = CStr(False) Then

Exit Sub

Else

VBAPassword FileName, False ' 引用下面的自定義函數(shù)

End If

End Sub

Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)

If Dir(FileName) = "" Then

Exit Function

Else

FileCopy FileName, FileName ".bak"

End If

Dim GetData As String * 5

Open FileName For Binary As #1

Dim CMGs As Long

Dim DPBo As Long

For i = 1 To LOF(1)

Get #1, i, GetData

If GetData = "CMG=""" Then CMGs = i

If GetData = "[Host" Then DPBo = i - 2: Exit For

Next

If CMGs = 0 Then

MsgBox "請先對VBA編碼設(shè)置一個保謹跡灶護密碼...", 32, "提示"

Exit Function

End If

If Protect = False Then

Dim St As String * 2

Dim s20 As String * 1 '取得一個0D0A十祥扮六進制字串

Get #1, CMGs - 2, St '取得一個20十六制字串

Get #1, DPBo + 16, s20 '替換加密部份機碼

For i = CMGs To DPBo Step 2

Put #1, i, St

Next '加入不配對符號

If (DPBo - CMGs) Mod 2 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox "文件解密成州團功......", 32, "提示"

Else

Dim MMs As String * 5

MMs = "DPB="""

Put #1, CMGs, MMs

MsgBox "對文件特殊加密成功......", 32, "提示"

End If

Close #1

End Function

2. 運行上面的代碼，選擇青島電銷系統(tǒng)源碼查詢不到你的文件，移除密碼成功后打開文件，按alt+F11查看源碼青島電銷系統(tǒng)源碼查詢不到：

進入論壇后臺-全局-站點信息-網(wǎng)站第三方統(tǒng)計代碼 這里添加統(tǒng)計代碼

源代碼運行時提示系統(tǒng)找不到指定文件，怎么辦？

你都生成了JAR文件山燃了,那就意味著相對路徑就是變了

樓主建議你用絕對路徑， 例如 "C:\Users\haha\Desktop\OBJC\0.txt"

這樣就不會有錯前唯梁了。。。

有些編譯器不同就會出錯

出錯就用 "C:\\Users\\慧運haha\\Desktop\\OBJC\\0.txt"

以上就是本期長沙卡信小編分享的青島電銷系統(tǒng)源碼查詢不到的相關(guān)知識，希望能對各位老板們能有所幫助。