㈠ 怎么样对一个文件加密
如何实现对一个文件加密
给文件加密，我们公司使用的是超级加密3000软件，这款软件操作起来还是比较简便的。
启动超级加密3000进入软件主界面，在软件主窗口下方的的文件浏览控件里面选择您需要加密的文件，然后点击窗口上方的“数据加密”按钮。
在弹出的数据加密窗口中输入文件加密密码，选择合适的文件加密类型，然后点击确定按钮就可以了。
您可以使用这个方法给您的文件加密试试。
一个文档如何加密
Word文档加密技巧详解
文档的安全是我们每个用户都非常关心的话题，尤其是在公共办公场所，如何更加有效地保护我们的文档，更是一个刻不容缓的问题。Word有着非常强大的文字编辑功能，是我们日常工作生活中十分常用的办公软件，同时Word本身也提供了许多安全和保护功能，下面就让我们来看看给Word文档加密的技巧。这几种方式，各有玄机，正所谓是“一山还比一山高”啊！
1、普通加密
首先打开需要加密的Word文档，选择“工具”菜单中的“选项”命令，在弹出的“选项”对话框中选择“保存”标签，分别在“打开权限密码”和“修改权限密码”框中输入密码，然后点击“确定”按钮退出，最后将该文档保存即可。注意：“打开权限密码”和“修改权限密码”可以相同也可以不同，设置“打开权限密码”是为了防止别人打开该文档，而设置“修改权限密码”是为了防止别人修改该文档，如果只设置“修改权限密码”，那么别人仍然可以打开该文档，但是如果不知道密码的话，并不能做任何修改。
2、模板加密
首先到C:\Windows\Application Data\Microsoft\Templetas文件夹中，找到要加密的通用模板（Normal.dot），然后选择“工具→选项”，按照与上述步骤相同的方法为该模板设置密码。要注意在保存的时候，选择保存类型为“文档模板（dot）”。这时由于Normal.dot已经打开，所以不能将加密模板保存为默认的通用模板，先将它保存为“Normal1.dot”，关闭Word后再将原来的“Normal.dot”删除，把“Normal1.dot”重命名为“Normal.dot”。这样以后每次启动Word时，都会提示输入密码（如图2），如果没有密码虽然可以进入，但是却没法使用默认模板。
3、宏自动加密
其实我们还可以利用宏来自动加密文档，选择“工具→宏→宏”命令，弹出“宏”对话框，在“宏名”中输入“AutoPassword”，在“宏的位置”中选择“所有的活动模板和文档”，然后点击“创建”按钮，出现“宏”编辑窗口，在源代码窗口中的Sub AutoPassword()和End Sub之间插入以下代码：
With Options
.AllowFastSave = True
.BackgroundSave = True
.CreateBackup = False
.SavePropertiesPrompt = False
.SaveInterval = 10
.SaveNormalPrompt = False
End With
With ActiveDocument
.ReadOnlyRemended = False
.EmbedTrueTypeFonts = False
.SaveFormsData = False
.SaveSubsetFonts = False
.Password = "2002"
.WritePassword = "2002"
End With
Application.DefaultSaveFormat = ""
说明：上述代码中的“.PassWord=”和“WritePassword=”后面分别表示的是“打开权限密码”和“修改权限密码”，本例中的打开和修改权限密码都是“2002”，用户可以自行修改。
输入上述代码后，点击“文件”菜单中的“保存Normal”，然后点击“......
如何在电脑上给一个文件或文件夹加密？
1、进入您要禒行加密保护的文件夹中，在空白处单击鼠标右键，选择"自定义文件夹..."选项；
2、单击"下一步"选择"自定义"并在副选框中选择"选择或编辑该文件夹的Html模板"，单击"下一步"；
3、在选择模板类型中选择"标准"，并将"编辑该模板"选项选中，单击"下一步"；
4、在弹出的"Folder"文件中找到〈script language="JavaScript"〉，在其下方顶头输入以下内容： var pass = prompt("请输入密码") if(pass != "123") ---"123"处换成您自己设定的密码--- {window.location="c:"}
5、保存"Folder"文件之后，选择完成，文件夹加密就完成了，您可以进行测试啦！
如果需要去掉保护，只需要把"Folder"文件修改回原样就好啦！
如何对一个文件夹加密
下载相关加密软件啥 网上有很多 有些要收费 下不收费啥.
怎么给一个文件夹加密？
1、加密文件或文件夹打开 Windows 资源管理器。右键单击要加密的文件或文件夹，然后单击“属性”。在“常规”选项卡上，单击“高级”。选中“加密内容以便保护数据”复选框。要打开“Windows 资源管理器”，请单击“开始”，依次指向“所有程序”、“附件”，然后单击“Windows 资源管理器”。只可以加密 NTFS 文件系统卷上的文件和文件夹。2、文件夹加密超级大师 9.999文件夹加密超级大师 9.999
如何给我的文档里面的一个文件加密
方法1.最简单的如何给文件夹加密的方法就是利用操作系统自带的功能来设置，就是EFS加密，这个EFS加密功能需要硬盘的分区格式是NTFS，如果有网友不是这个格式需要先转换一下。那文件夹怎么加密具体怎么操作呢，首先选中需要加密的文件夹或文件，然后右击，选择“属性”，然后点击“高级”，选择“压缩或加密属性”中的“加密内容以便保护数据”，这个这个文件夹或文件就设置了EFS加密，加密后的文件夹或文件的名字会变成蓝色，这个时候电脑上其他的用户是无法查看的；
方法2.有人说上面这种方法还不够安全，如果有人用我的账户进入了电脑就可以查看文件夹中的内容了，下面我们就来教大家用第三方工具加密文件夹。可以利用压缩工具给文件夹加密码，大家常见的压缩工具有WinRAR，7-ZIP等等，这些工具都可以对文件或文件夹加密码。下面我们就以WinRAR为例来教大家文件夹怎么加密，在需要加密的文件或文件夹上右击，选择“添加到压缩文件...”，然后选择“高级”标签页，点击“设置密码”，在弹出的对话框中输入密码，就可以对相应的文件或文件夹进行加密。
方法3.除了以上两种如何给文件夹加密码的方法外，网上还有不少第三方的文件夹加密工具，但是这类工具通常都是试用版，用一段时间就不能使用了，所以这里我们就不再介绍这类软件了。网友可以观看相关网站的介绍就可以了。
怎么对一个文件进行加密保护？
文件加密保护目前来说有三种最常见的办法：
第一：使用第三方文件加密软件，建议选择透明加密软件，例如红线隐私保护系统，采用AES256,512，SM2、SM3等高强度加密算法，自动后台透明运行，无需改变用户使用习惯，保存或另存为时文档即被高强度加密处理。
第二：使用压缩工具加密，例如win rar，采用椭圆曲线算法，加密安全。不过需要牢记设置的密码！
第三：使用电子文档自带的功能设置密码，例如word，PDF都可以自己设置安全密码。也要牢记设置的密码！
如何对一个文件夹进行加密
1、进入您要进行加密保护的文件夹中，在空白处单击鼠标右键，选择“自定义文件夹…”选项；
2、单击“下一步”选择“自定义”并在副选框中选择“选择或编辑该文件夹的Html模板”，单击“下一步”；
3、在选择模板类型中选择“标准”，并将“编辑该模板”选项选中，单击“下一步”.
4、在弹出的“Folder”文件中找到〈script language=JavaScript〉，在其下方顶头输入以下内容：
var pass = prompt(请输入密码)该处的“请输入密码”为系统提示语
if(pass != 123) “123”处范成您自己设定的密码
{window.location=c:}
5、保存“Folder”文件之后，选择完成，文件夹加密就完成了，您可以进行测试啦.
因为刚才的诸多步骤就是Windows的脚本编程，所以经验证，该方法适用于所有Windows系统。如果需要去掉保护，只需要把“Folder”文件修改回原样就好啦！
由于Windows版本不同，细微之处会有所区别，如在Windows Me中，“Folder”文件中就没有〈script language=JavaScript〉字段，而只有〈script〉，放到它后面也同样起作用。文件夹向导也不尽相同，请大家举一反三。
用电脑建立一个文件夹可以加密吗？那怎么样加？ 20分
给文件夹加密，我使用的是文件夹加密超级大师。
这是一款专业的文件和文件夹加密软件，使用本软件可以很轻松地对文件、文件夹进行加密、解密操作，你只需要点击文件夹加密超级大师软件主窗口上的文件夹加密按钮，然后在弹出的窗口中选择需要加密的文件夹，在弹出的文件夹加密窗口中输入加密密码就可以了。
此外，本软件还支持右键菜单，右键选中要加密的文件夹后，在弹出的菜单中选择“加密”，输入密码即可。
这两种操作方法都非常的简便，建议您不妨可以下载试试。
㈡ 怎么设置Excel2003的宏的密码
打开VBA编辑器，插入用户窗体，设计好界面后，输入代码：
设置属性名称（Name）属性：
用于输入用户名的文本框：txtName
用于输入密码的文本框：txtPassword
确定按钮：btnLogin
退出按钮：btnExit
在窗体模块代码窗口输入：
Option Explicit '本句可有可无
'预存用户名和密码，可以使用其他方式实现
Private Const UserName As String = "UserName"
Private Const PassWord As String = "123456"
Private Sub btnExit_Click()
ThisWorkbook.Close False
End Sub
Private Sub btnLogin_Click()
If txtName.Text = UserName And txtPassword = PassWord Then
MsgBox "用户名或密码错误！请重新输入。"
txtName.SetFocus
Else
Unload Me
End If
End Sub
双击工程管理窗口的 ThisWorkBook 以打开编辑窗口，输入：
Option Explicit
Private Sub Workbook_Open()
frmLogin.Show 1
End Sub
保存后打开即可。不过必须允许运行宏
㈢ 如何用宏给word文档加密
自己在个人电脑中做宏来加密文档很简单,就用"录制宏"就可以了,但提醒你不能在公开机子上实现这一过程,否则加密没有意义,别人可以通过VB语言查看到密码的.
似乎无法实现你所说的"只能让阅读者看一两次然后锁死，不让任何人在打开"的功能.
㈣ 如何对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工作簿文档自动添加密码
启动Excel，执行“工具→宏→Visual Basic 编辑器”命令，进入VBA编辑状态(如图1)。进入VBA编辑状态
在左侧的“工程资源管理器”窗口中，选中“VBAproject(PERSONAL.XLS)”(个人宏工作簿)选项。
执行“插入→模块”命令，插入一个模块(模块1)。
将下述代码输入到右侧的代码编辑窗口中：
Sub Auto_close()
ActiveWorkbook.Password = "123456"
ActiveWorkbook.Save
End Sub
退出VBA编辑状态。
注意：这是一个退出Excel时自动运行的宏，其宏名称(Auto_close)不能修改。
以后在退出Excel时，软件自动为当前工作簿添加上密码(123456，可以根据需要修改)，并保存文档。
㈥ 如何对excel中的宏设置密码保护
在单位经常是多个人共用一台电脑，这样一来，自己制作的Excel表格，不希望别人查看，我们可以为其设置密码。
1、启动Excel，打开相应的工作簿文档，执行“工具→选项”命令，打开“选项”对话框。
2、切换到“安全性”标签下，在“打开权限密码”右侧的方框中输入密码，按下“确定”按钮，再输入一次密码，确定返回。
3、保存一下文档。
经过这样设置后，如果需要打开该工作簿时，必须输入正确的密码，否则无法打开。
注意：打开“选项”对话框，切换到“安全性”标签下，把“打开权限密码”右侧的方框中的密码清除，确定返回，再保存一下文档，即可清除文档的密码。
1.在“文件”中选择“另存为” 2.在“另存为”对话框的右上角点“工具” 3.在“工具”下拉菜单中选择“常规选项” 4.在打开的对话框中输入密码，点“确定”即可。
㈦ 求教怎么用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对象模块中，保存文件即可。