vba定时加密

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

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

⑤ 怎么给VBA加密呢

VBA是什么？
如果是普通的文件或者文件夹，你可以试试文件夹加密超级大师。
加密方法就和加密普通文件夹一样，先下载，然后在需要加密的文件上点击鼠标右键，输入密码，然后点击确定就OK了。

⑥ EXcel定时加密

我只负责帮你做定时器。

在Excel的宏界面，在左上窗口里找到本工作簿的ThisWorkbook，双击它，在右边输入

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
StartTime = Now
Application.OnTime StartTime + 5 / 60 / 24, "test"
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
StartTime = Now
Application.OnTime StartTime + 5 / 60 / 24, "test"
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
StartTime = Now
Application.OnTime StartTime + 5 / 60 / 24, "test"
End Sub

然后点菜单的插入，模块，粘贴如下代码：

Public StartTime As Date

Sub test()
If Now - StartTime > 5 / 60 / 24 Then MsgBox "Yes"
End Sub

这个代码可以实现，当有以下操作，5分钟后显示“Yes”（当然任何一个操作都会重新计时）：
激活这个工作簿
离开这个工作簿
工作簿中任意表格的选中单元格改变

⑦ 怎么用vba给excel 加密

操作步骤：

1、打开Excel2007启用宏的Excel文件。

注意事项：

ALT+F11键必须同时按下。

选择对象必须明确是模块设置密码还是SHEET表文件整个设置密码，看代码输入是在哪个对象内。

⑧ 怎么用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代码

在VBA窗口，右键工作薄或者工作表名选择VBAProject属性，第二个选项卡“保护”，输入密码就可以对工程代码加密了

⑩ excel有没有办法利用vba实现当文档保存退出时自动加密

你问的不是加密文件吧（打开文件时候提示密码），加密文件除非你另存删除密码，否则保存的时候默认是加密的啊，所以，你应该是指是保护工作表吧。
确实可以通过编程来让文件退出时候自动设置保护，但问题在于：
设置/切换保护状态，实际上标记了文件被修改，正常退出会应该会提示你保存文件。
如果你在VBA里强制保存的话可能会有问题，因为也许你之前做的改动并不想保存的。
而如果不保存呢，也一样，你的保护状态就不能被保存了。
并且在禁用宏的情况下，也很难保证，这样就容易混乱。