怎么把exce表加上密码，就是要打开表就一定要有密码才能开的？l_百度知道
怎么把exce表加上密码，就是要打开表就一定要有密码才能开的？l
提问者采纳
//g点击&nbsp.jpg" esrc="http.hiphotos.&nbsp://g.com/zhidao/wh%3D600%2C800/sign=2fee0c16/21a52b62d7d6e0cf3d7ca7bcbd5&文件&nbsp.baidu://g;然后下面就有
其他类似问题
为您推荐：
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您所在的位置： &
EXCEL忘记密码怎么办？EXCEL工作表怎么清除密码
时间： 17:27:38
编辑：xwgod
来源：下载吧
阅读6495次
　　EXCEL是最常用的办公制表软件，有时候制作的工作表想为了保护数据，设置了表格保护，但是如果输入密码出错或者密码太久了记不清怎么办?只能用另外的方法来解决EXCEL密码忘记的问题了。　　1、首先打开EXCEL，选择视图，宏，录制新宏，新建一个宏，可以随便取个名字。　　2、先生成一个空的宏　　3、编辑这个宏，选中刚新建的宏后点击编辑按钮　　4、删除窗口所有字符，把下面的内容粘贴进入。一个字母、标点符号都不能少不能错。　　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　　5、关闭掉编辑窗口　　6、在宏里选中AllInternalPasswords这个编辑好的宏，执行，并且确定数次，就OK了。
分享给朋友：
EXCEL忘记密码怎么办相关教程
EXCEL忘记密码怎么办相关新闻
下载1203次
下载1749次
下载1135次
下载1929次
热门关键字
扫红码得红包5亿红包100%中奖相关软件 /中文/ /中文/ /中文/ /中文/ /中文/ /中文/ /中文/ /中文/ /中文/ /中文/顶好评:50%踩坏评:50请简要描述您遇到的错误，我们将尽快予以修正。轮坛转帖HTML方式轮坛转帖UBB方式
499KB/中文/4.0
2.0M/中文/2.1
607KB/中文/.6
120KB/中文/4.4
46KB/中文/6.6
85KB/中文/7.8
912KB/中文/2.5
&在主界面设置好用户名和密码字典后，设置线程数开始跑可以修改一下也能适用于D-Link或其它路由器的登陆密码破解。大概涉及到的技术为多线程同步，从文件中读取部分密码到队列缓冲区。这部分没有详细测试，没什么技术含量，而且代码写得比较乱，大家勉强看吧，哈哈。支持大部分常见路由器更新修正了几个低级错误
安卓官方手机版
IOS官方手机版
西西软件园提供无线网络密码破解，可以恢复操作系统非第三方产品存储的无线网络密匙。该软件采用十六进制和如果提供码显示带有适配器名称和用户图形界面的密匙.还能测试安全分析无线局域网监督遥距式无线局域网分析和
中文 / 1006KB如果发生一些特殊情况，又没有记
中文 / 1.6M无线WIFI密码恢复工具并不是一个
英文 / 968KB如果发生一些特殊情况，又没有记
中文 / 3.2M无线网络WPA密码检测工具（无线网
中文 / 2.3M无线密码WPA跑包工具主要用于路由
中文 / 53KBWirelessKeyView 让你可以恢复 W
无线路由器密码破解辅助工具Tp-Linkpass V2.0 绿色版
下载帮助西西破解版软件均来自互联网, 如有侵犯您的版权, 请与我们联系。您的举报已经提交成功，我们将尽快处理，谢谢！
用电脑闪退修复，或者重新安装
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'