win10工作表保护如何取消

1.如何撤销工作表保护

EXCEL密码保护破解2010-01-22 09:56方法:1\打开文件2\工具---宏----录制新宏---输入名字如:aa3\停止录制(这样得到一个空宏)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) & 。

win10工作表保护如何取消

转载请注明出处windows之家 » win10工作表保护如何取消

win10

win10如何启动三国志11

阅读(92)

本文主要为您介绍win10如何启动三国志11,内容包括跪求大神win10怎么打开三国志11,怎么在win10的系统里运行三国志11威力加强版求救搜狗,三国志11可以在win10运行吗。WIN10系统是你刚刚升级的么?如果此前系统可以正常运行,那有可能是系统更新

win10

如何在win10中切换用户账户

阅读(97)

本文主要为您介绍如何在win10中切换用户账户,内容包括Win10系统如何切换用户账户的几种方法,windows10怎么切换微软账户,Win10怎么切换登录用户。正常我们在登录时就只有一个本地账户或者是微软账户,没有地方可以输入新的账号。那怎么样才能

win10

win10如何取消只读

阅读(112)

本文主要为您介绍win10如何取消只读,内容包括win10系统时间长不动会断网怎么解决方法,如何删除只读文件夹?,Win10如何删除需要管理员权限才能删除的数字文件。打开“控制面板",很多人都找不到win10的控制面板在哪里,方法很简单,在左下角--右键-

win10

win10如何避免更新

阅读(92)

本文主要为您介绍win10如何避免更新,内容包括如何防止自动更新window10,win10怎么防止系统自动更新,怎样阻止windows10自动更新提示。工具:win10系统电脑一台步骤:打开win10系统电脑,运行Win+R,输入“gpedit.msc”打开组策略。依次点击:计算机配

win10

win10如何玩16位游戏

阅读(79)

本文主要为您介绍win10如何玩16位游戏,内容包括win10能玩16位的游戏吗,win10能玩16位的游戏吗,Win10怎么设置16位色?。今天我们终于可以看到了。实际体验实测里使用的大致PC配置为3。4GHz英特尔Core i3-4130双核处理器,GTX 1060 6GB

win10

win10共享打印机如何改名

阅读(102)

本文主要为您介绍win10共享打印机如何改名,内容包括Windows10系统如何重命名打印机,win10如何修改打印机的权限设置,win10如何添加网络共享打印机。在Win10专业版设置应用程序中重命名打印机要在Win10专业版中重新命名已安装的打印机,请首先

win10

如何打开win10的光驱

阅读(101)

本文主要为您介绍如何打开win10的光驱,内容包括win10光驱怎样打开,windows10怎样打开光盘驱动器?,win10如何打开电脑光驱。方法硬件开关开启我们的笔记本电脑光驱是我们常用的设备。他自身也是有一个打开开关的。2、一般是在光驱的外部的中

win10

自己如何装win10旗舰版

阅读(107)

本文主要为您介绍自己如何装win10旗舰版,内容包括怎么装win10系统,win10怎么安装,u盘重装系统win10旗舰版怎么安装。装Win10系统步骤: 准备工作: 制作u启动盘 2、下载win10系统镜像文件 具体步骤: 制作u启动盘 第一步 下载并且安装好大白菜

win10

如何解锁win10属性加密

阅读(136)

本文主要为您介绍如何解锁win10属性加密,内容包括win10自带的加密加密后怎样解密,win10加密文件怎么解开,win10怎么自动连接宽带账号密码。有系统自带的EFS加密,对文件夹右击选择属性,然后点击高级,加密内容以便保护数据。但是这个是透明加密,

win10

win10iso如何装载

阅读(135)

本文主要为您介绍win10iso如何装载,内容包括win10iso文件怎么安装,win10iso文件怎么安装,Win10系统中如何装载ISO镜像文件?。win10iso安装步骤:将【u深度u盘启动盘】连接至电脑,重启等待出现开机画面按下启动快捷键(F2基本通用)进入到启动项选

win10

组装机自己如何装win10

阅读(124)

本文主要为您介绍组装机自己如何装win10,内容包括组装机怎么装win10系统,组装电脑怎么安装win10,如何为新组装的电脑安装win10系统。U盘或者光盘吧重做系统,用U盘重装,以后系统崩溃都可以自己修,必备技能U盘装系统步骤:1.制作U盘启动盘。这里推

win10

如何创建公文包win10

阅读(94)

本文主要为您介绍如何创建公文包win10,内容包括Win10系统怎么新建公文包,win10如何新建公文包,win10系统怎么在公文包下建立文件夹。首先,请大家在电脑桌面上击右键,在弹出的右键菜单中,选择“新建-文本文档”选项。接下来,双击打开新建立的文

win10

win10如何取消消息隐藏

阅读(217)

本文主要为您介绍win10如何取消消息隐藏,内容包括Win10新通知怎么关闭隐藏Win10任务栏新通知图标方法,win10怎样删除过去通知栏隐藏,win10如何取消隐藏文件。第一步:依次点击Win10菜单图标,点击进入“设置”,然后再点击进入“系统”设置,第二步

win10

如何使win10网速更快

阅读(123)

本文主要为您介绍如何使win10网速更快,内容包括win10怎样让电脑网速变快,如何设置使windows10上网更快,win10怎样让电脑网速变快。电脑出现故障:上网速度慢或上不了网,打开或关闭网页慢。出现这种故障,排除硬件、网卡、网速本身慢、病毒的原因

win10

win10如何启动三国志11

阅读(92)

本文主要为您介绍win10如何启动三国志11,内容包括跪求大神win10怎么打开三国志11,怎么在win10的系统里运行三国志11威力加强版求救搜狗,三国志11可以在win10运行吗。WIN10系统是你刚刚升级的么?如果此前系统可以正常运行,那有可能是系统更新

win10

如何在win10中切换用户账户

阅读(97)

本文主要为您介绍如何在win10中切换用户账户,内容包括Win10系统如何切换用户账户的几种方法,windows10怎么切换微软账户,Win10怎么切换登录用户。正常我们在登录时就只有一个本地账户或者是微软账户,没有地方可以输入新的账号。那怎么样才能

win10

win10如何取消只读

阅读(112)

本文主要为您介绍win10如何取消只读,内容包括win10系统时间长不动会断网怎么解决方法,如何删除只读文件夹?,Win10如何删除需要管理员权限才能删除的数字文件。打开“控制面板",很多人都找不到win10的控制面板在哪里,方法很简单,在左下角--右键-

win10

win10如何避免更新

阅读(92)

本文主要为您介绍win10如何避免更新,内容包括如何防止自动更新window10,win10怎么防止系统自动更新,怎样阻止windows10自动更新提示。工具:win10系统电脑一台步骤:打开win10系统电脑,运行Win+R,输入“gpedit.msc”打开组策略。依次点击:计算机配

win10

win10如何玩16位游戏

阅读(79)

本文主要为您介绍win10如何玩16位游戏,内容包括win10能玩16位的游戏吗,win10能玩16位的游戏吗,Win10怎么设置16位色?。今天我们终于可以看到了。实际体验实测里使用的大致PC配置为3。4GHz英特尔Core i3-4130双核处理器,GTX 1060 6GB

win10

win10共享打印机如何改名

阅读(102)

本文主要为您介绍win10共享打印机如何改名,内容包括Windows10系统如何重命名打印机,win10如何修改打印机的权限设置,win10如何添加网络共享打印机。在Win10专业版设置应用程序中重命名打印机要在Win10专业版中重新命名已安装的打印机,请首先

win10

如何打开win10的光驱

阅读(101)

本文主要为您介绍如何打开win10的光驱,内容包括win10光驱怎样打开,windows10怎样打开光盘驱动器?,win10如何打开电脑光驱。方法硬件开关开启我们的笔记本电脑光驱是我们常用的设备。他自身也是有一个打开开关的。2、一般是在光驱的外部的中

win10

win10怎么引导win7启动

阅读(94)

本文主要为您介绍win10怎么引导win7启动,内容包括在win10下怎么启动win7系统,win10怎么添加win7启动项,win10下安装win7双系统怎么启动。那如何才能使开机速度提升呢?我们知道,在Windows系统里,有个非常实用的命令程序:msconfig,即系统配置实用