excelvba可以加密吗

㈠ excel VBA 密码设置问题

Excel中VBA设置密码的步骤如下：

1.右键点击任何工作表，选择VBAProject属性；

㈡ 怎么给excel vba编辑器加密

不用代码
VBA中---工具---VBAproject属性----保护---查看时锁定工程（选中）---设好密码---保存退出---再进就会如你所愿了

㈢ 工作表保护了,vba直接输入密码可以吗

1. VBA密码破解

有个笨办法，不知道是否有用。 制作一个无用的宏例如： sub aa() dim i as long i=1 end sub 然后通过菜单 工具－－宏－－选项，给宏aa指定快捷键，例如指定为CTRL+P，可以间接实现。

2. vba 破解

如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开（关掉所有程序，为了速度）：

新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：

Sub crack()Dim i As LongDim FileName As Stringi = 0FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))Application.ScreenUpdating = Falseline2: On Error GoTo line1Workbooks.Open FileName, , True, , iMsgBox "Password is " & iExit Subline1: i = i + 1Resume line2Application.ScreenUpdating = TrueEnd Sub然后在此界面直接按F5运行此宏，选择文件，等啊等（看密码长度了）

3. vba代码密码可以破解吗

不用给VBA代码就可以保护你的VBA代码啦~第一种：在VBE窗口中单击菜单“工具”->“VBAProject属性”->“保护”->勾选“查看时锁定工程”输入密码->确认密码。保存关闭后重新打开就行了。还有一种就是“工程不可查看”，先试一下第一种，不行再HI我。

4. vba代码加密破解

1、先对excel档进行一般的vbaproject”工程密码保护"。

2、打开要保护的档，选择∶工具--->保护--->保护并共用活页簿--->以追踪修订方式共用-->输入密码-->保存档。

完成后，当你打开“vbaproject”工程属性时，就将会提示∶“工程不可看"

5. vba程序加密怎么破解

打开一个 Excel 的程序实例（无论待破解的是什么文档一律打开 Excel 实例），按 Alt + F11 打开 VBE，左侧“工程资源管理器”右键新建一个模块，复制下列代码粘贴进去后定位至过程 VBA_Password_remove 按 F5 运行选择要破解的包含工程密码的文件。

6. vba破解版

按Alt+F11进入VBA编辑器，菜单“工具”→“VBAProject属性”，为工程设置上密码即可。

7. vba代码助手破解方法

因为在修改系统文件，所以安装时要以“管理员”身份安装才行。将这个压缩包解压到一个目录中，进入目录，在安装文件上点右键——以管理员方式运行。

8. vba的密码怎么破

1、首先，如果文件格式是Excel 2010版（.xslm），需要先打开Excel文件，另存为2003版格式（.xls）。

2、然后用普通的文本编辑器（这里用的是NotePad++）打开这个文件，注意文件类型选“所有文件”。

3、然后在文件里查找“DPB"，把它改成“DPx”。注意大小写。

4、保存修改。然后用Excel重新打开这个文件。你会遇到一些错误，忽略它们。

5、然后进入Excel的“开发工具”面板，选择“Visual Basic”。又会有一系列错误，忽略它们，知道VBA项目打开。

6、这时候已经可以查看VBA代码了。如果想改变甚至去除原来的密码，继续看。从VBA编辑器的“工具”菜单，选择“VBA工程属性...“，然后转到”保护“面板。

7、在密码框中输入新密码。保存VBA文件和Excel文件，关闭Excel。重新启动Excel并重新打开这个文件，然后进入"开发工具"->"Visual Basic"，会提示输入密码。输入新设置的密码。

8、然后回到VBA编辑器的“工具”->"VBA工程属性"->“保护”，去掉密码以及保护选项前面的标记。最后保存文件即可

9. vba密码怎么破解

如果 是工作表 保护了 忘记密码了 那么你自己搜索一下 可以用vba 来破解这个 工作表保护密码……如果 是工作簿 打开的保护密码 如果 密码位数太长 就没希望了 估计你需要 花银子才能找到帮你破解的了……现在免费破解的几乎没有能用的软件了及可行的快速方式了 ……

10. VBA破解

首先可以确定VBA是自带加密工程的，以设置密码的方式，但是如果是商业性或者高标准的加密，VBA的加密基本不能满足需要，VBA的加密只能用于预防使用者非恶意的修改，不能称为版权和知识保护的工具。

以下是VBA加密的方法：

打开VBA界面

选择左侧VBAProject(文件名.xls),也就是所有表格最上面的那个

右键-VBAProject属性-选择“保护”标签-勾选“查看时锁定工程”并输入密码-确定

自此，VBA的密码就设定好了，单纯打开Excel，将不能直接查看VBA代码，会提示输入密码。但是很遗憾的时，有很多工具可以直接绕过密码，或者重置密码，连破解密码都不需要，所以如果要用于商业性加密，可以考虑其他软件，或者使用专业数据库代替XLS文件。

㈣ excel2010vba加密的方法

在 Excel 中除了可以利用设置外还可以利用VBA编程进行加密，利用VBA编程可以令加密更加严谨，下面是由我分享的excel2010 vba加密的 方法 ，希望对你有用。

利用VBA加密步骤1：对想发布自己的Excel VBA的开发者来说，Excel VBA本身不提供VBA代码的加密，封装。目前比较最可靠的Excel VBA代码加密的方法，就是把VBA代码编译成DLL(动态链接库文件)，在VBA中调用，从而实现VBA代码的加密，封装，方便和Excel文件整合发布出去。DLL文件基本没法被破解，除此之外其他的VBA加密方法，都可以被轻易破解。用户只需要你的Excel文件，和这个dll文件就够了，不必安装其他任何程序。

利用VBA加密步骤2：编译成DLL文件其实很简单。机子上安装Visual Basic 6.0就可以编译成dll文件了，Visual Basic .Net反倒有点麻烦。Visual Basic通过OLE(对象链接引擎)技术调用Excel以及其中的对象。

利用VBA加密步骤3：总的来说，VBA代码只要做一些简单修改就可以了。主要是对Excel对象的引用，不然VB不能识别vba代码中的对象。比如如下的VBA代码

windows(workbook1).activate

range("L50")=1

直接放进VB中编译成Dll就会有问题，因为VB不能直接识别range对象。

需要添加几行简单的代码来告诉vb怎么引用excel中的这些对象：

dim xlapp as excel.applicatiion

dim xlbook as excel.workbook

dim xlsheet as excel.worksheet

set xlapp=getobject(,"excel.application)

set xlbook=getobject(xxx)

set xlsheet=xlbook.worksheets(1)

利用VBA加密步骤4：然后就照搬你原有的vba代码,但是前面加上对象引用：

xlsheet.range("L50")=1

利用VBA加密步骤5：对VBA代码做这样修改，在VB中调试通过，就可以成功的把多个sub子程序全部编译封装在一个单独的DLL文件了。以后直接在VBA中引用这个DLL文件中的各个sub子程序。原来大段的VBA代码全部被封装在DLL文件中，对用户不可见。

利用VBA加密步骤6：开发者还可以在程序运行前显示软件的版权信息，设置密码。因为这些也封装在DLL文件中，所以用户没法破解。

1、用数据有效性定义数据长度。

用鼠标选定你要输入的数据范围，点"数据"->"有效性"->"设置"，"有效性条件"设成"允许""文本长度""等于""5"(具体条件可根据你的需要改变)。

还可以定义一些提示信息、出错警告信息和是否打开中文输入法等，定义好后点"确定"。

2、用条件格式避免重复。

选定A列，点"格式"->"条件格式"，将条件设成“公式=COUNTIF($A:$A,$A1)>1”，点"格式"->"字体"->"颜色"，选定红色后点两次"确定"。

这样设定好后你输入数据如果长度不对会有提示，如果数据重复字体将会变成红色。

㈤ EXCE如何用VBA代码加入启动时对所有工作表加密,并设指定密码

通过代码对excel代码进行加密即可：

1、打开您需要破解保护密码的Excel文件；

2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；

3、停止录制(这样得到一个空宏)；

4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；

5、删除窗口中的所有字符(只有几个),替换为下面的内容；

Sub添加密码()
DimxAsInteger
Forx=1ToSheets.Count
Sheets(x).Protect"123"
Nextx
hisWorkbook.Protect"123"

㈥ Excel 怎样给VBA编辑器加密

http://jingyan..com/article/e52e3615799cc440c60c51fe.html

㈦ 如何用vba对excel表有内容的加密空单元格可以使用

用vba可以实现
依次打开：工具-宏-visual bisic编辑器，打开vba编辑器，在左侧工程中双击你要保护的工作表，然后将下列代码粘贴到编辑窗口中：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell < Then
If InputBox(请输入修改密码：, 密码) = abc ThenEndElseMsgBox 密码错误
ActiveWorkbook.Close savechanges:=FalseEnd IfEnd IfEnd Sub以后只要单元格中已经存在数据，你选择了该单元格就会要求输入密码，如果输入密码错误就会退出该工作簿，并且不进行保存。所以你要随时保存文件^-^
将上面的abc改成你自己的密码就可以了。
不过这个密码没有进行加密（别人很容易看到你输入的密码），如果你会vba你可以自己新建一个窗口，用文本框输入，将文本框的“passwordchar”属性设置成“*”号，就更好了，然后用if判断改文本框的text属性就可以了。
把上面的代码改成：

㈧ 如何给EXCEL里的宏加密码

1、首先打开需要设置加密码的表格，进入到EXCEL表格里面之后，打开VBE编辑器。

㈨ Excel 怎么给VBA编辑器加设密码和取消密码

你好，最标准的方法就是直接输入密码，然后解密，保存。
如果有宏代码的话：
1、录制宏，随便点下鼠标，然后停止。
2、打开
宏编辑器
，将你的VBA代码完全覆盖编辑器里刚录制的那些代码。
3、打开需要去除保护的excel，按ALT+F8运行宏。大概10多秒吧，就好了。

㈩ 求教怎么用WINHEX给EXCEL VBA宏加密

用WINHEX给EXCEL VBA宏加密的方法：
一、为VBA工程设置密码
限制别人查看VBA源代码的一个简单办法就是设置VBA工程密码或设置工程不可查看。方法如下：
1、按Alt+F11，在VBE窗口在，单击“工具—VBAproject属性”，打开“VBAproject属性”对话框。
2、单击“VBAproject属性”对话框中的“保护”选项卡。如图1所示，选中“查看时锁定工程”复选框。在“密码”框中输入保护密码，在“确认密码”框中再输入一次密码，然后单击“确定”，关闭“VBAproject属性”对话框。
3、保存并关闭工作簿。
当你再打开该工作簿后，打开VBE窗口时，就不再显示VBA的窗体、模块等对象，看不到VBA源代码了。
★提示：这种密码保护很容易破解。★

二、设置工程不可查看
限制别人查看VBA源代码的方法就是设置“工程不可查看”。方法如下：
共享级锁定：先对Excel文件的“VBAProject工程”进行密码保护（参考“为VBA工程设置密码”）。再打开要保护的文件，单击“工具_保护_保护并共享工作簿_以追踪修订方式共享”，如图2所示，输入保护密码再保存文件。当你得新打开“VBAProject”工程属性时，就将会提示：“工程不可看！”

破坏型锁定：用16进制编辑工具（如WinHex等）打开Excel文件，查找定位以下地方： ID="{00000000-0000-0000-0000-000000000000}"（注：实际显示不会全部为0），此时，你只要将其中的字节随便修改一下即可。
★提示：在修改前最好做好你的文档备份。当然这种方法也可破解的，因为加密总是相对。★

三、防止强制中断方式查看VBA代码
有时，我们可以通过运行程序，然后在运行的过程中强制按“Ctrl+Break”强制中断程序运行，进VBE编辑器查看源码。为此，我们可以在工作簿的open事件中加入以下语句来屏蔽“Ctrl+Break”组合键。
Application.EnableCancelKey = xlDisabled
如果要恢复“Ctrl+Break”组合键，则用下面的语句。
Application.EnableCancelKey = xlInterrupt

四、禁用宏则关闭Excel文件
当打开含有宏的文件时，如果“禁用宏”并打开文件后，所有编辑的VBA程序将失效。如何当用户打开Excel文件并禁用宏时，让文件自动关闭呢？
我们可以通过调用Excel4.0版（Excel的一个老版本）的宏命令来解决这个问题。因为“禁用宏”功能无法禁用4.0版本的宏。当您设置完成，再打开文件并点击禁用宏时，系统就会弹如下图所示提示信息，单击“确定”后文件就会自动关闭。
禁用宏后的提示信息
设置步骤和使用方法：
（1）打开要设置的文件，在VBE编辑器中添加一个模块。写入以下代码：
Function NoRunMacro () ’A3单元格中的字符
End Function
（2）在任一个工作表标签上单元格右键，执行“插入”命令打开如下图所示对话框，在常用选项卡中选取“MS Excel4.0宏表”项，然后单击“确定”按钮，在当前工作簿中就会新建一个默认名Macro1的“宏表”，更改表名为“宏表1”
在宏表的以下单元格中输入公式：
（3）逐个选取工作簿中其他工作表，然后执行【插入】/【名称】/【定义】命令，打开【定义名称】对话框。在“在当前工作簿中的名称”框中输入：工作表名称+Auto_Activate。如下图所示在Sheet1工作表中打开【定义名称】对话框，定义的名称就为：Sheet1!Auto_Activate。
然后在引用位置文本框中输入：=宏表1!$A$2。

★提示：对于一个工作表数量较多的工作表逐个设置会很麻烦。所以这时可以只需为其中一个设置名称，但要保障“当打开工作簿时，必需是设置名称的工作表处于选取状态”★

五、限制工作簿的使用次数，超过次数就自我删除
限制工作簿的使用次数，超过次数就自我删除，也不失为保护作品的一种好方法。但这种方法需要修改注册表。
有关程序的代码如下：
Private Sub Workbook_Open()
Dim counter As Long, term As Long, chk
chk = GetSetting("hhh", "budget", "使用次数", "")
If chk = "" Then
term = 50 '限制使用50次
MsgBox "本工作簿只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", term
Else
counter = Val(chk) - 1
MsgBox "你还能使用" & counter & "次,请及时注册!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", counter
If counter <= 0 Then
DeleteSetting "hhh", "budget", "使用次数"
killme
End If
End If
End Sub

Public Sub killme()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub
将上述程序复制到工作簿的ThisWorkbook对象模块中，保存文件即可。