ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 6560|回复: 2

[求助]怎样用VB输入Excel表的打开密码

[复制链接]

TA的精华主题

TA的得分主题

发表于 2006-9-9 17:38 | 显示全部楼层 |阅读模式

用VB封装EXCEL后,

如何在打开文件时程序自动输入EXCEL的打开密码.

关闭文件时程序自动加上EXCEL的打开密码。

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-9-9 22:23 | 显示全部楼层

顶上去,请教了.

 

[em06]

TA的精华主题

TA的得分主题

发表于 2006-9-9 23:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

参考WORKBOOK 的OPEN方法:

Open 方法

請參閱套用至範例特定

顯示套用至 Workbooks 物件時用 Open 方法。

開啟一個活頁簿。

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

expression      必選。該運算式傳回 Workbooks 物件。

FileName     必選的 String。要開啟的活頁簿檔案名稱。

UpdateLinks     選擇性的 Variant。指定檔案中連結的更新模式。如果省略本引數,則提示使用者選擇連結的更新模式。否則,該引數的取值應為下表的某個值。

意義
0不更新任何參照。
1更新外部參照,但不更新遠端參照。
2更新遠端參照,但不更新外部參照。
3更新所有遠端參照和外部參照。

如果 Microsoft Excel 正在開啟以 WKS、WK1 或 WK3 格式儲存的檔案,並且 UpdateLinks 引數設為 2,則 Microsoft Excel 將根據與該檔案關連的圖形建立圖表。如果該引數設為 0,則不建立任何圖表。

ReadOnly     選擇性的 Variant。True 則以唯讀模式開啟活頁簿。

Format     選擇性的 Variant。如果 Microsoft Excel 正在開啟一個文字檔,則該引數用於指定分隔符號,如下表所示。如果省略本引數,則使用目前的分隔符號。

分行符號
1定位點
2逗點
3空格
4分號
5沒有任何字元
6自訂字元 (參閱 Delimiter 引數)

Password     選擇性的 Variant。該字串為用於開啟一個受保護活頁簿的密碼。如果省略該引數並且指定活頁簿已設定密碼,則提示使用者輸入密碼。

WriteResPassword     選擇性的 Variant。該字串為一個寫入保護活頁簿的寫入權密碼。如果省略該參數並且指定活頁簿已設定密碼,則提示使用者輸入密碼。

IgnoreReadOnlyRecommended     選擇性的 Variant。如果為 True,則設定 Microsoft Excel 固定不顯示建議唯讀訊息 (如果該活頁簿是以 [建議唯讀] 選項儲存)。

Origin     選擇性的 Variant。如果該檔案為文字檔,則該引數用於指示該檔案的出處 (以便正確對應字碼頁和輸入鍵符號/換行 (CR/LF))。可為下列 XlPlatform 常數之一:xlMacintoshxlWindowsxlMSDOS。如果省略本引數,則使用目前作業系統。

Delimiter     選擇性的 Variant資料類型。如果該檔案為文字檔並且 Format 引數設定為 6,則此引數用於指定當作分行符號的字元。例如,可使用 Chr (9) 代表定位字元,使用 "," 代表逗點,使用 ";" 代表分號,或者使用自訂字元。如果該參數為字串,則只使用該字串的第一個字元。

Editable     選擇性的 Variant。如果該檔案為 Microsoft Excel 4.0 增益集,則該引數為 True 時可在可見視窗中開啟該增益集。如果該引數設為 False 或者省略該引數,則該增益集以隱藏模式開啟,並且無法設為可見。本選項無法套用至由 Microsoft Excel 5.0 或更新版本的 Microsoft Excel 建立的增益集。如果該檔案是個 Excel 範本,則 True 時可開啟指定的範本進行編輯。False 則開啟一個根據指定的範本而建立的活頁簿。預設值為 False

Notify     選擇性的 Variant。如果該檔案無法以可讀寫模式開啟,則若該引數設為 True可將該檔案新增到檔案通知清單。Microsoft Excel 將以唯讀模式開啟該檔案並輪詢檔案通知清單,當檔案通知清單中的該檔案可用時則通知使用者。如果該引數設為 False,或者省略該引數,則不請求任何通知,並且無法開啟任何無法使用的檔案。

Converter     選擇性的 Variant。開啟檔案時試用的第一個檔案轉換程式的索引號。首先使用的是指定的檔案轉換程式;如果該轉換程式無法識別此檔案,則試用所有的轉換程式。轉換程式索引號由 FileConverters 屬性所傳回的轉換程式列號組成。

AddToMru     選擇性的 Variant。如果為 True 則將該活頁簿新增到最近使用檔案的清單中。預設值為 False

Local     選擇性的 VariantTrue 根據 Microsoft Excel 的語言儲存檔案 (包含控制台設定)。False (預設值) 則根據 Visual Basic for Applications (VBA) (通常為美式英語,除非執行 Workbooks.Open 的 VBA 專案是舊版的全球 XL5/95 VBA 專案) 的語言儲存檔案。

CorruptLoad     選擇性的 Variant。可為下列常數之一:xlNormalLoadxlRepairFilexlExtractData。 在 Excel 嘗試開啟檔案的情況下,未指定數值的行為通常是正常的,但有可能是安全載入或資料復原。 第一次嘗試是正常的。 如果 Excel 在檔案開啟期間停止作業,則第二次嘗試時的行為即為安全載入。 如果 Excel 在下一次嘗試時又停止作業,則此行為即資料復原。

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-10-15 19:25 , Processed in 0.040584 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表