PCDVD數位科技討論區 - 求助VB6高手，開啟含有密碼excel檔的問題

PCDVD數位科技討論區 (https://www.pcdvd.com.tw/index.php) - 七嘴八舌異言堂 (https://www.pcdvd.com.tw/forumdisplay.php?f=12) - - 求助VB6高手，開啟含有密碼excel檔的問題 (https://www.pcdvd.com.tw/showthread.php?t=904928)

影子	2010-09-13 09:45 PM

求助VB6高手，開啟含有密碼excel檔的問題

最近小弟遇到一個問題
關於VB6開啟含有密碼的excel檔
由於密碼想直接寫在VB6的程式碼中
也就是當vb6開啟excel檔時
不用在輸入密碼了
請問這個程式要如何寫呢？
謝謝

michelle-lai529

2010-09-13 10:31 PM

引用:

作者影子

請用open方法

EX:
Dim OpenExcelObj As Object = CreateObject("Excel.Application")
OpenExcelObj.Visible = True
OpenExcelObj.Workbooks.Open(filename, , , , password)

影子	2010-09-14 11:36 AM

引用:

作者michelle-lai529

請用open方法

EX:
Dim OpenExcelObj As Object = CreateObject("Excel.Application")
OpenExcelObj.Visible = True
OpenExcelObj.Workbooks.Open(filename, , , , password)

謝謝
已經寫出來了
但有一個小問題
就是會跳出尋問的"唯讀視窗"
要你按唯讀
請問可以取消這個視窗嗎？
小弟試了好久
這個視窗都會出現
請幫忙解答一下
謝謝 :)

michelle-lai529

2010-09-14 12:18 PM

引用:

作者影子

http://www.excelba.com/Art/Html/290.html
參考吧
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

應該是Notify這個參數，試試看吧

影子	2010-09-14 02:42 PM

引用:

作者michelle-lai529

謝謝您再次的說明 :)
小弟試了好久
還是試不出來
會不會就是無法關掉這個詢問視窗

有勞其他兄台
幫忙看看 :)

所有的時間均為GMT +8。現在的時間是10:21 PM.

vBulletin Version 3.0.1
powered_by_vbulletin 2025。