vba代码加密单元格

① 给Excel2007 VBA代码加密的方法

方法/步骤
1、打开Excel2007启用宏的Excel文件
2、同时按下ALT+F11键，打开VBA编辑器窗口。
3、查看对应的代码窗口，左侧VBA工程
PROJECT属性框中对应相应的SHEET表或者模块。
4、点击对应的SHEET表或者模块名称，鼠标右键放在其上，选择VBAPROJECT属性。
5、在弹出的VBAPROJECT工程属性窗口中-保护选项卡-选中查看时锁定工程，“查看工程属性的密码”内输入自己要设定的密码。
6、点击确认，然后点击文件工具栏内的保存按钮。
7、下次打开Excel文件时再同时按下ALT+F11进入VBA代码编辑器，鼠标左键双击左侧VBA工程中的VBAPROJECT文件名称，弹出VBAPROJECT密码输入窗口，输入密码才可进入，否则无法查看工程密码，呵呵。

② excel单元格值由vba代码得出的结果，如何密码保护

可以再打开工作簿的事件里面设置可编辑区域，让红色了一块设置为不可编辑。

PrivateSubWorkbook_Open()
Worksheets(1).ScrollArea="a4:f10"'设置滚动区域的大小，效果就是只有在滚动区域的单元格才可以被编辑，
'比如这个例子就是只有第一张工作表的a4：f10可以编辑。
EndSub

③ excel中用vba实现按条件锁定单元格

也许是因为这里有个错误（倒数第二句锁定表的代码DrawingObjects:=ture,
），代码根本就没运行。
要不要来个简单的，从另外的思路来满足你的需求：当达到条件时，你选取不了要锁定的单元格，变相锁定了这个单元格，不改变对整个表的其他操作，方便多了。只有一句代码。试试吧！
Private
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
If
Target.Column
=
3
And
Target(1).Offset(0,
-1)
=
"按合同总额付款"
Then
Target.Offset(0,
1).Select
End
Sub

④ 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”，点"格式"->"字体"->"颜色"，选定红色后点两次"确定"。

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

⑤ 如何在excel工作表中的单元格隐藏编辑公式并加密

Excel在工作表中隐藏公式和VBA代码保护
Excel在工作表中隐藏公式
在Excel中辛辛苦苦编制的计算公式，通常不希望使用者查看和修改。怎么办呢？利用Excel锁定、隐藏和保护工作表的功能，把公式隐藏和锁定起来。
1、选中整个工作表数据区域，执行“格式→单元格”命令，打开“单元格格式”对话框。
2、切换到“保护”标签，清除“锁定”选项前面复选框中的“∨” 号，确定返回。
3、执行“编辑定位”命令，打开“定位”对话框，单击其中的“定位条件”按钮，打开“定位条件”对话框。
4、选中其中的“公式”选项，确定返回，一次性选定工作表中所有包含公式的单元格。……选中你要隐藏公式的单元格(如果不在连续范围内,可以按Ctrl键选中它们)。
5、再次打开“单元格格式”对话框，切换到“保护”标签下，在“锁定”和“隐藏”选项前面复选框中加上“∨” 号，确定返回。
6、执行“工具→保护→保护工作表”命令，打开“保护工作表”对话框，输入密码，确定，再确认输入一次密码，确定返回即可。
注意：如果自己需要查看或修改公式，请先执行“工具→保护→撤销工作表保护”命令，解除对工作表的保护。
选中整张表-设置单元格格式-保护-去掉隐藏（锁定）的勾-确定-编辑-定位-定位条件-选公式-确定-右键一格式单元格-设置单元格格式-勾选隐藏（锁定）-确定-工具-保护-工作表-确定即可。

Excel VBA代码加密保护：工具-VBAProject属性-保护：勾选查看时锁定工程，密码，确定；保存

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

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

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

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

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

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

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

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

⑦ 怎么用VBA写一段写文件在某到某一列完成自动加密代码如需要更改需要解密，或怎么用vba代码在没有锁

你看这样行不行（保护工作表状态下解锁B列输入数据）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pass
If Target.Columns.Count > 2 Then '判断选取的是否为B列，如果不是则维持原来的选取动作，即ActiveCell.Select
ActiveCell.Select
Else
If Target.Column = 2 And Columns("B:B").Locked = True Then '判断如果是B列并且单元格已锁定，执行下面的语句。这里判断Columns("B:B").Locked = True的目的是防止选取B列单元格时不停的弹出输入密码提示框
pass = InputBox("欢迎访问，请输入第B列保护密码", "录入提示") '把InputBox对话框中输入的密码赋予变量pass
If pass = 123 Then '如果输入的解除保护密码正确，则运行解除工作表保护(ActiveSheet.Unprotect Password:=123456)和取消B列锁定（Columns("B:B").Locked = False）的语句，最后再保护工作表（Sheets("第1节").Protect Password:=123456
ActiveSheet.Unprotect Password:=123456
Columns("B:B").Locked = False
Sheet8.Protect Password:=123456
MsgBox "密码正确，请输入数据"
Else
MsgBox "密码错误！"
End If
End If
End If
End Sub

⑧ 在excel里利用vba怎么对指定单元格，或区域单元格保护

在excel的工具功能中进入vba编辑器执行宏保护公式的功能，即可对指定单元格，或区域单元格进行保护。

具体操作步骤如下：

1、打开EXCEL2003，输入并编辑好相关的数据。

注意事项：

为了避免别人进入VBA编辑模式查看解锁密码或者乱修改代码，最后一定要记得将宏设置密码。

⑨ 如何加密VBA

在VBE界面中
工具—VBAproject属性—保护

然后设好密码即可。

⑩ vba保护单元格

方法如下：
1、在打开工作簿事件中编写代码达到如下功能：取消工作表保护、使A10:K10的锁定功能为假、保护该工作表。（这部分代码可省略，在窗口中操作一次即可）
2、在代码中要对保护的单元格输入数据时，先取消工作表保护，输入数据后再进行保护（Protect
方法），至于不允许插入删除行列，是Protect 方法的参数设定问题（取默认值 即可，也就是省略参数）。
有问题可追问