VBA为worksheet 设置密码和解除密码

最新推荐文章于 2023-06-25 21:35:41 发布
最新推荐文章于 2023-06-25 21:35:41 发布
阅读量2.8k 收藏 5
点赞数
文章标签： 安全
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_44741335/article/details/105566561
版权

ActiveSheet.Protect Password:=“1234” ‘←保护工作表并设置密码
ActiveSheet.Unprotect Password:=“1234” ←’撤消工作表保护并取消密码’

一堂和气
关注
  • 0
    点赞
  • 踩
  • 5
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
excel取消工作表保护_取消保护所有Excel工作表
culiao2169的博客
08-13 1259
excel取消工作表保护 取消保护所有Excel工作表 (Unprotect All Excel Sheets) When I'm working on an Excel file for a client, it's nice to have a quick way to unprotect all the worksheets, so I can make changes. It's easy...
各种Excel VBA的命令
weixin_30847271的博客
06-26 1129
本示例为设置密码窗口 (1)If Application.InputBox("请输入密码：") = 1234 Then[A1] = 1 '密码正确时执行Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码End If本示例为设置密码窗口 (1)X = MsgBox("是否真的要结帐？", vbYesNo)If X = vbYes ThenClos...
excel密码破解说明
05-23
excel密码破解详细教程，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 _
如何用excel vba设置登陆密码
09-19
帮助初学者学习excel vba的登陆界面使用
OFFICE文档遗失密码处理
09-23
OFFICE文档遗失密码处理 Office Password Recovery Toolbox, version 1.0. Copyright (C) 2003-2007 Rixler Software. All Rights Reserved. http://www.rixler.com Overview ======== Office Password Recovery Toolbox is a complex solution for recovering MS Word, Excel, Outlook and Access passwords. The program instantly recovers passwords of any complexity and decrypts documents. Features and benefits ===================== - Recovers or removes "open", "write" and "protection" passwords for Microsoft Word documents. - Recovers or removes "open", "write", workbook, shared workbook and worksheet passwords for MS Excel documents. - Recovers passwords for the MS Outlook personal folder files (*.PST). - Recovers passwords for MS Access database files (*.MDB) and workgroup information files (*.MDW). - Recovers passwords for VBA projects in MS Word, Excel and Outlook files. - Online password recovery service with guaranteed privacy. - Instant recovery of passwords of any length and complexity. - Support for multilingual passwords. - Allows to set the access password to prevent unauthorized program running. - Allows to copy recovered passwords to the clipboard. - Easy and user-friendly interface. System Requirements =================== - Windows 9x/ME/NT/2000/XP/2003. - Password recovery for files created in MS Word, Excel, Outlook and Access 97/2000/XP/2003. - Decryption for documents created in MS Word and Excel 97/2000/XP/2003 and protected with the standard method (compatible with Office 97/2000). - The program cannot process documents encrypted with nonstandard CSP (it is possible to select a CSP in Microsoft Office XP / 2003 only) and documents created in the French version of MS Word or Excel 97. Contact Information =================== Please visit the Office Password Recovery Toolbox home page at: http://www.rixler.com to download the current version of the program. If you have any questions, comments or suggestions about Office Password Recovery Toolbox or would like more information, email us at: [email protected]
Excel中用VBA-Worksheet基本操作应用示例.doc
10-01
Excel中用VBA-Worksheet基本操作应用示例.doc
VBA破解Excel表格保护密码
baidu_38688646的博客
12-01 3902
Alt+F11打开VBA编辑程序 打开模块编辑，输入以下代码： Sub 破解() ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True ActiveSheet.Unprotect End Sub 然后执行，弹出输入密码框后点.
EXCEL密码破解/破解工作表保护密码
yangyongbo210的专栏
05-09 1381
工作表保护密码破解(代码） =========请复制以下内容============= Public Sub 工作表保护密码破解() Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "作者:McCormick   JE McGimpsey
Excel VBA保护工作表
banzhen4494的博客
12-24 2064
　　 '设定可编辑区域 ActiveSheet.Protection.AllowEditRanges.Add Title:="区域1", Range:=Range("E5:H12") '保护工作表，但允许上面设定的区域可以编辑 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scena...
Excel-常用宏技巧（4）
gxiyv的专栏，欢迎您的光临指导！
04-20 3937
自动隐藏表格中无数据的行表1 是数据源，经常改变； 表2 引用表1 中某列有数据的单元格（利用动态位址已实现。） 由于表1 的改变，表2 的大小随之而变。 问题：如何实现表2 中没有数据的行（有公式）自动隐藏？谢谢赐教！ Sub abc() For i = 1 To 300 If Cells(i, 1).value = "" Then Rows(i).Hidden =
Excel-VBA实用技巧范例-Worksheet对象事件.zip
03-18
Excel-VBA实用技巧范例-Worksheet对象事件.zip
VBA开发：手把手教你建立应用的密码登录界面防止非法用户使用
weixin_50233916的博客
06-25 1828
好了，到此为止，一个简单的登录界面就实现了，启动应用如下图，如果用户输入了正确的密码，就退出登录界面进入应用，如果用户连续输入5次错误密码，自动关闭应用。开发成功一个VBA应用之后，需要分发给不同的用户使用，可能对不同的用户有不同的授权，以免非授权用户错误使用造成信息泄露或者数据错误。3） 在窗体的登录按钮程序中，设置密码的比对，以及比对正确进入应用，或者密码错误超过一定次数关闭应用的功能。2） 在自定义窗体的程序中设置，防止通过窗体右上角的关闭窗体按钮来退出窗体，绕过密码登录。
如何把密码写入代码,让VBA自动撤销工作表保护 / 工作簿保护（使用VBA代码 保护工作表 / 工作簿 和取消保护工作表 / 工作簿）
STR_Liang的博客
07-16 4521
对工作表的操作——worksheet 其中的"123" 是密码 下面同理 Sub test_worksheet_key() ActiveSheet.Protect ("123") '加密 ActiveSheet.Unprotect ("123") '解密 End Sub 对工作簿的操作——workbook Sub test_workbook_key() ActiveWorkbook.Protect ("123"), Structure:=True, Win...
Excel-常用宏技巧
zhcool(碳元素)的专栏
10-17 8289
本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误，即将退出！" 此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐？", vbYesNo) If X = vbYe
excel实时获取基金信息的实现方法
qq_15007601的博客
10-26 6680
1 编写方法 ActiveSheet.Unprotect '解除文件保护，如果放在Range("A1").Select下面，那么只是解除了这个单元格的受保护功能。 Sub refresh() Dim Endxx ActiveSheet.Unprotect '解除文件保护，如果放在Range("A1").Select下面，那么只是解除了这个单元格的受保护功能。 Range("A1").Select h = Range("A1").CurrentRegion.Rows.Count Next En
VBA实现窗口登录
God_68的博客
10-29 5313
核心代码： ' 窗口事件 Private Sub CommandButton1_Click() ' 登录 If ComboBox2.Text = "" Or TextBox1.Text = "" Then MsgBox "请输入账户或密码", 1 + 64, "系统登录" Else If 特定用户密码登录(ComboBox2) = TextBox1.Text Then Unload Me MsgBox ComboBox2.Text & "你好!欢迎你进入本系统", 1 + 64, "欢迎词.
OpenXml获取被保护Sheet的密码并解除保护
红泥屋
01-16 1560
using System; using System.Collections.Generic; using System.Linq; using System.Text; using DocumentFormat.OpenXml.Spreadsheet; using com.mksword.Net.OpenXmlTools; using com.mksword.OpenXmlUtil_log4ne
两种方法清除Excel保护密码
Admans的专栏
04-08 7899
一、利用VBA脚本直接清除 打Excel，打开脚本编辑器（Alt+F11）或者如图，右键sheet名称 输入代码并运行，即可清除密码保护： Sub DeletePW() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:
vba 获取worksheet
最新发布
12-19
以下是两种获取worksheet的VBA代码示例： 1. 使用Worksheets.Add方法添加新的工作表： ```vba Worksheets.Add after:=Worksheets(Worksheets.Count) ``` 这段代码将在当前活动工作簿中添加一个新的工作表，并将其放置在所有现有工作表之后。 2. 使用Worksheet_Change事件来获取当前活动工作表： ```vba Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet Set ws = ActiveSheet ' 在这里可以使用ws对象进行操作 End Sub ``` 这段代码是一个Worksheet_Change事件的处理程序，它会在工作表中的单元格发生更改时触发。在事件处理程序中，我们可以使用ActiveSheet对象来获取当前活动的工作表，并将其赋值给一个Worksheet对象变量ws。然后，我们可以使用ws对象来进行进一步的操作。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值