excel2003打开密码如何解密(excel2003密码设置)

Excel表格网 2022-12-02 22:14 编辑:admin 162阅读

1. excel2003密码设置

以EXCEL2003为例说明如下:

1、在“格式--条件格式”中设好条件格式;

2、在“工具--保护”选定“允许用户编辑区域”,将需要输入的区域设定为“允许用户编辑区域”;

3、在“工具--保护”中选定“保护工作表”,在提示框中输入需要选择的保护内容以及密码等(这时,条件格式、允许用户编辑区域等功能会变成灰色的,无法再操作)。确定。 然后,允许编辑区域,就可以输入数据、文字等了,但是却不能进行剪切、格式修改等我们不希望看到的改动了。

2. excel2003怎么修改密码

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

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

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

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

3. excel2003忘记密码如何打开

EXCEL工作表保护密码破解

方法:

1\打开文件

2\工具---宏----录制新宏---输入名字如:aa

3\停止录制(这样得到一个空宏)

4\工具---宏----宏,选aa,点编辑按钮

5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)

6\关闭编辑窗口

7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!

内容如下:

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

4. excel2003设置密码在哪里设置

excel2003设置成只读的教程:

  设置只读步骤1:打开一份需要添加权限的或者要保密的EXCEL文件。

  设置只读步骤2:如要添加数据,则添加,在添加或者修改完数据之后,点击左上角的文件,点击“另存为”

  设置只读步骤3:就会弹出一个另存为的窗口出来,这时看到窗口的右上角,有个“工具”选项。

  设置只读步骤4:点击“工具”选项。会看到有个“常规选项”。点击“常规选项”就可以看到设置密码,一个是打开权限密码,一个是修改权限密码。如果只设置打开权限密码,那么你打开文件需要密码,修改就不需要了,同理。只设置修改密码,那么修改就要密码,打开不需要密码。如果都设置了,意味着你打开和修改都需要密码。

  设置只读步骤5:设置密码之后,点确定,然后保存就可以了。

  设置只读步骤6:这样当你打开的时候就需要输入密码。

5. 怎么给excel2003文件加密码

我的电脑右键->管理->本地用户和组->用户->“右键”新建用户->输入用户名和密码再点创建就行了!

安装IIS 6.0组建

建立FTP存储文件 如D:\wwwroot\56dr\wwwroot

右键网站->选择添加FTP站点->描述可以根据自己的需要填写->地址一般都是自己的IP地址,端口默认使用21->物理路径指向“D:\wwwroot\56dr\wwwroot”->访问权限要钩上“读取”和“写入”->点击完成就把上传的服务创建好了

给这个目录读写权限

6. excel2003表格设置密码怎么设

1、先全选表格(点表格左上角),点格式>单元格>保护,把锁定和隐藏前的钩去掉;

2、点编辑>定位>定位条件>公式>确定;

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

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

7. excel2003怎么加密码怎么设置密码

1,选择“文件”菜单中的“另存为”命令,在弹出的“另存为”对话框中输入文件名。

2,在该对话框中选择“工具”中的“常规选项”。

3,在弹出的“保存选项”对话框中输入密码。Excel提供了两层保护,如果设置了修改权限密码,那么即使打开文件也还需要输入修改权限的密码。

4,单击“确定”按钮,在弹出的密码确认对话框中重新输入一遍密码,然后单击“确认”按钮,保存完成文件的加密工作。

5,选择“工具”菜单的“选项”命令。

6,在弹出的“选项”对话框中选择“安全性”选项卡,可以为当前工作簿设置“打开权限密码”及“修改权限密码”,设置完成后单击“确定”按钮。

7,当重新打开文件时就要求输入密码,如果密码不正确,文件将不能打开。

8. excel2003密码设置在哪里

应该是启用了保护工作表设置了,你打开只读文件后,工具-选项-安全性-把只读构去掉,并再次打开工具-保护-撤销保护工作表 及工作簿,应该要密码,如果要密码的话,那你就得在网上下载一个专门破解office密码的软件。

9. excel2003 密码

Excle,需要登录才能使用,这个时候我们就需要使用密码和账号了。 如果没有账号和密码,就要及时去询问开发者。 解决方法: 在Excel2003中设的置:打开Excel,选择 工具--选项--常规 中把 “忽略其他应用程序”去掉勾就可以了。 在Excel2007中的设置:选择Excel选项-->高级-->常规-->“忽略使用动态数据交换(DDE)的其他应用程序”勾去掉。 新建Excel文件保存以后可以正常打开,但是以前的Excel文件打不开了。 解决方法:

先打开Excel,然后单击“文件”中的“打开”;

在弹出的“打开”对话框中选择打不开的Excel文件,然后点击右下角“打开”旁边的下拉箭头,选择“打开并修复”即可。

10. excel2003设置打开密码

在win2003的控制面板里面默认情况下是没有“用户和帐号”这一项的,要设置密码只有在装系统的时候或者在管理里面,你可以在我的电脑上点击右键,选择“管理”,然后在“系统工具”下面找到“本地用户和组”,点击“用户”找到要设密码的那一个用户,再点击右键,选择“设置密码……”,就可以设置了!

顶一下
(0)
0%
踩一下
(0)
0%
相关评论
我要评论
点击我更换图片