ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2245|回复: 7

[求助]关于文件夹加密

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-9-13 15:33 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

请问:如何将一文件(内也有文件夹),在不压缩的情况下加密呀,多谢~!

我用的2000,可以吗?

TA的精华主题

TA的得分主题

发表于 2004-9-13 18:28 | 显示全部楼层

文件加密,通过 另存为//工具//常规选项,输入密码即可实现。

文件夹加密,下载个文件夹加密工具吧。

TA的精华主题

TA的得分主题

发表于 2004-9-13 19:29 | 显示全部楼层

如果楼主的意思是将文件夹内所有文件加密的话,可以考虑使用VBA来实现。

原理:遍历文件夹(指定路径)将所有同类型文件加上相同或者不同的密码。

TA的精华主题

TA的得分主题

发表于 2004-9-15 18:59 | 显示全部楼层

我的办法:

首先保证你在文件夹的“查看”中选中了“按Web页”(这是98。2000不需要这步)

1、在文件夹中点右键,选“自定义文件夹”(或在菜单栏“查看”中点“自定义文件夹”)

2、选编辑folder.htt

3、找到<script language="JavaScript">这句,在其下加一句:

var pass = prompt ( "请输入进入此文件夹的密码!" ) if ( pass!="123" ) {window.location = "c:" }

直接“完成”

注意:

密码是“123”

密码错了的话就自动跑到C盘去了,

根据代码你可以自己改一改。

破解:

只能在Dos下,先attrib -s -h -r -a *.*去掉只读等属性;

然后再delete folder.htt

即可。

原理:

跟“欢乐时光”病毒一样。

或者干脆再简单点————

在你编辑Folder.htt时,你直接全选,清空,保存,完成

这样别人就算打开你的文件夹看到的也只是一片空白。

你要看时只需要在“查看”中取消“按web页”即可。

[此贴子已经被作者于2004-9-15 19:03:50编辑过]

TA的精华主题

TA的得分主题

发表于 2004-9-15 20:54 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-16 21:44 | 显示全部楼层
以下是引用七叶一枝梅在2004-9-15 18:59:00的发言:

我的办法:

首先保证你在文件夹的“查看”中选中了“按Web页”(这是98。2000不需要这步)

1、在文件夹中点右键,选“自定义文件夹”(或在菜单栏“查看”中点“自定义文件夹”)

2、选编辑folder.htt

3、找到<script language="JavaScript">这句,在其下加一句:

var pass = prompt ( "请输入进入此文件夹的密码!" ) if ( pass!="123" ) {window.location = "c:" }

直接“完成”

注意:

密码是“123”

密码错了的话就自动跑到C盘去了,

根据代码你可以自己改一改。

破解:

只能在Dos下,先attrib -s -h -r -a *.*去掉只读等属性;

然后再delete folder.htt

即可。

原理:

跟“欢乐时光”病毒一样。

或者干脆再简单点————

在你编辑Folder.htt时,你直接全选,清空,保存,完成

这样别人就算打开你的文件夹看到的也只是一片空白。

你要看时只需要在“查看”中取消“按web页”即可。

这个方法好像不是很保险,用“资源管理器”进入就不用输入密码了

TA的精华主题

TA的得分主题

发表于 2004-9-17 20:14 | 显示全部楼层
t
huntxp

“资源管理器” 下同样有“web视图方式”,(不论是2000、XP还是2003)只要先保证是“web方式”,则本方法一定能行。

解决方法其实除了我给出的在DOS下去掉系统隐藏等属性再删之外,还有一个办法先保证在文件夹选项中已打开了“显示所有隐藏、系统文件”,再右击加过密的文件夹先“搜索”,填入“folder.htt”,找到后删除,即可进入文件夹。

另外,

守柔兄给的链接的那篇文章我开始没有见到,这个方法其实是去年《电脑爱好者》上登过的。

TA的精华主题

TA的得分主题

发表于 2006-4-19 12:38 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
厉害
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-16 13:30 , Processed in 0.039681 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表