欢迎访问抖客教程网!

抖客教程网

您现在的位置是:主页 > 办公课堂 > Excel教程 > ExcelVBA实例 >

ExcelVBA实例

excel表格如何加密解密

发布时间:2023-12-16 23:40:01ExcelVBA实例评论
您好EXCEL加密可以的! 假如是整个文件加密,打开文件菜单中的生存按钮(如已经生存过文件,只要打开文件菜单中的另存为),在另存为对话框中有一个东西按钮,点击呈现一个菜

您好EXCEL加密可以的! 假如是整个文件加密,打开文件菜单中的生存按钮(如已经生存过文件,只要打开文件菜单中的另存为),在另存为对话框中有一个东西按钮,点击呈现一个菜单在内里选择“通例选项”,在内里输入暗码,输二次确定后,再按生存的按钮。

(还可选择生存的位置和文件名),此方式是在EXCE2000软件中操纵。(同下) 假如你要掩护的是事情表,只要把光标移到事情表1(sheet1)处,打开东西菜单中的“掩护”的下一级菜单中选择“掩护事情表”在弹出的对话框中“内容”、“工具”、“方案”,前面都按上钩,在暗码处输入暗码确定后,再生存文件就行了,这样的话事情表1(sheet1)处只有你能输入内容,而其它人就不能输入内容,不外其它事情表如(sheet2)等还可以输入内容。

请安照本人讲的操纵一下! 附和。

2.如何excel加密?

EXCEL文档加密,别离为1、掩护事情表,2、掩护事情簿,3、掩护整个文档。

1、菜单上的东西。

2、掩护。

3、掩护事情表。配置暗码和所掩护的项。

4、掩护事情簿。配置暗码和所掩护的项。

5、掩护整个文档,点选项。

6、安详性。

7、配置掩护文档的暗码。

3.怎么给excel加密

第一种方式:

1、先打开“受暗码掩护文件.xlsx”文件,点击左上方的“office按钮”;

2、然后选择“另存为”-“Excel事情薄”;

3、点击左下方“东西”-“通例选项”;

4、完成今后步调后,就可以看到弹出暗码框,输入暗码,有打开权限暗码和修改权限暗码,详细按照本身的需要来定。配置完成后,点击“确定”然后再输一次暗码即可。

5、暗码已经配置好了,打开另存为的文件,就会有输入暗码的提示。

第二种方式:

打开文件,点击左上方的“office按钮”-“筹备”-“加密文档”

在弹出的暗码框中输入暗码,点击确定,再次输入暗码即可。

配置完成后,生存文件,然后再次打开的时候就会有输入暗码的提示。

留意事项

暗码是分巨细写的, 输入暗码时候留意是否开启了大写键盘;

假如需要删掉暗码,照旧反复配置暗码的步调,去掉暗码即可。

4.excel文档奈何加密?

1、启动Excel,打开相应的事情簿文档,执行“东西→选项”呼吁,打开“选项”对话框。

2、切换到“安详性”标签下,在“打开权限暗码”右侧的方框中输入暗码,按下“确定”按钮,再输入一次暗码,确定返回。

3、生存一下文档。

颠末这样配置后,假如需要打开该事情簿时,抖客教程网,必需输入正确的暗码,不然无法打开。

留意:打开“选项”对话框,切换到“安详性”标签下,把“打开权限暗码”右侧的方框中的暗码排除,确定返回,再生存一下文档,即可排除文档的暗码。

参考资料:

5.excel怎么让加密

以Microsoft Office Excel 2007为例,先容怎么给Excel加密:

1、打开需要加密的Excel文档;

2、利用快捷键“Alt+F”,打开Excel菜单栏;

3、将鼠标移至“筹备”,弹出“筹备要分发的文档”对话框;

4、点击“加密文档”,在弹出的对话框中配置“暗码”;

5、点击“确定”。

Excel文档加密完成,下次打开加密文档时,需要输入正确的暗码!

6.excel表格如何加密

如下图:配置只读暗码可能打开暗码就可以了。可是暗码必然要记牢。

7.excel文档怎么解密

excel文档解密,凡是是通过VBA编程来办理的。

假如对暗码的位数及组成有相识,那么试算的暗码就较量好确定,则解密相比拟力简朴快捷。

下面这段代码是针对纯数字暗码的解密。代码如下:

Sub crack()

Dim i As Long

Dim FileName As String

i = 0

FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")

FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))

Application.ScreenUpdating = False

line2: On Error GoTo line1

Workbooks.Open FileName, , True, , i

MsgBox "Password is " & i

Exit Sub

line1: i = i + 1

Resume line2

Application.ScreenUpdating = True

热心评论

评论列表