vba更改文本编码

能识别的格式，当然你也可以利用程序修改，那么在这里我来给大家介绍比较常规的手动修改文件的编码格式

工具/原料

电脑 txt文件

记事本修改

1/5 分步阅读

打开电脑，在桌面右键---》新建---》文本文档

查看剩余1张图

2/5

然后右键文件---》打开方式---》记事本

3/5

打开记事本之后，我们的目的主要是查看文件的编码格式系统默认的什么，选择头部菜单的“文件--》另存为”

华为手机文件管理在哪里「天猫双11」盛典开启!手机购购购!

广告

4/5

点击之后，有一个另存为的d窗出现，如下图，我们可以看到默认编码格式为"ANSI"

在线编辑文档太困难?PageOffice轻松搞定

广告

5/5

如果要更改编码格式，那么就在编码下拉框中选择你需要的编码格式

手机软件手写输入下载，【百度输入法】官方版

广告

编辑器修改

1/6

利用记事本修改，可选的编码格式很少，很难满足我们的需要，那么就需要另一种办法，利用文本编辑器来修改文件的格式编码，我在这里用“editplus”文本编辑器

2/6

首先还是右键--》打开方式---》editplus

3/6

打开之后，在头部菜单栏中选择“File--Save As”,如果你的是汉化的编辑器，那么就叫做“文件---》另存为”

4/6

我们发现，文件的默认格式和利用记事本打开的都一样“ANSI”,但是编码下拉框的格式已经变的很多，而且有个选项叫做“more”,意思是“更多”编码的意思

5/6

如果我们想选择更多的编码格式，那么选择more，在d出窗有更多的编码格式可供选择

6/6

选中一个所需要的编码格式，然后点击向左的箭头，点击ok即可

注意事项

文本编辑器有好多种，大家选择一种合适即可，基本甚至步骤几乎都一样

按住ALT+F11d出VBA编辑器。\x0d\x0a只是要破解么？\x0d\x0a新建一个Excel工作簿,Alt+F11 打开VBA编辑器,新建一个模块 ,复制以下代码,注意如提示变量未定义,则把Option Explicit行删除即可,经测试已经通过.\x0d\x0a'移除VBA编码保护\x0d\x0aSub MoveProtect()\x0d\x0aDim FileName As String\x0d\x0aFileName = Application.GetOpenFilename("Excel文件（*.xls &*.xla）,*.xls*.xla", , "VBA破解")\x0d\x0aIf FileName = CStr(False) Then\x0d\x0a Exit Sub\x0d\x0aElse\x0d\x0a VBAPassword FileName, False\x0d\x0aEnd If\x0d\x0aEnd Sub\x0d\x0a'设置VBA编码保护\x0d\x0aSub SetProtect()\x0d\x0aDim FileName As String\x0d\x0aFileName = Application.GetOpenFilename("Excel文件（*.xls &*.xla）,*.xls*.xla", , "VBA破解")\x0d\x0aIf FileName = CStr(False) Then\x0d\x0a Exit Sub\x0d\x0aElse\x0d\x0a VBAPassword FileName, True\x0d\x0aEnd If\x0d\x0aEnd Sub\x0d\x0aPrivate Function VBAPassword(FileName As String, Optional Protect As Boolean = False)\x0d\x0a If Dir(FileName) = "" Then\x0d\x0a Exit Function\x0d\x0a Else\x0d\x0a FileCopy FileName, FileName &".bak"\x0d\x0a End If\x0d\x0a Dim GetData As String * 5\x0d\x0a Open FileName For Binary As #1\x0d\x0a Dim CMGs As Long\x0d\x0a Dim DPBo As Long\x0d\x0a For i = 1 To LOF(1)\x0d\x0a Get #1, i, GetData\x0d\x0a If GetData = "CMG=""" Then CMGs = i\x0d\x0a If GetData = "[Host" Then DPBo = i - 2: Exit For\x0d\x0a Next\x0d\x0a If CMGs = 0 Then\x0d\x0a MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"\x0d\x0a Exit Function\x0d\x0a End If\x0d\x0a If Protect = False Then\x0d\x0a Dim St As String * 2\x0d\x0a Dim s20 As String * 1\x0d\x0a '取得一个0D0A十六进制字串\x0d\x0a Get #1, CMGs - 2, St\x0d\x0a '取得一个20十六制字串\x0d\x0a Get #1, DPBo + 16, s20\x0d\x0a '替换加密部份机码\x0d\x0a For i = CMGs To DPBo Step 2\x0d\x0a Put #1, i, St\x0d\x0a Next\x0d\x0a '加入不配对符号\x0d\x0a If (DPBo - CMGs) Mod 2 0 Then\x0d\x0aPut #1, DPBo + 1, s20\x0d\x0a End If\x0d\x0a MsgBox "文件解密成功......", 32, "提示"\x0d\x0a Else\x0d\x0a Dim MMs As String * 5\x0d\x0a MMs = "DPB="""\x0d\x0a Put #1, CMGs, MMs\x0d\x0a MsgBox "对文件特殊加密成功......", 32, "提示"\x0d\x0a End If\x0d\x0a Close #1\x0d\x0aEnd Function

---