用VB如何直接打开带有写保护工作簿的写入权密码的EXCEL

w1984721 2009-05-06 12:01:49

我的程序只是只读EXCEL文件，如何在不输入密码的情况下直接打开它，而不显示下面那个提示输入修改权限密码对话框。我的程序只是只读EXCEL文件。
Set XlsBook = XlsApp.Workbooks.Open(App.Path & "\33.xls", , False, , "aaa")
当EXCEL有写入权密码时它就要提示。我要打在开EXCEL时，在不输入写入权密码的情况下，没有那个密码提示。并且不显示应用程序。

...全文

411 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

goosen 2009-05-10

打赏
举报

回复

帮顶

w1984721 2009-05-10

打赏
举报

回复

顶

Dim app_excel As Excel.Application Dim book_excel As Excel.Workbook Set app_excel = New Excel.Application '申请一个Excel.Application内存...

1 Workbooks.Add 方法 1.1 语法新建一个工作表。新工作表将成为活动工作表。语法 ... Template 可选 Variant 确定如何创建新工作簿。如果此参数为指定现有 Microsoft Excel 文件名的字符串，...

这两天做的导出报表的项目中，因为出现了一些问题所以对于excel一些方法参数有了一些认识，首先：开始生成的是.xls格式的excel文件，但是某个sheet发现我本来dataTable的数据有8万多行，但是sheet显示只有65536行...

图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。如Worksheets("Sheet1").ChartObjects(1)、Worksheets("sheet1").ChartObjects("chart1")分别对应"Sheet1"工作表中的第一个嵌入式图表、以及名为...

'本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行 Else MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码 End If '本示例为设置密码...

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章