excel表格设置多人修改密码(excel表格如何设置修改密码)

1. excel表格如何设置修改密码

当我们已经完成了整个excel表格的编辑，这里黄色区域为输入密码可供用户编辑，绿色区域为不需要密码可直接编辑，未标颜色区域为不可编辑区域。

第二步，选择审阅---允许用户编辑区域

第三步，新建

第四步，选择新建区域

第五步，返回到新建页面

第六步，这步设置为不需要密码可直接编辑区域

第七步，再次新建一个需要密码编辑的区域

第八步，选择区域

第九步，选择区域并返回

第十步，输入设置的编辑密码

第十一步，再次输入编辑密码

第十二步，确认，并设置成功

2. excel表格如何设置修改密码保存

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

3. excel表格怎么更改密码

首先点击“文件”菜单栏，然后单击“信息”，在信息下方选择“保护工作簿”，在保护工作簿下方，单击倒三角，然后选择用密码进行加密。

以上是等针对Excel文件的加密以及修改的步骤。

也可以通过Excel中“审阅”菜单栏，通过操作需求，点击设定保护工作表或保护工作簿。

4. excel表格加密码怎么设置

点击菜单栏“文件”选择

点选“另存为”选项弹出保存设置界面

点击“工具”按扭，在工具下拉列表框中选择“常规选项”

较低版本的EXCEL直接是“选项”按扭。

在“常规选项”界面，分别设置“打开权限密码”与“修改权限密码”

设置密码后，并勾选“只读”，点击“确定”后会弹出一个确认密码的对话

再次输入密码，与“打开权限密码”相同

点击确认后，会再弹出“重新输入修改权限密码”，再次输入与之前修改权限的密码相同的密码之后，点击确定关闭对话框

点击保存按扭保存工作表

此时，找到保存目录，找到该工作表，打开工作表后就会出现要求输入密码的对话框了

5. excel表格怎么修改密码怎么设置

可以分为以下步骤：

1.打开Excel文件，选择工具>选项，弹出对话框后，选择“安全性”。在“打开权限密码”中设置密码。

2.关闭这个文件，重新打开工作簿，就弹出了需要输入密码的界面。

3.选择“工具>保护工作表”，在“取消工作表保护时使用的密码”中再输入一个密码。在“允许此工作表的所有用户进行”中根据自己需求勾选。

4.现在我们更改表格里的数据，就会跳出如下对话框，要求我们输入密码。

5.为了不让表格被他人删除，我们选择“工具>保护工作簿”

6.这样整个Excel工作簿就不能够被随意打开、编辑以及删除了。

6. excel表格如何设置修改密码保护

1、先找到有工作表保护密码的Excel表格，然后将忘记密码的Excel文件名称后缀由 .xlsx改为 .rar，如果有提示可以忽略，一般不会造成什么影响。

2、用压缩文件打开忘记密码的Excel文件，然后按以下步骤进行操作：xl——worksheets——sheet1.xml（这里是将sheet1工作表设置了保护密码，可根据实际情况选择相应文件名）。

3、从压缩文件里面找到sheet1.xml文件，然后拖拽至一个方便找到的位置（因为我们要对其要进行修改） 。然后将sheet1.xml文件右击选择用记事本打开方式打开。

4、然后搜索，“protection”，把从这一段代码，全部删除掉。

5、然后再把修改后的sheet1.xml文件，选择拖拽到压缩的工作薄中，选择替换掉即可，点击确定。

6、最后一步，和第一步相反，把文件名称后缀，由“演示表格.rar”重新更改“演示表格.xlsx”。最后打开Excel表格，你会惊喜地发现是不是保护密码都取消了吧。

7. 如何给excel表格设置修改密码

excel表格需密码才能修改，需要两部1,选中用户不可随意修改的范围>点击右键>设置单元格格式>在保护窗口>勾选锁定2,点击菜单工具>保护>保护工作表>输入密码同时勾选选定锁定单元格>再次输入密码

8. excel表怎么修改密码

首先我们点击打开一个加密的excel文档，然后输入密码。点击左上【文件】进入。

再点击【信息】，提示工作簿已经加密，我们点击打开。

选择【用密码进行加密】，输入修改后的密码，点击【确定】，我们保存完就可以重新用新密码登录了。大家可以动手试试看哦。

9. excel表格如何设置修改密码格式

设置方法：我们只需要点击审阅选项卡，然后点击保护工作表，然后我们输入一个密码，点击确定，即可

部分区域保护

有的时候，表格里面部分数据需要同事协同修改，其它的位置不让更改，例如黄色的区域大家是可以更新的，其它区域不能进行修改，效果如下：

设置方法分两步就可以完成

第一步，我们需要选中可以进行修改的部分，按CTRL+1快捷键，或者右键，设置单元格格式，找到保护选项卡下，把锁定进行取消勾选

第二步，和之前的步骤一样，我们在审阅里面，进行保护工作表即可

这样黄色区域的数据就可以进行编辑，其他区域编辑的时候就会提示错误。

如果我们可编辑的区域是不连续的时候，可以选中数据区域，然后按住CTRL键，再选中另一个区域，再进行单元格设置，将保护锁定进行取消