给excel210表格加密码(excel2003表格加密)

1. excel2003表格加密

那是因为你把那些EXCEL文件不小心加密了。

你可以对著那些被加密的文件点击鼠标右键，选择“属性”，在“常规”选项卡下面选择“高级”，其中有一项“加密内容以便保护数据”后面点击“详细信息”，其中有一栏为“用户名”，下面的那个信息就是列出了那个文件是被哪个用户加的密，假如你这个密码文件是被USER用户加的密，那麼你用USER这个用户登入电脑，再把加密取消，也就是说把“加密内容以便保护数据”前面的勾去掉就可以了 可以进行复制,剪切操作码

2. excel2003文件加密怎么加密

先了解一下密码是怎么设置的。 excel2007的文档加密：

1. 打开需要加密的Excel2007文档，点击左上角的Office标识，在弹出的对话框中选择“另存为”，或者直接使用快捷键“F12”调出对应窗口；

2. 在弹出的另存为窗口左下角，找到“工具”选项。注意这里是关键，点击它，在弹出的窗口中，选择“常规选项”，在弹出的对话窗口中，就可以对该Excel文档进行密码设置；

3. 密码设置分为“打开权限密码”、“修改权限密码”以及“建议只读” 。 excel2003的文档加密： 工具--选项--安全性--此工作簿的文件共享设置里修改权限密码处输入你设置的密码，确定，重复输入即可。 取消密码的方法就是，按照上面的操作步骤打开需要设置密码的地方，把密码（显示星号）删除掉，再保存就可以了。

3. excel2003表格加密怎么操作

1、先全选表格（点表格左上角），点格式＞单元格＞保护，把锁定和隐藏前的钩去掉；

2、点编辑＞定位＞定位条件＞公式＞确定；

3、再点格式＞单元格＞保护，在锁定和隐藏前的方框中打上钩；

4、点工具＞保护＞保护工作表，在保护工作表对话框中输入密码（如不需要密码也可以不输）＞确定。这样有公式的单元格受到保护，其它单元格不受影响，照常可输入数据。

4. excel2003文档怎么加密码保护

你指的是加密吧！ 在工具，选项，安全性里取消掉就可以了。

5. excel2003表格如何加密码

新建一个EXCEL工作表，而后点击另存为，讲表格保存为启用宏的工作表

一次点击开发工具---录制新宏，在弹出的对话框内修改宏名称而后确定

依次点击开发工具----停止录制宏，宏录制完成

依次点击开发工具，---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入VBA界面

在VBA界面，全选里面的代码，而后删除，讲里面的代码全部删除完

代码复制到VBA编辑窗口内

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

点击保存

点击开发工具，宏，找到我们刚才录制的宏，点击执行宏

而后，在弹出的所有对话框上，都点击确定，都确定，1分钟后，就可以编辑了

6. excel2003表格加密了,怎么打开

一、先说整个工作表保护加密的方法

　excel加密功能如何使用，具体步骤如下：　　1、打开excel软件，新建一个工作簿，默认有三张表格。

　　2、点击“审阅”选项卡，点击“保护工作表”。

　　3、设置密码，下面可以选择具体的权限，可以全部勾选，也可以部分勾选。

　　4、选择保护选定单元格，双击单元格的时候会报错，提示正在试图修改被保护的只读单元格或图表，不能编辑它.

　　5、我们知道一个工作簿中间可以有多个工作表，默认有sheet1，sheet2，sheet3，我们可以对工作表进行增删改等操作，excel提供保护整个工作簿的功能。设置密码保护后，就不能修改工作表。

　　6、设置密码，同样权限可以选择，一般要选结构。　　7、右键工作表，里面的编辑功能菜单都是灰色的，不能编辑。

　　8、如果自己要对所保护的excel文档进行操作的话，我们需要撤销保护。同样在工具-保护中间，输入密码，撤销保护。

二、部分内容保护加密

1、在以上内容中设置好保护整个工作表后，可以进行部分不加密的区域的操作：

在“审阅”选项卡里，选择允许用户编辑区域，依次按照下列图片所示的框起来的步骤操作。将D1：E13的区域设置为可编辑的区域。

excel不同版本密码设置位置不同　　2003版本的在工具——保护—中间设置保护密码；

7. excel2003表格加密怎么弄

excel文档密码破解方法汇总：借助Excel密码破解工具，Excel密码破解只需几秒钟的事情。

1、AccentOFFICEPasswordRecovery特点：成功破解过的密码都会被记录下来用作下一次破解，破解已经破解过文档不费吹灰之力。

2、OfficePasswordRemover特点：在线秒杀所有采用普通加密方式的“.doc”、“.xls”、“.ppt”文档。缺点：付款才能看到完整的被破解的文档，必须上网才能用。

3、AdvancedOfficePasswordRecovery特点：功能无比强大，如果上面两款都破解不了，这款是最终武器。

4、OfficePasswordUnlocker特点：由于前三款Excel密码破解工具已经够用，这款功能其实也不差，但对笔者而言是凑数用。方法：先用MicrosoftOffice Excel2003（可用金山WPSOffice2012表格代替）创建一个“2003.xls”的普通方式加密Excel文档，然后用OfficePasswordRemover这个在线破解工具来破解，1,2,3，3秒之后，就生产一个已经被成功破解的新Excel文档——2003（DEMO）.xls。破解一个普通加密方式的Excel文档，只需3秒钟！如果真的不信，可以自己测试一下。

8. excel2003表格加密码

这个要看是什么版本的Excel EXCEL2003: 方法1 工具---保护---写密码----确定 (这种方法保存的表格不能防止他人查看工作表中的内容）

方法2 工具----选项---安全性----打开权限密码 EXCEL2010: 文件保存后： 文件--信息--保护工作簿里面有设置密码/权限的选项，根据需要设置！