当前位置： 文江博客话题详情

Excel-VBA：不使用密码修改应用程序。

发布于 2024-10-20 12:42:10 字数 89 浏览 0 评论 0原文

我使用 Excel-VBA 开发了一个应用程序，并对其应用了密码保护以防止修改。现在，我忘记了密码，我想更新我的应用程序。有没有什么方法可以不使用密码修改应用程序？

原文

I have developed an application using Excel-VBA and applied password protection to it to prevent modification. Now, I have forgotten the password and I want to update my application. Is there any way to modify the application without using the password?

如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论， 你可以免费 注册 一个本站的账号。

评论（1）

原野 2024-10-27 12:42:10

我对这次讨论的解释
是可以提供一个链接到
密码破解软件
工作表密码，但不适用于
保护 VBA 代码的密码。

要取消工作表保护，我喜欢
Microsoft Excel MVP 发布的代码
尼科·斯特克在
http://members.chello.nl/n.sterk/ExcelPages/Files /excel_files.htm
BreakPassword 宏位于
下载的工作簿将识别
大约一分钟内替换密码。
它需要 Excel 2000 及更高版本。这里
使用方法：1）单击任意单元格
在您想要的工作表中
取消保护 2) ALT + F8 打开
宏选择器 3) 选择
PasswordBreaker 宏（来自 Nico
Sterk 的工作簿），然后单击
“运行”按钮

对于 Excel 97 和 2000，有一个
发现了惊人的漏洞
MalicUK——只需将密码重置为
使用 VBA 的空字符串：

Sub UnprotectActiveSheet() 
 Dim ws As Worksheet 
 Set ws = ActiveSheet 
 ws.Protect "", , , , True 
 ws.Range("A1").Copy 
 ws.Range("A1") End 
Sub

-Anonymous

My interpretation of this discussion
is that it is OK to provide a link to
password cracking software for
worksheet passwords, but not for
passwords protecting VBA code.

To unprotect worksheets, I like the
code posted by Microsoft Excel MVP
Nico Sterk at
http://members.chello.nl/n.sterk/ExcelPages/Files/excel_files.htm
The BreakPassword macro in the
downloaded workbook will identify a
substitute password in about a minute.
It requires Excel 2000 and later. Here
is how to use it: 1) Click on any cell
in the worksheet that you want to
unprotect 2) ALT + F8 to open the
macro selector 3) Choose the
PasswordBreaker macro (from Nico
Sterk's workbook), then click the
"Run" button

With Excel 97 and 2000, there is an
amazing loophole discovered by
MalicUK--just reset the password to an
empty string using VBA:

Sub UnprotectActiveSheet() 
 Dim ws As Worksheet 
 Set ws = ActiveSheet 
 ws.Protect "", , , , True 
 ws.Range("A1").Copy 
 ws.Range("A1") End 
Sub

-Anonymous

回复 原文
~没有更多了~

关于作者

回眸一笑

暂无简介

0 文章
0 评论
994 人气
发私信

相关话题

更多

热门标签

操作系统 程序设计 IT运维 Linux系统管理 JavaScript 服务器应用 solaris C/C++ PHP Shell BSD Vue.js aix Oracle Python HTML 系统管理 HTML5 CSS 前端
更多

推荐作者

烙印

文章 0 评论 0

singlesman

文章 0 评论 0

给自己一个微笑

文章 0 评论 0

独孤求败

文章 0 评论 0

晨钟暮鼓

文章 0 评论 0

我是自愿种绣球花的

文章 0 评论 0

更多

友情链接

文江博客
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站，即表示您同意使用 Cookies 和您的相关数据。
    原文