第一篇：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度，都是用這個方法解決，她每次發燒時一副可憐兮兮的樣子，退燒后吃點熱粥又開始活蹦亂跳了。
具體原理我也講不清，大概就是發燒不是什么壞事而是好事，外來的邪氣進入身體，身體的正氣就全部調動起來跟邪氣斗爭啦，所以要用熱水泡腳幫助正氣一把，把邪氣趕出去，然后再吃點熱的白粥，把最后一點點邪氣逼出體外，這樣發燒就會好了，身體一點損傷也沒有，而且會越來越強壯。
而服西藥、用退燒貼、泡溫水等，都是寒的方法，當時是退燒了，但是邪氣還壓在體內，日積月累，總有一天當身體承受不了時，就會爆發出來。
一經方中醫完全顛覆了我以前所知道的一點點醫學知識，自從我女兒一次、二次、三次……用姜水泡腳的方法神奇退燒后，省錢省力省心還不傷身體，我是對經方中醫佩服得五體投地。但是很奇怪，好像越是簡單越是無人相信，我再次寫下來，希望能幫到有緣人，可憐天下父母心。
這個跟你同事說的相似嗎?我兒子發燒，說糊話，我媽就用叫已去世的人名，并將雞蛋放在地上，突然叫到我爺爺的名，雞蛋就從手上滑下去 并立在地上了，嚇了我半死，然后我媽就在家門口燒了些錢紙，把先人送走了，兒子晚上就退燒了。真實的故事
買點小米，用個小碗盛著，用個布蓋到上面系好。晚上睡覺時扒著床邊用碗在他胸口正三圈倒三圈，嘴里面講奇奇不害怕回家找媽媽，拉拉耳垂不掉了奇奇魂。這樣就好了，看他二手指是不是有條筋股起來，用手來回幫他揉一下。
本人在試用期間遵守公司規章制度，對工作流程基本掌握。今后有信心做好本職工作。