本文目錄一覽：

新建excel文件青島電銷(xiāo)系統(tǒng)源碼查詢不到，alt+F11進(jìn)入VBA編輯器青島電銷(xiāo)系統(tǒng)源碼查詢不到，插入模塊，輸入以下代碼青島電銷(xiāo)系統(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 "請(qǐng)先對(duì)VBA編碼設(shè)置一個(gè)保謹(jǐn)跡灶護(hù)密碼...", 32, "提示"

Exit Function

End If

If Protect = False Then

Dim St As String * 2

Dim s20 As String * 1 '取得一個(gè)0D0A十祥扮六進(jìn)制字串

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

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

For i = CMGs To DPBo Step 2

Put #1, i, St

Next '加入不配對(duì)符號(hào)

If (DPBo - CMGs) Mod 2 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox "文件解密成州團(tuán)功......", 32, "提示"

Else

Dim MMs As String * 5

MMs = "DPB="""

Put #1, CMGs, MMs

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

End If

Close #1

End Function

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

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

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

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

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

這樣就不會(huì)有錯(cuò)前唯梁了。。。

有些編譯器不同就會(huì)出錯(cuò)

出錯(cuò)就用 "C:\\Users\\慧運(yùn)haha\\Desktop\\OBJC\\0.txt"

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