为您找到与excel2007加密文件怎样取消加密相关的共200个结果:
Excel中经常需要把已经加密的文档进行取消加密的操作,取消加密功能具体该如何实现呢?下面是读文网小编带来的关于excel2007取消加密功能的教程,希望阅读过后对你有所启发!
步骤1:2007版Excel表格中可以按照以下方式建宏:
步骤2:打开Excel表格中的Excel选项,选择自定义,得到如下画面:
步骤3:然后在左边侧框栏中选择“查看宏”
之后双击或者选择添加按钮,则可以看到右边栏中有了查看宏按钮,之后点击右下角的确定。
步骤4:大家可以在下面这个窗口处看到箭头所指的按钮:
点击按钮,之后弹出窗口:
步骤5:在宏名处填写一个名字(可随意),然后点击创建,弹出以下窗口:
步骤6:将窗口内的内容全选后删除,然后将下面分割线以内的内容开始复制粘贴在上面的窗口内:
从横线下开始复制
------------------------------------------------------------------------------------------
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
-----------------------------------------------------------------------------------------
复制到横线以上
得到情况如下图表示
步骤7:关闭编辑窗口;
步骤8:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
步骤9:等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):
步骤10:再点击确定。Excel的原始密码就被清除了!!
步骤11:最后记得关闭EXCEL文档时要保存,否则下回打开,文档仍旧处于只读状态而无法修改。
看了excel2007取消加密功能的教程还看了:
浏览量:2
下载量:0
时间:
在Excel中录入好重要资料的时候都需要进行密码保护处理,而过了一段时间后却觉得不再需要用到密码进行保护了,这个时候就需要用到取消加密的功能了,具体该如何取消加密的功能呢?下面是由读文网小编分享的excel2007 取消加密的有效方法,以供大家阅读和学习。
取消加密步骤1:打开Excel表格中的Excel选项,选择自定义,得到如下画面:
取消加密步骤2:然后在左边侧框栏中选择“查看宏”
之后双击或者选择添加按钮,则可以看到右边栏中有了查看宏按钮,之后点击右下角的确定。
取消加密步骤3:大家可以在下面这个窗口处看到箭头所指的按钮:
点击按钮,之后弹出窗口:
取消加密步骤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 " & _
#p#副标题#e#
"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
-----------------------------------------------------------------------------------------
取消加密步骤6:复制到横线以上
取消加密步骤7:得到情况如下图表示
取消加密步骤8:关闭编辑窗口;
取消加密步骤9:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
取消加密步骤10:等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):
取消加密步骤11:再点击确定。Excel的原始密码就被清除了!!
取消加密步骤12:最后记得关闭EXCEL文档时要保存,否则下回打开,文档仍旧处于只读状态而无法修改。
浏览量:2
下载量:0
时间:
在Excel中有很多重要的数据前期需要加上密码保护,但到后期却已经不再重要需要取消加密保护,下面是读文网小编带来的关于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?'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
-----------------------------------------------------------------------------------------
复制到横线以上
得到情况如下图表示
excel2007撤销保护密码的方法图5
6、关闭编辑窗口;
7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):
再点击确定。Excel的原始密码就被清除了!!
excel2007撤销保护密码的方法图6
8、最后记得关闭EXCEL文档时要保存,否则下回打开,文档仍旧处于只读状态而无法修改。
浏览量:2
下载量:0
时间:
你知道怎么加密幻灯片文件吗?下面读文网小编就为你介绍怎么加密ppt文件的方法啦!
加密ppt文件的方法:
单击左上角的【office】按钮
在下拉列表选择【准备】,在子菜单中单击选择【加密文件】
弹出如图窗口,输入密码,单击【确定】
此时还会弹出一个窗口要你确认密码
这个时候,你再打开文件,会弹出如下图的窗口提醒你输入密码。
加入你想更改密码,同样单击【office】按钮,同样选择【准备】下的【加密文档】
出现下图窗口,重新输入你想更改的密码
再次确认你想更改的密码
如果你想要删除密码,在弹出【加密文档】的窗口时直接把密码删除就可以了
如下图,文本框清空即可
浏览量:4
下载量:0
时间:
我们在安装软件时,经常会遇到打开某类文件的程序关联问题,那么Win8怎么取消文件打开方式关联呢?读文网小编分享了Win8取消文件打开方式关联的方法,希望对大家有所帮助。
1、找到HKEY_CLASSES_ROOT.jsp ,默认字符串值中删除数据jsp_auto_file;
2、找到HKEY_CLASSES_ROOTjsp_auto_file, 删除jsp_auto_file整个文件夹;
3、找到HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionExplorerFileExts.jsp,只保留OpenWithList项,其余全部删除,OpenWithList只保留默认值,其余的也删除;
4、重启Win8系统电脑;
Win8系统取消文件打开方式关联的操作方法就介绍完了,当然你也可以选择不取消文件关联来修改默认打开方式,只要右键程序图标,选择你想要用来打开文件的程序就可以了。
看过“Win8怎么取消文件打开方式关联”
浏览量:3
下载量:0
时间:
相信使用过Win7的朋友都会遇上这样一个问题:有些情况下,不想让自己的东西给别人看到,总想让自己的一些“私隐”给藏起来,那么你知道win7电脑文件夹怎么加密吗?下面是读文网小编整理的一些关于win7电脑文件夹加密的相关资料,供你参考。
其实,Win7隐藏文件方法有狠多,除了不太推荐的直接设置隐藏文件外,还可以借助第三方的加密软件,不过目前网上的很多加密软件功能也一般,并且很多隐藏了病毒,因此不建议大家采用,下面带来一种简单粗糙,很多人又不知道的Win7文件加密技巧。
第一步:首先在Win7开始菜单中,点击打开“运行”,然后输入 cmd 按回车键打开,如图。
运行命令
第二步:然后是通过命令创建加密文件夹,具体方法是键入命令: md d:aaa.. 完成后,按回车键,如图。
注:md d:aaa.. 命令的意思,就是在 D盘 建立一个 aaa命名的加密文件(在md后面有一个空格,在aaa后面还有两个小点还有一个斜杠,一定要带上去),当然,你也可以在其它盘建立,简单改下命令即可。
第三步:创建好加密文件夹后,这个文件是不能直接打开的,如果要打开怎么办呢?继续在dos命令里面输入:start d:aaa.. (注意:格式跟刚才那个是一样的,都有一个空格,键入完命令,按 回车键 运行即可)
第四步:打开创建的加密文件夹后,之后就可以把自己的隐私文件或者一些比较重要的东西放在这个文件夹中,这样别人一般打不开哦。
win7电脑文件夹加密的相关
浏览量:2
下载量:0
时间:
现在的个人隐私以及文件安全性越来越重要。那么大家知道电脑如何加密和解密文件或文件夹吗?读文网小编分享了电脑加密和解密文件或文件夹的方法,希望对大家有所帮助。
一、加密文件或文件夹
步骤一:打开Windows资源管理器。
步骤二:右键单击要加密的文件或文件夹,然后单击“属性”。
步骤三:在“常规”选项卡上,单击“高级”。选中“加密内容以便保护数据”复选框
在加密过程中还要注意以下五点:
1.要打开“Windows 资源管理器”,请单击“开始→程序→附件”,然后单击“Windows 资源管理器”。
2.只可以加密NTFS分区卷上的文件和文件夹,FAT分区卷上的文件和文件夹无效。
3.被压缩的文件或文件夹也可以加密。如果要加密一个压缩文件或文件夹,则该文件或文件夹将会被解压,There is a feeling called love。
4.无法加密标记为“系统”属性的文件,并且位于systemroot目录结构中的文件也无法加密。
5.在加密文件夹时,系统将询问是否要同时加密它的子文件夹。如果选择是,那它的子文件夹也会被加密,以后所有添加进文件夹中的文件和子文件夹都将在添加时自动加密。
二、解密文件或文件夹
步骤一:打开Windows资源管理器。
步骤二:右键单击加密文件或文件夹,然后单击“属性”。
步骤三:在“常规”选项卡上,单击“高级”。
步骤四:清除“加密内容以便保护数据”复选框。
同样,我们在使用解密过程中要注意以下问题:
1.要打开“Windows资源管理器”,请单击“开始→程序→附件”,然后单击“Windows资源管理器”。
2.在对文件夹解密时,系统将询问是否要同时将文件夹内的所有文件和子文件夹解密。如果选择仅解密文件夹,则在要解密文件夹中的加密文件和子文件夹仍保持加密。但是,在已解密文件夹内创立的新文件和文件夹将不会被自动加密。
以上就是使用文件加、解密的方法!而在使用过程中我们也许会遇到以下一些问题,在此作以下说明:
1.高级按钮不能用
原因:加密文件系统(EFS)只能处理NTFS文件系统卷上的文件和文件夹。如果试图加密的文件或文件夹在FAT或FAT32卷上,则高级按钮不会出现在该文件或文件夹的属性中。
解决方案:将卷转换成带转换实用程序的NTFS卷。
打开命令提示符。
键入:Convert [drive]/fs:ntfs
(drive 是目标驱动器的驱动器号)
2.当打开加密文件时,显示“拒绝访问”消息
原因:加密文件系统(EFS)使用公钥证书对文件加密,与该证书相关的私钥在本计算机上不可用。
解决方案:查找合适的证书的私钥,并使用证书管理单元将私钥导入计算机并在本机上使用。
3.用户基于NTFS对文件加密,重装系统后加密文件无法被访问的问题的解决方案(注意:重装Win2000/XP前一定要备份加密用户的证书):
步骤一:以加密用户登录计算机。
步骤二:单击“开始→运行”,键入“mmc”,然后单击“确定”。
步骤三:在“控制台”菜单上,单击“添加/删除管理单元”,然后单击“添加”。
步骤四:在“单独管理单元”下,单击“证书”,然后单击“添加”。
步骤五:单击“我的用户账户”,然后单击“完成”(如图2,如果你加密用户不是管理员就不会出现这个窗口,直接到下一步) 。
步骤六:单击“关闭”,然后单击“确定”。
步骤七:双击“证书──当前用户”,双击“个人”,然后双击“证书”。
步骤八:单击“预期目的”栏中显示“加密文件”字样的证书。
步骤九:右键单击该证书,herve paris,指向“所有任务”,然后单击“导出”。
步骤十:按照证书导出向导的指示将证书及相关的私钥以PFX文件格式导出(注意:推荐使用“导出私钥”方式导出,air max 2009,这样可以保证证书受密码保护,以防别人盗用。另外,证书只能保存到你有读写权限的目录下)。
4.保存好证书
注意将PFX文件保存好。以后重装系统之后无论在哪个用户下只要双击这个证书文件,导入这个私人证书就可以访问NTFS系统下由该证书的原用户加密的文件夹(注意:使用备份恢复功能备份的NTFS分区上的加密文件夹是不能恢复到非NTFS分区的)。
最后要提一下,这个证书还可以实现下述用途:
(1)给予不同用户访问加密文件夹的权限
将我的证书按“导出私钥”方式导出,将该证书发给需要访问这个文件夹的本机其他用户,请你转载一下吧。然后由他登录,导入该证书,实现对这个文件夹的访问。
(2)在其也WinXP机器上对用“备份恢复”程序备份的以前的加密文件夹的恢复访问权限
将加密文件夹用“备份恢复”程序备份,然后把生成的Backup.bkf连同这个证书拷贝到另外一台WinXP机器上,用“备份恢复”程序将它恢复出来(注意:只能恢复到NTFS分区)。然后导入证书,即可访问恢复出来的文件了。
看过“电脑如何加密和解密文件或文件夹”
浏览量:2
下载量:0
时间:
在平常的工作中,有时候我们为了保证信息的安全性总是喜欢建立一个文件夹然后进行加密,虽然这一操作很容易,但是对于普通用户来说却是不简单,那么你知道win7文件夹怎么加密码吗?下面是读文网小编整理的一些关于win7文件夹加密码的相关资料,供你参考。
1、加密软件有很多,下面我以自己使用的文件夹加密高级版软件给大家介绍一下。首先下载这个软件,然后在电脑上安装。
2、安装完成以后运行这个软件,软件界面如图。
3、选择文件夹加密,然后点击选择文件夹,浏览并选中自己要加密的文件夹。
4、点击确定后会自动弹出一个加密的对话框,输入密码后选择快速加密,也可以选择其他加密类型,然后是密码提示问题,这个要选择一个只有自己知道的问题和答案。
5、点击确定后如果加密成功会弹出加密成功的一个对话框。
6、在软件的界面里面也会出现我们加密的文件夹。
7、这时我们看一下加密的文件夹,标志已经变了,自己要想打开的话还需要输入密码才能打开。
8、然后输入密码打开文件夹,如果忘记密码的话就需要在急救中心解密文件夹。
9、然后选择回答问题,回答成功的话文件夹就可以解密了。
win7文件夹加密码的相关
浏览量:2
下载量:0
时间:
在我生活中经常有需要给excel软件加密的情况,涉及一些比较私人的文档或者机密的文档,一般人不会去选择用专用的加密工具,因为工具贵,接下来是读文网小编为大家带来的excel2007数据加密的方法,供大家参考。
数据加密步骤1:很多时候为了文件的安全,我们要对文件进行加密。很多人都不清楚,在excel本身就有加密功能
在excel2007的页面点击【offic 按钮】
数据加密步骤2:在点击过【offic 按钮】后得到
数据加密步骤3:选着【准备(E)】点击【加密文档(E)】
数据加密步骤4:出现【加密文档】,输入密码然后点击【确定】
数据加密步骤5:再次确认密码,然后【确定】,加密成功
数据加密步骤6:再次打开该文档是就会出现
数据加密步骤7:输入设置的密码即可打开文档
浏览量:3
下载量:0
时间:
很多用户为了操作方便,一般情况下都会建立共享文件,那么大家知道win10怎么取消共享文件吗?读文网小编分享了win10取消共享文件的方法,希望对大家有所帮助。
一般情况下建立共享文件件方便数据操作,方便的同时也存在着缺点,就是谁都可以访问,要想取消共享怎么操作呢?如下图有详细的操作步骤。
关闭共享
1、如下图所显示出来,共享文件夹是共享的。
2、首先右击共享,在单击属性。
3、出现了共享属性,单击共享。
4、这里可以看到网络路径是共享的,单击高级共享。
5、高级共享选项里共享此文件夹是打勾的,要取消他。
6、取消后在单击确定完成,另外的电脑访问不到了。
浏览量:2
下载量:0
时间:
出于安全的需求以及隐私的保护,有时候我们需要对压缩包文件进行加密,那么你知道rar压缩文件怎么添加密码吗?下面是读文网小编整理的一些关于rar压缩文件添加密码的相关资料,供你参考。
我们双击或右键打开已经压缩好的文件。
在弹出的窗口中,我们选择“文件”,然后我们在选择“设置默认密码”,或者快捷键Ctrl+P。
在弹出的窗口中,我们输入密码确认即可。
rar压缩文件添加密码的相关
浏览量:2
下载量:0
时间:
工作中,很多电脑是多人共用的,那么如何给文件夹加密,让其他人无法浏览你不想让别人知道的资料内容呢,今天读文网小编给大家介绍下windows7怎么给文件夹加密码。
利用第三方软件,此加密软件没有安装程序,直接双击打开即可,然后点击软件的【文件夹加密】功能按键,弹出浏览文件夹对话框,选中自已要加密的文件夹,点击确定,输入文件夹加密密码两次(注:勾选显示密码,就可以支持中文密码输入,这点跟上述压缩文件加密是是类似的),再点击确完成文件夹加密。
浏览量:3
下载量:0
时间:
每个人的电脑里多少都会有些敏感的私人文件或者是重要的商业资料,那么大家知道windows7系统怎么给文件夹加密吗?今天读文网小编与大家分享下windows7系统给文件夹加密的具体操作步骤,有需要的朋友不妨了解下。
把文件或文件夹压缩成winrar的加密压缩文件夹,右键点击要压缩的文件,选择“添加到压缩文件”选项;
2打开压缩文件名和参数对话框,选择高级选项卡,点击设置密码按钮,然后输入密码后确定;
浏览量:3
下载量:0
时间:
因为我们在平时的生活和工作中经常会有一些需要保存保密的文件夹,那么win7系统怎么加密文件夹呢?下面读文网小编就为大家带来了win7系统加密文件夹的方法。
1、网上搜索打开之后,在里面直接的输进去第三方加密软件的名字,然后出来之后找到比较安全的下载地址进行下载。
2、下载完成之后进行安装,接着就把加密工具直接打开,就会弹出来下图所示的页面,然后就直接单击上面出现的文件夹加密命令。
3、这时就会弹出来下图那样的文件夹选择框,然后就寻找需要加密的文件夹,单击下面的确定按钮。
4、然后会弹出来下图那样的输入框,在里面直接输进想好的密码,单击下面的确定俺就后,就完成文件夹的加密,以后打开的时就需要先输入密码才可以。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到取消隐藏工作表的技巧把隐藏的工作表设置为显示,工作表具体该如何进行取消隐藏呢?下面是由读文网小编分享的excel2007取消隐藏工作表的方法,以供大家阅读和学习。
取消隐藏工作表步骤1:首先查看工作表是否被保护
取消隐藏工作表步骤2:点击保护工作表,若已经设置保护,请输入保护密码。下图为没有设置保护工作表:
取消隐藏工作表步骤3:在excel2007中操作流程为 :视图→窗口
取消隐藏工作表步骤4:点击取消隐藏
取消隐藏工作表步骤5:选择需要显示的工作表,点击确定。
取消隐藏工作表步骤6:在工作表名称位置点击鼠标右键→点击“取消隐藏”→选择需要显示的工作表。
取消隐藏工作表步骤7:选中工作表名称,右键点击
取消隐藏工作表步骤8:点击取消隐藏或点击取消工作表隐藏
取消隐藏工作表步骤9:选择需要显示的工作表,点击确定。
取消隐藏工作表步骤10:工作表内的表格部分被隐藏
取消隐藏工作表步骤11:看下图中的表格,未被隐藏前:
取消隐藏工作表步骤12:隐藏后:6、7列数据被隐藏
取消隐藏工作表步骤13:右键点击A、B.....列
取消隐藏工作表步骤14:点击取消隐藏,隐藏表格出现:
浏览量:2
下载量:0
时间:
Excel中已经加了密码的文档具体该如何操作才能把加了密码的文档给取消加密呢?下面是读文网小编带来的关于excel取消加密的方法,希望阅读过后对你有所启发!
步骤1:先录入密码,确定打开要取消密码的excel文件。
步骤2:在文件菜单下点击另存为,取消密码的办法其实就是再把文件保存一次,在保存替换原文件或重命名时将密码取消掉。
步骤3:点击工具选择常规选项
步骤4:删除密码,点击确定并保存。
步骤5:提示文件已存在要替换它吗?如果想要覆盖原文件直接点击是就替换掉了。
步骤6:如果想保留原文件重新存一份,点击否再修改文件名保存为一份新的文件。
浏览量:3
下载量:0
时间:
Excel中经常需要使用到加密功能对重要的文档进行加密,文档加密具体该如何操作呢?接下来是读文网小编为大家带来的excel2007文档加密教程,供大家参考。
文档加密步骤1:打开你需要加密的excel文档,点击“文件”,选择“另存为”,如下图一
图一
文档加密步骤2:选择另存为“excel工作簿”;
文档加密步骤3:在“另存为”界面选择“工具(L)”,在工具菜单选择“常规选项(G)”,如下图二
图二
文档加密步骤4:“常规选项(G)”中输入密码,如下图三。其中打开权限密码和修改权限密码分别设置就可以了。
图三
文档加密步骤5:保存文件。
文档加密步骤6:打开刚刚保存的文件,出现,输入密码对话框,在对话框里输入对应密码就可以了。见下图四。
图四
浏览量:3
下载量:0
时间: