如何取消EXCEL密码？

zx024z 2010-10-23 05:47:31

已知EXCEL密码，如何用VB制作的程序取消EXCEL密码

...全文

418 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

孤独剑_LPZ 2010-10-25

打赏
举报

wkbOne.Password = Text2.Text & ""

chinaboyzyq 2010-10-25

打赏
举报

try

wkbOne.Password = trim(Text2.Text)

za065z 2010-10-24

打赏
举报

再顶！

[Quote=引用 3 楼 zx088x 的回复:]
wkbOne.Password = ""可以
但是
wkbOne.Password = Text2.Text
Text2.Text为空的时候不行，不知道为什么
[/Quote]

zx088x 2010-10-24

打赏
举报

wkbOne.Password = ""可以
但是
wkbOne.Password = Text2.Text
Text2.Text为空的时候不行，不知道为什么

zx044z 2010-10-23

打赏
举报

删除不了的

贝隆 2010-10-23

打赏
举报

修改它的Password属性，把密码删除就可以了

Password 属性
请参阅应用于示例特性
返回或设置密码，在打开指定的工作簿时必须提供该密码。String 类型，可读写。

expression.Password

expression 必需。该表达式返回“应用于”列表中的对象之一。

示例
在本示例中，Microsoft Excel 打开名为 Password.xls 的工作簿，设置它的密码，然后关闭该工作簿。本示例假定名为 Password.xls 的文件位于 C:\ 驱动器上。

Sub UsePassword()



    Dim wkbOne As Workbook



    Set wkbOne = Application.Workbooks.Open("C:\Password.xls")



    wkbOne.Password = "secret"

    wkbOne.Close



End Sub

注意 Password 属性可读并返回 “********”。