excel宏窗口密码怎么修改,窗口,密码,修改

1.想录制一个EXCEL宏,要求能修改打开密码,不知该在何处加上适当

可以做一个简单的程序，自动修改密码： 下面为VB打开一个有密码的xls文件然后修改密码的函数，贴粘即可使用。

Function UnprotectXL(filePath, fileName, pwd, writeresPwd) Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False testData = filePath & "\" & fileName Set oWorkbook = objExcel.Workbooks Set myWkbook = objExcel.Workbooks.open(testData, 0, False, 5, pwd, writeresPwd) objExcel.DisplayAlerts = False oWorkbook(fileName).Activate For Each w In objExcel.Workbooks w.SaveAs testData, , "", "" Next objExcel.Workbooks.Close objExcel.Quit Set oWorkbook = Nothing Set objExcel = Nothing End Function 。

2.如何对excel中的宏设置密码保护

在单位经常是多个人共用一台电脑，这样一来，自己制作的Excel表格，不希望别人查看，我们可以为其设置密码。

1、启动Excel，打开相应的工作簿文档，执行“工具→选项”命令，打开“选项”对话框。

2、切换到“安全性”标签下，在“打开权限密码”右侧的方框中输入密码，按下“确定”按钮，再输入一次密码，确定返回。

3、保存一下文档。

经过这样设置后，如果需要打开该工作簿时，必须输入正确的密码，否则无法打开。

注意：打开“选项”对话框，切换到“安全性”标签下，把“打开权限密码”右侧的方框中的密码清除，确定返回，再保存一下文档，即可清除文档的密码。

1.在“文件”中选择“另存为” 2.在“另存为”对话框的右上角点“工具” 3.在“工具”下拉菜单中选择“常规选项” 4.在打开的对话框中输入密码，点“确定”即可。

3.Excel 录制宏时,密码解除与加密问题求助

本人曾经用过的，供您参考。相应的内容您自己修改。防君子的，哈哈。

Private Sub Password()

'为每张表设置密码84543733

Dim shtSheet As Worksheet

For Each shtSheet In Sheets

shtSheet.Activate

ActiveSheet.Protect DrawingObjects:=True, Password:="84543733", Contents:=True, Scenarios:= _

False, AllowFormattingCells:=True, :=True, _

AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True

Next shtSheet

End Sub

Private Sub unpassword()

'为每张表取消密码

Dim shtSheet As Worksheet

For Each shtSheet In Sheets

shtSheet.Activate

ActiveSheet.Unprotect Password:="84543733"

Next shtSheet

End Sub

4.EXCEL中有一个宏,删除这个宏要输入密码,请问何解

这个得吧宏密码破解了才行 破解方法如下------------------------------ EXCEL工程密破解 EXCEL工程密破解，以下方法十分有效的帮你打开VBA工程密码保护的工程，教你破解VBA工程密码，解除VBA工程密码保护下的EXCEL文档，破解EXCEL原来如此简单.--------------在办公中我们常看到许多用宏（VBA）编写的EXCEL表格，而这些表格就如同一个数据库，我们可以选取或查询很多的数据，一般的这些数据是存放在一个隐藏的工作表中的，那么要如何显示这个隐藏的工作表呢？我们可以打开宏编辑器（ALT+F11），再安CTRL+R打开专案，这时弹出窗会有所有的这个EXCEL的工用表，这时你就可以看看那些是被隐藏的了，很多时候打开是需要密码的，用以下方法解密后，再将解密后文件打开，依同样方法在工作表标签中右键>>检视程式码>>复制以下代码>>按F8执行 Private Sub CommandButton1_Click() Worksheets（"这里为你要显示的工作表名称"）.Visible = True End Sub 关于破解EXCEL VBA工程密码的方法，以下代码非常有效，首先建一新EXCEL文件，在工作表标签处右点>>检视程式码>>复制以下代码>>按F8执行 在弹出窗中选你要你破解工程密码的EXCEL文件 >>再按F5执行即可.Private Sub VBAPassword（) '你要解保护的Excel文件路径 Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解"） If Dir(Filename) = "" Then MsgBox "没找到相关文件，清重新设置。

" Exit Sub Else FileCopy Filename, Filename & ".bak" '备份文件。 End If Dim GetData As String * 5 Open Filename For Binary As #1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF(1) Get #1, i, GetData If GetData = "CMG=""" Then CMGs = i If GetData = "[Host" Then DPBo = i - 2: Exit For Next If CMGs = 0 Then MsgBox "请先对VBA编码设置一个保护密码。

"， 32， "提示" Exit Sub End If If Protect = False Then Dim St As String * 2 Dim s20 As String * 1'取得一个0D0A十六进制字串 Get #1, CMGs - 2, St'取得一个20十六制字串 Get #1, DPBo + 16, s20'替换加密部份机码 For i = CMGs To DPBo Step 2 Put #1, i, St Next'加入不配对符号 If (DPBo - CMGs) Mod 2 0 Then Put #1, DPBo + 1, s20 End If MsgBox "文件解密成功。

"， 32， "提示" End If Close #1 End Sub'-----重要：如果上面代码不能运行或出错，请用以下代码重试.Private Sub VBAPassword（)'你要解保护的Excel文件路径 Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解"） If Dir(Filename) = "" Then MsgBox "没找到相关文件，清重新设置。" Exit Sub Else FileCopy Filename, Filename & ".bak" '备份文件。

End If Dim GetData As String * 5 Open Filename For Binary As #1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF(1) Get #1, i, GetData If GetData = "CMG=""" Then CMGs = i If GetData = "[Host" Then DPBo = i - 2: Exit For Next If CMGs = 0 Then MsgBox "请先对VBA编码设置一个保护密码。"， 32， "提示" Exit Sub End If Dim St As String * 2 Dim s20 As String * 1'取得一个0D0A十六进制字串 Get #1, CMGs - 2, St'取得一个20十六制字串 Get #1, DPBo + 16, s20'替换加密部份机码 For i = CMGs To DPBo Step 2 Put #1, i, St Next'加入不配对符号 If (DPBo - CMGs) Mod 2 0 Then Put #1, DPBo + 1, s20 End If MsgBox "文件解密成功。

"， 32， "提示" Close #1 End Sub。

5.怎么解密EXCEL里的宏密码

第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“确定”退出；

再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBreaker（图3），点击“确定”退出；

第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisual Basic”编辑器，用如下内容替换右侧窗口中的所有代码：

Sub PasswordBreaker()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

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

ActiveSheet.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 ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

ActiveWorkbook.Sheets(1).Select

Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了。

第四步：切换“审阅”选项卡，点击“撤消工作表保护”，然后输入密码即可解除锁定。