excel表格老是自動加密

『壹』 我的excel突然自己加了個密碼，以前從來沒設置過，該怎麼辦啊求大俠

在日常工作中，您是否遇到過這樣頃姿的情況：您用雀棚絕Excel編制的報表、表格、程序等，在單元格中設置了公式、函數等，為了防止其他人修改您的設置或者防止您自己無意中修改，您可能會使用Excel的和胡工作表保護功能，但時間久了保護密碼容易忘記，這該怎麼辦？有時您從網上下載的Excel格式的小程序，您想修改，但是作者加了工作表保護密碼，怎麼辦？您只要按照以下步驟操作，Excel工作表保護密碼瞬間即破！
1、打開您需要破解保護密碼的Excel文件；
2、依次點擊菜單欄上的工具---宏----錄制新宏，輸入宏名字如:aa；
3、停止錄制(這樣得到一個空宏)；
4、依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕；
5、刪除窗口中的所有字元(只有幾個),替換為下面的內容；

『貳』 excel2007取消加密保護的教程

在 Excel 中有很多重要的數據前期需要加上密碼保護，但到後期卻已經不再重要需要取消加密保護，下面是我帶來的關於excel 2007取消加密保護的教程的內容，歡迎閱讀!

excel 2007取消加密保護的教程

1、打開 Excel表格 中的Excel選項，選擇自定義，得到如下畫面：

excel2007撤銷保護密碼的 方法 圖1

2、然後在左邊側框欄中選擇「查看宏」

之後雙擊或者選擇添加按鈕，則可以看到右邊欄中有了查看宏按鈕，之後點擊右下角的確定。

3、大家可以在下面這個窗口處看到箭頭所指的按鈕：

點擊按鈕，之後彈出窗口：

excel2007撤銷保護密碼的方法圖2

excel2007撤銷保護密碼的方法圖3

4、在宏名處填寫一個名字(可隨意)，然後點擊創建，彈出以下窗口：

excel2007撤銷保護密碼的方法圖4

5、將窗口內的內容全選後刪除，然後將下面分割線以內的內容開始復制粘貼在上面的窗口內：

從橫線下開始復制

------------------------------------------------------------------------------------------

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?'mmy?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

-----------------------------------------------------------------------------------------

復制到橫線以上

得到情況如下圖表示

excel2007撤銷保護密碼的方法圖5

6、關閉編輯窗口;

7、依次點擊菜單欄上的工具---宏-----宏,選AllInternalPasswords,運行,確定兩次;

等一會,就會出現以下對話框：這就是Excel密碼對應的原始密碼(此密碼和原先設置的密碼都能打開此文檔。如果是別人的文檔，你又想恢復密碼設置，就可以用此密碼進行保護，他就能用他設置的密碼打開，你可以試試，很有趣的。字母一定要大寫)：

再點擊確定。Excel的原始密碼就被清除了!!

excel2007撤銷保護密碼的方法圖6

8、最後記得關閉EXCEL文檔時要保存，否則下回打開，文檔仍舊處於只讀狀態而無法修改。

excel2007取消加密保護的教程相關 文章 ：

★ excel2007取消加密保護的教程

★ excel07取消加密的教程

★ excel2007撤銷保護密碼的方法步驟

★ 怎麼取消excel2007密碼保護

★ excel表格取消加密的教程

★ excel2007撤銷保護的教程

★ excel2007取消密碼保護教程

★ Excel中2007版本進行撤銷工作表保護密碼的操作方法

『叄』 我的excel突然自己加了個密碼，以前從來沒設置過，該怎麼辦啊求大俠

用Microsoft Excel時，我們不免會給Microsoft Excel加上密碼，但時間一長亂七八糟的密碼的太多了，可能就會忘了。那當忘了Microsoft Excel的加密密碼怎麼辦呢，下面讓學習啦小編為你帶來excel表設置密碼後忘記了如何打開的解決方法。
excel表破解密碼步驟：
Excel破解密碼 Excel忘記密碼怎麼解開?Excel Password Unlocker破解版是一款專業用於微軟 Excel 資料庫文檔的密碼破解恢復工具。想必 Excel 應該是辦公一族經常用到的吧，如果你的 Excel 密碼忘記了你可以嘗試使用該軟體進行恢復密碼或者清除密碼。
Excel Password Unlocker 5.0 漢化版是專為恢復丟失的 Microsoft Excel 密碼設計，一個易於使用的工具。密碼修改被恢復在短短的幾秒鍾!對於密碼打開，Excel Password Unlocker 5.0 中文版提供了三種不同的搜索方法：高級字典破解，暴力破解，以及高級強力使用面具攻擊。從97到2007的Excel版本都支持!
方法二
如果Excel文件的打開密碼忘記了，且旅洞密碼是6位數以內的數字，可用以下步驟解開(關掉所有程序，為了速度)：
新開一Excel，同時按Alt和F11，進入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
End Sub
然拆灶枯後在此界面直接按F5運行此宏，選擇文件，等啊等

『肆』 excel文檔如何取消加密

『伍』 excel表格自動有密碼，打開不了，如何解決

首先打開設置了工作表滲租保護的表格，可以看到，當我們叢返兆試圖編輯時，會彈出這樣世高的對話框。 這時如果我們忘記了密碼，可以使用宏命令來將密碼顯示出來，然後輸入正確的密碼即可。具體操作時，要先將宏命令的相關工具按鈕調出來。

『陸』 excel打開自動加密

單擊「文件」「信息」按鈕，後面蔽拆有保護工作簿。

點擊保護工作簿下拉符號，可以看到各種保護的方法。

用密碼加密，判鍵設置密碼即可宏沖棗。

『柒』 excel表格莫名其妙自動上了密碼，如何解決

從截圖來看，你並沒有直接運行Excel主程序的快捷方式來打開Excel主程序，而是唯慧橡雙指旁擊了名為k4.xls的文檔來打開Excel主程序。
如果有，原因是k4.xls文件本身被用戶設置了密碼保護。如果你想打開這個文件，你必須輸入正確的密碼。
如果沒有密碼，又要打開這個文件，可以試試網上的Excel文件秘密破解工具，暴力破解碧伏，然後就可以打開文件了。