第一篇：Excel 2007中忘記保護(hù)工作表密碼的解決方法
Excel 2007中忘記保護(hù)工作表密碼的解決
作為一名該亞中國(guó)的網(wǎng)站編輯，我有責(zé)任向大家推薦一種Excel中忘記保護(hù)密碼的解決辦法，有了這個(gè)辦法，也許能在你的工作中省去很多煩惱。
一個(gè)最近比較杯具的客戶今天又出了一個(gè)比較杯具的問題，為了防止別人修改他的表格，在Excel中設(shè)置了保護(hù)工作表，之后又戲劇性地忘記了，求解決方案。
值得慶幸的是他使用了Office 2007，眾所周知Office 2007的全新文檔類型是基于XML的，所有的docx、xlsx、pptx等都是標(biāo)準(zhǔn)的zip文件；針對(duì)上面這個(gè)問題，可以采用如下方式解決：
1.將設(shè)置保護(hù)工作表密碼的xlsx擴(kuò)展名更改為zip。
2.直接在7z或者RAR中雙擊打開，找到xlworksheets文件夾下，找到設(shè)置保護(hù)工作表的工作表名，如Sheet1.3.將該XML文件單獨(dú)解壓，使用記事本打開，Ctrl+F找到"SheetProtection”字段，將
4.4.將保存后的XML添加到zip文件原始位置。
5.將ZIP文件改回xlsx，即可去除設(shè)置密碼的工作表保護(hù)。
6.當(dāng)你看了前面5點(diǎn)，應(yīng)該已經(jīng)豁然開朗，那趕快關(guān)注一下我們?cè)搧喼袊?guó)吧，在這里，能讓你只用鼠標(biāo)，就暢游本地，
第二篇：金蝶KIS系統(tǒng)管理員密碼忘記解決方法
金蝶kis帳套管理員密碼忘記的解決方法
方法一：在企業(yè)管理器里更改
a.專業(yè)版在企業(yè)管理里打開AcctCtl數(shù)據(jù)庫,找到t_Users表,將記錄FName = 'admin'行的字段FPassword內(nèi)容清空
b.商貿(mào)版在企業(yè)管理里打開AcctCommerce數(shù)據(jù)庫,找到t_Users表,將記錄FName = 'admin'行的字段FPassword內(nèi)容清空
方法二：在查詢分析器里更改
a.專業(yè)版 use AcctCtl update t_Users set FPassword='' where FName = 'admin'
b.商貿(mào)版
use AcctCommerce update t_Users set FPassword='' where FName = 'admin'
第三篇：撤銷工作表保護(hù)密碼
撤銷工作表保護(hù)密碼”的破解并獲取原始密碼
在日常工作中，您是否遇到過這樣的情況：您用Excel編制的報(bào)表、表格、程序等，在單元格中設(shè)置了公式、函數(shù)等，為了防止其他人修改您的設(shè)置或者防止您自己無意中修改，您可能會(huì)使用Excel的工作表保護(hù)功能，但時(shí)間久了保護(hù)密碼容易忘記，這該怎么辦？有時(shí)您從網(wǎng)上下載的Excel格式的小程序，您想修改，但是作者加了工作表保護(hù)密碼，怎么辦？您只要按照以下步驟操作，Excel工作表保護(hù)密碼瞬間即破！
1、打開您需要破解保護(hù)密碼的Excel文件；
2、依次點(diǎn)擊菜單欄上的工具---宏----錄制新宏，輸入宏名字如:aa；
3、停止錄制(這樣得到一個(gè)空宏)；
4、依次點(diǎn)擊菜單欄上的工具---宏----宏,選aa,點(diǎn)編輯按鈕；
5、刪除窗口中的所有字符(只有幾個(gè)),替換為下面的內(nèi)容；
從橫線下開始復(fù)制
----------------------------Option Explicit
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords.Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / windows passwords and for multiple passwords '
' Norman Harker and JE McGimpsey 27-Dec-2002(Version 1.1)' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub(Version 1.1.1)
' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ “Adapted from Bob McCormick base code by” & _ “Norman Harker and JE McGimpsey”
Const HEADER As String = “AllInternalPasswords User Message” Const VERSION As String = DBLSPACE & “Version 1.1.1 2003-Apr-04” Const REPBACK As String = DBLSPACE & “Please report failure ” & _ “to the microsoft.public.excel.programming newsgroup.”
Const ALLCLEAR As String = DBLSPACE & “The workbook should ” & _ “now be free of all password protection, so make sure you:” & _ DBLSPACE & “SAVE IT NOW!” & DBLSPACE & “and also” & _ DBLSPACE & “BACKUP!, BACKUP！, BACKUP！!” & _ DBLSPACE & “Also, remember that the password was ” & _ “put there for a reason.Don't stuff up crucial formulas ” & _ “or data.” & DBLSPACE & “Access and use of some data ” & _ “may be an offense.If in doubt, don't.”
Const MSGNOPWORDS1 As String = “There were no passwords on ” & _ “sheets, or workbook structure or windows.” & AUTHORS & VERSION Const MSGNOPWORDS2 As String = “There was no protection to ” & _ “workbook structure or windows.” & DBLSPACE & _ “Proceeding to unprotect sheets.” & AUTHORS & VERSION
Const MSGTAKETIME As String = “After pressing OK button this ” & _ “will take some time.” & DBLSPACE & “Amount of time ” & _ “depends on how many different passwords, the ” & _
“passwords, and your computer's specification.” & DBLSPACE & _ “Just be patient!Make me a coffee!” & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = “You had a Worksheet ” & _ “Structure or Windows Password set.” & DBLSPACE & _ “The password found was: ” & DBLSPACE & “$$” & DBLSPACE & _ “Note it down for potential future use in other workbooks by ” & _ “the same person who set this password.” & DBLSPACE & _ “Now to check and clear other passwords.” & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = “You had a Worksheet ” & _ “password set.” & DBLSPACE & “The password found was: ” & _ DBLSPACE & “$$” & DBLSPACE & “Note it down for potential ” & _ “future use in other workbooks by same person who ” & _ “set this password.” & DBLSPACE & “Now to check and clear ” & _ “other passwords.” & AUTHORS & VERSION
Const MSGONLYONE As String = “Only structure / windows ” & _ “protected with the password that was just found.” & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False With ActiveWorkbook
WinTag =.ProtectStructure Or.ProtectWindows End With ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If
MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER Else
On Error Resume Next Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook
.Unprotect Chr(i)& Chr(j)& Chr(k)& _ Chr(l)& Chr(m)& Chr(i1)& Chr(i2)& _ Chr(i3)& Chr(i4)& Chr(i5)& Chr(i6)& Chr(n)If.ProtectStructure = False And _.ProtectWindows = False Then
PWord1 = Chr(i)& Chr(j)& Chr(k)& Chr(l)& _ Chr(m)& Chr(i1)& Chr(i2)& Chr(i3)& _ Chr(i4)& Chr(i5)& Chr(i6)& Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _ “$$”, PWord1), vbInformation, HEADER Exit Do 'Bypass all for...nexts End If End With
Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If
On Error Resume Next For Each w1 In Worksheets 'Attempt clearance with PWord1 w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag Then
For Each w1 In Worksheets With w1
If.ProtectContents Then On Error Resume Next Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126.Unprotect Chr(i)& Chr(j)& Chr(k)& _ Chr(l)& Chr(m)& Chr(i1)& Chr(i2)& Chr(i3)& _ Chr(i4)& Chr(i5)& Chr(i6)& Chr(n)If Not.ProtectContents Then
PWord1 = Chr(i)& Chr(j)& Chr(k)& Chr(l)& _ Chr(m)& Chr(i1)& Chr(i2)& Chr(i3)& _ Chr(i4)& Chr(i5)& Chr(i6)& Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _ “$$”, PWord1), vbInformation, HEADER 'leverage finding Pword by trying on other sheets For Each w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do 'Bypass all for...nexts End If
Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub---------------------------復(fù)制到橫線以上
6、關(guān)閉編輯窗口；
7、依次點(diǎn)擊菜單欄上的工具---宏-----宏,選AllInternalPasswords,運(yùn)行,確定兩次；
等一會(huì),就會(huì)出現(xiàn)以下對(duì)話框：這就是Excel密碼對(duì)應(yīng)的原始密碼(此密碼和原先設(shè)置的密碼都能打開此文檔。如果是別人的文檔，你又想恢復(fù)密碼設(shè)置，就可以用此密碼進(jìn)行保護(hù)，他就能用他設(shè)置的密碼打開，你可以試試，很有趣的。字母一定要大寫)：
第四篇：聯(lián)想A660忘記解鎖密碼或圖案的解決方法
聯(lián)想A660忘記解鎖密碼或圖案的解決方法如下：
本帖隱藏的內(nèi)容
1、先備份你的通訊錄、短信等資料，把我們的聯(lián)想A660連上360手機(jī)助手或豌豆莢等，備份下資料！
2、將我們的聯(lián)想A660關(guān)機(jī)，沒錯(cuò)，是關(guān)機(jī)，不要重啟！
3、我們按住“音量加鍵”不要放，然后再按住“電源鍵”不要放，直到手機(jī)出現(xiàn)進(jìn)入恢復(fù)模式，然后放開。
4、然后，我們就可以看到，一系列的英文選項(xiàng)了，比如“Board Test”、“current test”、“RF Test”、“test flow”等等之類的，我們用音量加減鍵進(jìn)行上下選擇！
5、我們選擇恢復(fù)出廠值，就可以了，然后手機(jī)就會(huì)重啟，你的解鎖圖案就沒有了，也就是解決成功了，呵呵！
第五篇：《國(guó)家學(xué)生體質(zhì)健康標(biāo)準(zhǔn)》忘記用戶名和密碼解決方法
《國(guó)家學(xué)生體質(zhì)健康標(biāo)準(zhǔn)》 忘記用戶名和密碼解決方法
方法
1、若忘記注冊(cè)的用戶名、密碼請(qǐng)回復(fù)學(xué)校地址（省、市、區(qū)）、注冊(cè)時(shí)的校長(zhǎng)、分管副校長(zhǎng)、數(shù)據(jù)測(cè)試負(fù)責(zé)人、聯(lián)系電話等注冊(cè)信息，核實(shí)后回復(fù)您。
方法
2、在網(wǎng)站首頁學(xué)校查詢中看是否可以查詢到學(xué)校代碼，如果可以，請(qǐng)?jiān)谫Y料下載中下載用戶名密碼申請(qǐng)表，重新申請(qǐng)賬號(hào)即可。一兩天內(nèi)給你發(fā)送帳號(hào)。
點(diǎn)擊咨詢 