excel加密宏
⑴ 如何用宏给EXCEL文件加密码
1.启动Excel，执行“工具→宏→Visual Basic 编辑器”命令，进入VBA编辑状态(如图1)。进入VBA编辑状态。
2.在左侧的“工程资源管理器”窗口中，选中“VBAproject(PERSONAL.XLS)”(个人宏工作簿)选项。
3.执行“插入→模块”命令，插入一个模块(模块1)。
4.将下述代码输入到右侧的代码编辑窗口中：
Sub Auto_close()
ActiveWorkbook.Password = "123456"
ActiveWorkbook.Save
End Sub
退出VBA编辑状态。
注意：这是一个退出Excel时自动运行的宏，其宏名称(Auto_close)不能修改。
5.以后在退出Excel时，软件自动为当前工作簿添加上密码(123456，可以根据需要修改)，并保存文档。
⑵ 如何对excel中的宏设置密码保护
在单位经常是多个人共用一台电脑，这样一来，自己制作的Excel表格，不希望别人查看，我们可以为其设置密码。
1、启动Excel，打开相应的工作簿文档，执行“工具→选项”命令，打开“选项”对话框。
2、切换到“安全性”标签下，在“打开权限密码”右侧的方框中输入密码，按下“确定”按钮，再输入一次密码，确定返回。
3、保存一下文档。
经过这样设置后，如果需要打开该工作簿时，必须输入正确的密码，否则无法打开。
注意：打开“选项”对话框，切换到“安全性”标签下，把“打开权限密码”右侧的方框中的密码清除，确定返回，再保存一下文档，即可清除文档的密码。
1.在“文件”中选择“另存为” 2.在“另存为”对话框的右上角点“工具” 3.在“工具”下拉菜单中选择“常规选项” 4.在打开的对话框中输入密码，点“确定”即可。
⑶ excel 宏或代码如何加密
从VBA编辑窗口工具栏的：工具→VBAProject属性→保护→锁定工程（点中查看时锁定工程）→查看工程属性密码→密码（在此框中输入密码）→确认密码（在此框中再次输入密码）→确定→保存退出，下次打开的时候就要输入正确的密码，才能看到代码的。具体请看下面的动画图（双击图可以看的更清楚些）。
⑷ 如何对Excel内的宏设置密码
设置打开密码只有以下两句就好了
ActiveWorkbook.Password = "tt"
ActiveWorkbook.WritePassword = "yy"
对于保护密码设置可以参考如下内容。
对Excel工作表实现口令保护利用VBA调用Worksheet对象的Protect方法对工作表进行保护。
Protect带有以下参量：Password 用于保护工作表的口令。Drawingobjects 若为True，则对工作表中的Drawingobjects对象进行保护,缺省值为True。Contents 若为True，则对单元格内容进行保护，缺省值为True。下面程序代码完成对工作表“基础数据表”的保护：
Sub 保护工作表（）
Worksheets（〃基础数据表〃）.Protect Password:="1234"
End sub
对工作表实现隐藏保护，使他人无法看到工作表：利用VBA设置Worksheet对象的Visible属性来隐藏工作表；Visible属性的值为以下三个值中的一个：
True 工作表为显示状态。
False 工作表为隐藏状态。
XlVerHidden 工作表为隐藏状态，且用户不能通过“取消隐藏”对话框将其改为显示状态。当Visible的值为XlVerHidden时，只能利用VBA将其重新设置为True。
Sub 隐藏工作表（）
Worksheets("基础数据表").Visible=False
End sub
⑸ Excel中如何用宏加密单元格A1:A10数据
加密只需要工作表保护即可，不需要宏来加密
设置A1:A10的单元格格式为自定义“;;;”，把字体颜色设置为白色
选择A1:A10，右键设置单元格格式，属性“隐藏”和“锁定”都勾选。
然后选择保护工作表。这样A1:A10中的数据就被隐藏和锁定了
如果你只是想让A1:A10的内容不被他人编辑，但可以看到。其它单元格允许编辑的话
就用下面这个方法了
选择所有单元格，然后右键设置单元格格式，属性“隐藏”和“锁定”都不要勾选。
选择A1:A10，右键设置单元格格式，属性“隐藏”和“锁定”都勾选。
然后选择保护工作表。
保护工作表时可以设置密码和其它勾选项目。
自己慢慢研究一下
⑹ Excel宏加密后,无论创建、删除还是编辑均需密码,如何破解
1、我新建一个excel文件（.xlsx格式的）来测试破解过程，其它文件可以参考，但最好要备份原来的文件,设置工作表、工作薄为密码保护，保存后
⑺ 写好Excel宏怎么样加密
Excel表格是我们工作中经常用到的，而它往往涉及统计数据等敏感问题，因此，Excel表格的保护也是经常遇到的问题，如何安全使用Excel呢？我们常用到的是Excel“工具”菜单提供的“保护工作表”和“保护工作簿”功能。有没有其他方法呢？
用宏进行“显式”加密
在需要加密的Excel 表中，点击[工具]→[宏]→[Visual Basic编辑器]，打开“工程资源管理器”，双击该工作表，在右边的是设置该表属性的编辑窗口，单击该窗口左上方的下拉列表框，选择Worksheet，再从该窗口右上方的列表框中选择Activate(激活)（如图）。
察看原图 发送到手机
添加如下代码：（假设“123”为密码，Sheet1为限制权限表格，Sheet2为工作簿中为任何适合的工作表）
Private Sub Worksheet_Activate()
Sheets("sheet1").Cells.Font.ColorIndex = 2 '设置文字颜色为白色
If Application.InputBox("请输入密码:") = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56
' 设置文字颜色为黑色
Else
MsgBox "密码错误，即将退出!"
Sheets("sheet2").Select
End If
End Sub
每次当你选择该“加密”表的时候都会弹出对话框要求输入密码，正确则进入该表（Sheet1），否则会选择其他表（Sheet2）。
用宏进行“隐式”加密
“显式”加密，虽然可以让没有密码的使用者无法看到“加密”表格，但是每次选择该表格时都会弹出对话框，实在不方便而且给其他用户一种被防范的不舒服感觉。于是笔者就想出了下面的“隐式”加密方法。假如要加密的是Sheet1，我们可以设置在Sheet2的“A1”单元格为密码的输入处。于是修改以上代码如下：
Private Sub Worksheet_Activate()
Sheets("sheet1").Cells.Font.ColorIndex = 2'设置文字颜色为白色
If Sheets("sheet2").Cells(1, 1) = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56
' 设置文字颜色为黑色
End If
End Sub
设置好以后，只有Sheet2的（A1）单元格为密码“123”时“加密”表Sheet1的内容才显示出来，否则就是透明的，神不知鬼不觉；所谓“隐式”。
“隐式”加密虽然保证了没有密码的用户不能查看“加密”表格的内容，但是不能保护其他用户对其进行修改。所以我们要综合运用上面所说的“保护表格”和“隐式加密”对要保密的表格进行设置。