excel密码破解超简单
第一篇：excel密码破解超简单
excel登陆密码的实现
开始浏览-Excel登陆机制的实现方法 Excel教程
作者：Excel教程 浏览：111次 评论：0条
当我们在处理或传输Excel电子表格的时候，如果涉及到比较重要的数据，都会考虑到文档的安全问题。
为此，我们可以使用单元格限制修改输入、借用VBA加以限制用户使用某种工具或菜单等。这一切，都是为了Excel电子表格的安全着想。
本文，给大家介绍一种更为安全的方法，那就是，Excel登陆机制的实现。意思就是说，当我们双击Excel电子表格企图打开的时候，会提示登陆，如果登陆成功，就能够打开电子表格进行各种操作，如果登陆失败，那么，将无法成功打开Excel电子文档。
我们先看下图吧，最终的实现效果就是，当我们双击Excel电子表格时，会看到如下图的登陆窗口。
填写正确的用户名和密码之后，才能登陆成功。如果登陆成功，就可以对电子表格进行日常的操作。否则，就只能点击退出或关闭，从而就不能打开Excel电子表格了。
要想实现这样的功能，有一定难度，但是，并非不可以实现，借助工作表并配合简单的VBA代码和用户窗体就可以实现。
一、保存用户名和密码的工作表
要想实现登陆，那么，必须要有依据，这个依据就是，我们将用户名和密码事先保存在EXCLE工作薄的某一个工作表中，登陆的时候，只需要判断表格中是否有此用户名和密码即可。有则登陆成功，没有则登陆失败。
表格如上图中的表，只要工作薄中的任意一个工作表，用来用户名和密码即可。如本例的工作表，名称为 UserLoginInfor ，此表中有三列，第一列是保存登陆名称，第二列保存对应的登陆密码，第三列保存用户的级别。
根据上图的表，自己建立一个这样的工作表吧，接下来，就是用户窗体和VBA的事了。
二、建立用户窗体
所谓的用户窗体，就是我们所看到的第一图的登陆窗口，那个就是用户窗体，在Excel中，我们必须插入这样的一个窗体。方法如下。
右键点击 UserLoginInfor 选择“查看代码”，如下图。
然后，我们会看到所弹出的VBA窗口，在此窗口中，执行菜单操作“插入”→“用户窗体”，如下图。
之后，我们就会看到如下图的界面了。
上图中，我们通过工具箱向窗体中插入两个标签控件、两个输入框和两个按钮。两个标签控件的Captiont属性分别为“用户名”和“密码”，两个输入框则只调整大小即可。两个按钮的Caption分别设置为“登陆”和“退出”，如此如此，所有的前期准备工作到此完成。
接下来，我们该给窗体控件增加VBA代码，以实现真正的登陆机制了。
三、登陆机制中所使用的VBA代码
①ThisWorkbook对象的代码
右键点击窗口中能够看见的ThisWorkbook，选择“查看代码”，这样，VBA代码输入小窗口就出现了。
接下来，如上图一样，选择好对象名称是Workbook，事件名称是Open，然后，如上图一样，输入VBA代码即可。
②窗体控件的VBA代码
窗体的控件的VBA代码，包括三类代码。一是登陆按钮的代码;二是退出按钮的代码;三是点击
×关闭的代码。
为方便大家的学习，下面将这三类代码粘贴如下：
A、登陆按钮的代码
Dim MyLoginStatus As Single
MyLoginStatus = 0
For i = 2 To ThisWorkbook.Sheets("UserLoginInfor").UsedRange.Rows.Count
If (Trim(ThisWorkbook.Sheets("UserLoginInfor").Cells(i, 1).Value)) = Trim(TextBox1.Value) And (Trim(ThisWorkbook.Sheets("UserLoginInfor").Cells(i, 2).Value)) = Trim(TextBox2.Value) Then
MyLoginStatus = MyLoginStatus 1
If (Trim(ThisWorkbook.Sheets("UserLoginInfor").Cells(i, 3).Value) = "最高权限") Then
ThisWorkbook.Sheets("UserLoginInfor").Visible = True
Else
ThisWorkbook.Sheets("UserLoginInfor").Visible = False
End If
End If
Next i
If (MyLoginStatus
>= 1) Then
MsgBox "登陆成功", vbInformation, "系统消息"
UserForm1.Hide
Application.Visible = True
Else
MsgBox "错误的用户名和密码", vbCritical, "系统消息"
End If
B、退出按钮的VBA代码
Application.Quit
注意，以上两类代码的输入方法，直接点击“登陆”和“退出”按钮就可以进入输入模式，按照上面的代码，原原本本的照着输入就可以了。
C、 ×关闭的VBA代码
此类代码比较难以理解，下面直接将其事件及代码完整粘贴如下：
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Quit
End Sub
四、部分代码说明
ThisWorkbook.Sheets("UserLoginInfor").Visible = True;显示UserLoginInfor工作表
ThisWorkbook.Sheets("UserLoginInfor").Visible = False;隐藏UserLoginInfor工作表
为什么要显示和隐藏这个工作表呢?因为不同的人登陆EXCEL电子表格，权限是不一样的，如果每个人登陆都能看到别人的用户名和密码，那人人都可以拿最高权限的登陆了，然后什么都可以做了。
我们的登陆机制是，只有最高权限的人登陆成功，才能看到UserLoginInfor工作表并修改这个工作表。而其它人即便登陆成功，这个表也不能看到，更不能修改了。
UserForm1.Hide;如果登陆成功，就把登陆窗体隐藏起来，这样，才不会影响EXCEL工作表的操作。 爱盲网 www.amhl.net
第二篇：Excel 2007中忘记保护工作表密码的解决
作为一名该亚中国的网站编辑，我有责任向大家推荐一种Excel中忘记保护密码的解决办法，有了这个办法，也许能在你的工作中省去很多烦恼。
一个最近比较杯具的客户今天又出了一个比较杯具的问题，为了防止别人修改他的表格，在Excel中设置了保护工作表，之后又戏剧性地忘记了，求解决方案。
值得庆幸的是他使用了Office 2007，众所周知Office 2007的全新文档类型是基于XML的，所有的docx、xlsx、pptx等都是标准的zip文件;针对上面这个问题，可以采用如下方式解决：
1. 将设置保护工作表密码的xlsx扩展名更改为zip。
2. 直接在7z或者RAR中双击打开，找到xlworksheets文件夹下，找到设置保护工作表的工作表名，如Sheet1.
3. 将该XML文件单独解压，使用记事本打开，Ctrl+F找到"SheetProtection”字段，将中所有内容删除，保存。
4. 4.将保存后的XML添加到zip文件原始位置。
5. 将ZIP文件改回xlsx，即可去除设置密码的工作表保护。
6. 当你看了前面5点，应该已经豁然开朗，那赶快关注一下我们该亚中国吧，在这里，能让你只用鼠标，就畅游本地，
第三篇：10个简单的excel数据应用小技巧
10個簡單的excel數據應用小技巧
1.禁止輸入周末日期
=AND(WEEKDAY(A1)1,WEEKDAY(A1)7)
2.特定前綴輸入:應該含某個字開頭 =OR(LEFT(A1)=張,LEFT(A1)=李)
3.禁止單元格前後輸入多餘空格
=A1=TRIM(A1)
4.禁止輸入數字大於某某值
=A1=100
5.禁止輸入限定的值
=MAX(A:A)同同=
6.限定區域輸入的和的最大值
=SUM(A1:A10)100
7.使單元格區域內記錄不能重複輸入控制
=COUNTIF(A:A,A2)=1(直接複制此公式進去即可)
8.禁止單元格輸入數字控制
=ISNUMBER(A1)TRUE
9.允許單元格只能輸入數字控制
=ISNUMBER(A1)=TRUE
10.禁止單元格輸入字母和數字
=LENB(A1)=2
第四篇：用Excel制作工资条的两种简单方法
2009-12-09 15:35作者：赵云出处：电脑报责任编辑：杨玲
Excel软件中的数据处理功能非常强大，很多人都用它来制作工资表，再打印出工资条。很多文章都介绍过如何把工资表制成工资条，但这些方法非常复杂，不利于操作。
笔者经过研究，找到了两种用Excel制作工资条的非常简单的方法，希望能对有这方面要求的朋友有所帮助。
方法一：排序法
第一步：打开工资表→在工资表最后一空白列输入1，2，3……(注：输入的数字与工资表的行数相同)(图
1)。
第二步：在刚输入的数字下面向下输入1.1，2.1……，比上面的数据少一行，本列在K9中输入1.1(图
2)。
第三步：在K列任何一个单元格中单击左键→单击工具栏上的升序排列按钮→选择工资表→编辑→定位→定位条件选择“空值”→确定。
第四步：在编辑栏中输入=A$1→按住Ctrl键不放敲回车键。
第五步：在单元格K15下方输入1.01，2.01……一直输入到6.01→单击工具栏上的升序排列按钮→删除K列的数据。加一下边框便大功告成了(图3)。
方法二：函数法
第一步：打开工资表→单击Sheet2标签→在Sheet2工作表的A1单元格中输入
=IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,Sheet1!A$1,INDEX(Sheet1!$A:$N,INT((ROW()+4)/3),COLUMN())))→向后拖到J1单元格(注：拖的长度应与原表长度相同)(图4)。
第二步：选择A1:J1区域向下拖→拖到第20行即可(注：拖的时候可能拖多或拖少，这时要看一下原表)→加一下边框便成功了(图5)。
第五篇：超简单超好用的退高烧方法
一个偶然，认识了一位德高望重的经方派中医，他教了我一个超简单超好用的小孩退高烧的方法(大人也管用的)，就是煮一大锅姜水，放凉到皮肤能适应的最高温度(这个要小心测试水温，不能太高，怕烫伤小孩，也不能太低，太低就不管用了)，盛在水桶里，给小孩泡脚，注意一定要泡到膝盖的位置，泡很久一直到出汗为止就会退烧。过几个小时后小孩再次发烧的话，重复用热水泡至出汗……一般泡个
三、四次左右就会完全退烧。我女儿每次发高烧，最高时40度，都是用这个方法解决，她每次发烧时一副可怜兮兮的样子，退烧后吃点热粥又开始活蹦乱跳了。
具体原理我也讲不清，大概就是发烧不是什么坏事而是好事，外来的邪气进入身体，身体的正气就全部调动起来跟邪气斗争啦，所以要用热水泡脚帮助正气一把，把邪气赶出去，然后再吃点热的白粥，把最后一点点邪气逼出体外，这样发烧就会好了，身体一点损伤也没有，而且会越来越强壮。
而服西药、用退烧贴、泡温水等，都是寒的方法，当时是退烧了，但是邪气还压在体内，日积月累，总有一天当身体承受不了时，就会爆发出来。
一经方中医完全颠覆了我以前所知道的一点点医学知识，自从我女儿一次、二次、三次……用姜水泡脚的方法神奇退烧后，省钱省力省心还不伤身体，我是对经方中医佩服得五体投地。但是很奇怪，好像越是简单越是无人相信，我再次写下来，希望能帮到有缘人，可怜天下父母心。
这个跟你同事说的相似吗?我儿子发烧，说糊话，我妈就用叫已去世的人名，并将鸡蛋放在地上，突然叫到我爷爷的名，鸡蛋就从手上滑下去 并立在地上了，吓了我半死，然后我妈就在家门口烧了些钱纸，把先人送走了，儿子晚上就退烧了。真实的故事
买点小米，用个小碗盛着，用个布盖到上面系好。晚上睡觉时扒着床边用碗在他胸口正三圈倒三圈，嘴里面讲奇奇不害怕回家找妈妈，拉拉耳垂不掉了奇奇魂。这样就好了，看他二手指是不是有条筋股起来，用手来回帮他揉一下。
本人在试用期间遵守公司规章制度，对工作流程基本掌握。今后有信心做好本职工作。