[發問] 關於ｖｂｓ啟用ｘｌｓｍ檔案格式問題？

HUNGCHILIN

各位夥伴好
目前可以使用ｖｂｓ直接啟用ｘｌｓ檔案格式並避過巨集安全性
如使用 VBS檔啟用EXCEL中的巨集

但使用ｖｂｓ無法直接啟用ｘｌｓｍ檔案格式．．．則出現問題
請各位高手．有機會能做看看．．．與解惑
感激不盡．．．謝謝

c_c_lai

回復 1# HUNGCHILIN
大大請測試看看！
使用 VBS檔啟用EXCEL中的巨集.rar (19 KB)

下載次數: 39

2012-6-20 07:30

HUNGCHILIN

回復  HUNGCHILIN
大大請測試看看！
c_c_lai 發表於 2012-6-20 07:30

謝謝c_c_lai 兄的協助...小弟在這一段確實走偏了...繞不出來

以前經驗與試驗在新版下不一定正確
如下以前做的試驗
步驟1.VBS突破XLS巨集安全性試驗
步驟2.做完後連續又做了 1個VBS一次開多個XLS檔試驗
步驟3.做VBS+XLS+RAR轉EXE試驗
均可行XLS成果如附件 autoopenexe實驗.rar (55.76 KB)

下載次數: 18

2012-6-20 18:15

但上述轉到ｘｌｓｍ檔案格式時.使用上述做到步驟3轉EXE就不行
真是讓我繞了好久...一直沒想過.從步驟1重新來過...沒想到結果竟是這麼容易
謝謝c_c_lai 兄的協助...否則我還困在以前的經驗與想法中
現行XLSM成果如附件 aaaXLSM.rar (56.5 KB)

下載次數: 30

2012-6-20 18:15

此為 XLS/XLSM 使用RAR轉換為EXE檔，用以突破EXCEL97~2010巨集安全性的方法

c_c_lai

回復 3# HUNGCHILIN
請教一個技術上的問題，您是怎麼壓成 .EXE 檔的， 應該不是  -> 轉換壓縮檔成自解檔吧？
我觀察這隻 .exe 是先去呼叫 .vbs 然後才去啟動 .xlsm 的。
如果是一般的轉換壓縮檔成自解檔， 它只是單純地解壓而已，並不會自動去啟動 .vbs 的。
難道是直接由 VB 平台轉換成 .exe 的？ 因為我沒安裝 VB， 請問那要如何處理？
敬請指教！

HUNGCHILIN

他就是 轉換壓縮檔成自解檔exe
自解後先去呼叫 .vbs 然後才去啟動 .xlsm 。

所以才需要有 vbs 或是 作為啟動的exe 才能達到目標
這個想法並不是我想出來的
具體作法如連結[轉貼] 使用RAR 壓縮程式，包住EXCEL檔製作EXE執行檔，突破巨集安全性
很簡單啦...材料全都在這一帖上.自己實際測一測就會知道作法了.不會花太久時間

c_c_lai

回復 5# HUNGCHILIN
不好意思，看遍了所有文章，也試著去產生它 (exe)， 都失敗了！ (滑鼠點在 aaaXLSM.vbs 上，按滑鼠右鍵彈出小視窗，
選擇"添加到壓縮文件"，   揀選 "建立自我解壓縮檔"，然後選擇 "進階設定" ->  "自解檔選項(X)" -> "文字及圖示" ???)
我指的是 aaaXLSM.rar 裏頭的 aaaXLSM.exe。
能否就以現有的 aaaXLSM.vbs、aaaXLSM.xlsm，它產生的 aaaXLSM.exe 的程序指導一下？

HUNGCHILIN

回復  HUNGCHILIN
不好意思，看遍了所有文章，也試著去產生它 (exe)， 都失敗了！ (滑鼠點在 aaaXLSM.vbs ...
c_c_lai 發表於 2012-6-22 08:26

具體最法請看這一篇
我把最重要網上作者不想說藏步的細節放在這裡
請照圖做
所有材料為 XLS+VBS 兩個檔+RAR程式...
VBSXLSRARTOEXE說明.rar (160.45 KB)

下載次數: 25

2012-6-23 00:55

c_c_lai

回復 7# HUNGCHILIN
原來如此！ 我少了"解壓後之執行"步驟，難怪每次均只有解壓而無執行之動作。
萬分謝謝您的指導！
附上成果！
股票圖表 與拉霸.vbs：

1. Dim oExcel,fn
   
2. fn=Replace(WScript.ScriptFullName,Right(WScript.ScriptFullName,4),".xls")
   
3. Set oExcel = CreateObject("Excel.Application")
   
4. oExcel.Visible=True
   
5. oExcel.Workbooks.Open fn
   
6. Set oExcel = Nothing
   
7. Wscript.Quit

複製代碼

股票圖表與拉霸.rar (203.24 KB)

下載次數: 20

2012-6-23 07:17

T.Y

研究中 thanks