vba 怎样检测文件有密码保护 excel
发布网友
发布时间：2022-04-29 11:26
我来回答
共2个回答
热心网友
时间：2022-06-26 22:16
Workbook.ProtectStructure 结构保护
Workbook.ProtectWindows 窗体保护
Worksheet.Protectcontents 内容保护
只想看保护状态的话新建一个xls，新建宏
Sub Showstates()
dim strFileName as String
dim WB as Workbook
dim SHT as Worksheet
dim sheetFLG as boolean
strFileName=Application.GetOpenFilename("Excel 文件 (*.xl*)," & "*.xl*", , "选定文件")
Set WB = Workbooks.Open(strFileName, UpdateLinks:=0)
sheetFLG=false
for each SHT In WB.Worksheets
sheetFLG=sheetFLG or SHT.Protectcontents
next SHT
msgbox WB.ProtectStructure &“ ”& WB.ProtectWindows &“ ”& sheetFLG
End sub
以上未进行strFileName有效性判断、目标文件打开权限密码异常处理，打开正常的xls貌似能过。“打开权限密码”不需vba，打开文件就看见提示了 - -#
热心网友
时间：2022-06-26 22:16
按alt+f11后
在对应的表格文件上，右键选择：vbaproject
属性
再选：保护
勾选：查看时锁定工程
输入密码后确认即可
vba 怎样检测文件有密码保护 excel
按alt+f11后 在对应的表格文件上，右键选择：vbaproject 属性 再选：保护 勾选：查看时锁定工程 输入密码后确认即可
Excel中使用vba制作密码验证的操作方法
首先我们打开一个工作样表作为例子。进入vba代码编辑器，按下alt+f11组合快捷键进入。然后输入以下代码。Sub login()Dim strPassword As String '保存密码 Dim i As Integer '输入密码的次数 Do strPassword = InputBox("请输入密码") '输入密码 If strPassword = "test" Then '判断密码是否正确 E...
excel vba 判断给定文件夹中工作簿的宏是否被加密
Public Sub remove_module()On Error Resume Next If ThisWorkbook.VBProject.Protection = 1 Then ’1表示有密码保护 Application.VBE.CommandBars.FindControl(ID:=2578).Execute Application.SendKeys "password" & "{Enter 2}", True MsgBox "创建对象失败!", , "Warning!" ‘错误的假象，呵呵 ...
利用VBA设置密码和方法
利用VBA设置密码1步：打开Excel2007启用宏的Excel文件 利用VBA设置密码2步：同时按Alt + F11键，打开VBA编辑器窗口。使用VBA设置密码步骤3：查看相应的代码窗口，左边的VBA工程项目属性框对应于相应的表表或模块。利用VBA设置密码4步：点击相应的表格或模块的名称，鼠标右键放在这，和vbaproject属性选择。使...
用excel vba 怎样实现对本文件的加密与保护
你这个变量用某个单元格的值好了，或者设定某个单元格根据这个变量更新，你写公式的时候引用这个单元格，然后把这个单元格隐藏，保护起来，应该可以了 应该不行吧，变量只在它定义的范围里有效 你导出没有？导出后是.bas，.frm等，然后上硬盘上Search这些文件，要是没有，就没办法了。还有就是找盘上...
excel中使用vba来设置密码vba设置密码
方法如下：1.首先我们打开一个工作样表作为例子。2.我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub UsePassword()Dim wb As Workbook Set wb = Application.ActiveWorkbook wb.Password = InputBox(\"请输入密码:\")wb.Close End Sub 3.我们首先声明wb为...
我的EXCEL文件保护密码忘记了,哪位高人能帮我破解?谢谢!
1\打开EXCEL文件 2\工具---宏---录制新宏---输入名字如:aa 3\停止录制(这样得到一个空宏)4\工具---宏---宏,选aa,点编辑按钮 5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)6\关闭编辑窗口 7\工具---宏---宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,...
如何用vba编程对word和excel进行文件保护?
Protect方法) Sub ProtectWorkbook() MsgBox "保护工作簿结构,密码为123" ActiveWorkbook.Protect Password:="123", Structure:=True MsgBox "保护工作簿窗口,密码为123" ActiveWorkbook.Protect Password:="123", Windows:=True MsgBox "保护工作簿结构和窗口,密码为123" ActiveWorkbook.Protect Password:=...
Excel中保护vba代码不被查看和修改的设置方法
Excel中保护vba代码不被查看和修改的设置步骤如下：打开excel以后，在菜单栏上执行：开发工具–vb，如图所示。绝地反击地方输入一段代码，随便输入就可以了，我们主要是看看如何保护这段代码。在左侧导航栏，选中你要加密的一个工程，比如选中VBAProject(新建工作表)，括号里的文字是工作表的名字，然后在...
excel文件忘记密码怎么解除密码保护
在Excel中点击“文件”-“信息”-“检查文档”,看是否记录了旧密码提示。使用在线Excel密码破解工具或软件,通过穷举或密码词典匹配方式破解密码。使用VBA编程运行密码破解宏,如使用密码暴力破解法遍历尝试所有可能密码。找回或重置Windows登录密码,打开用户的保险箱,看是否保存了Excel密码。通过拷贝工作表内容到...
