[原創] EXCEL4.0巨集表結合5.0對話方塊應用

HUNGCHILIN

長知識了
這種技巧還是第一次見識
4.0巨集表(宏表)的應用現已不多見
還望阿吉能多提供這方面的應用
多謝 ...
Hsieh 發表於 2010-5-5 23:30

回復Hsieh兄 這則有加其他東西
EXCEL4.0巨集表結合5.0對話方塊應用
這篇文章是四五年前找工作時製作的
是個EXCEL4.0巨集表結合5.0對話方塊的練習檔
他對我的意義是OFFICE只是個工具還是要多學其它東西

練精沒用.rar (20.77 KB)

下載次數: 45

2010-5-6 19:59

lin

阿吉兄：
    您好，練精沒用.xls範例，我試過很久，一直都無法開啟，可否稍加提示，謝謝。

HUNGCHILIN

回復 2# lin

^^這個好久了 ...稍有點忘記他是甚麼
1.首先開一個新工作簿，
2.按開啟舊檔後按住SHIFT 不放，  開啟舊檔"練精沒用.XLS"
3.所有工作表/工作簿密碼為 11686106 須解除保護
4.取消隱藏工作表 [4.0巨集表與5.0對話方塊表]這3個表VBE編輯器內看不到.把它顯示出來，再解欄列隱藏就可看到程式
解除工作表非常隱藏語法通常為ActiveWorkbook.Sheets("Macro1").Visible = -1

下載 (24.64 KB)

2012-12-23 02:01

lin

阿吉兄：
    您好，練精沒用.xls範例，經您提示後，已順利開啟並進入程式中，非常感謝。但在其中也產生幾個疑問，不好意思麻煩您。
   1.如何製造產生本範例中開啟檔案時僅見5.0對話方塊表，而無法開啟檔案。
   2.sheet0輸入密碼後會關閉檔案。
  3.maco1工作表中是否為excel4.0語言。

HUNGCHILIN

回復 4# lin


    Ans：
1。要學會要先學習Excel4.0巨集表語法，這種語法至少是15年前的語法，學習這種語法要另外學習工作表内的名稱定義
2。這個是Excel4的内鎖方法，目的是避免人進入巨集表，目前只有看過阿吉拿來應用，請錄制一個到Sheet1的巨集再把Sheet s（”sheet 1”）.select 改為Sheet 0用這個巨集侵入巨集表内既可
3。是的這是巨集表XLM語言

總而言之這些都是舊語法，本人認為看看知道就可以，深入研究效益不大

lin

阿吉兄：
    您好，記得約20年前，因工作需要louts 123，雖然很困難但努力學習，最後不但會使用louts 123而且學會巨集，可惜後來輪調，對於excel學習就三天補與魚兩天曬網，一直沒有好好努力，其實也很懷念舊語法。 您說舊語法看看知道就可以，深入研究效益不大，我想應是 您過度自謙說法吧！前幾天我到重慶南路沒找到excel 4.0書籍，另搜尋圖書館藏書也無尋獲，下週價日我會去舊書攤找一找。若是有問題再向 您請教，謝謝。

HUNGCHILIN

回復 6# lin

建議林兄不用再去 書攤尋找了，台灣與大陸基本上找不到這類的書
根據6年前華語區OFFICE論壇，大家學習的方法，您可以先參考這一貼
http://www.officefans.net/cdb/viewthread.php?tid=59862&extra=&page=1
裡面有微軟的巨集表函數說明檔. 有英文版與簡體版 可以下載下來研習
我想有這說明檔就比 書籍好的太多了

lin

阿吉兄：
     您好，又有問題麻煩您，如附圖目錄如何完成[attachimg。]13767[/attachimg]；又如何設定excel 4.0 auto_open。

HUNGCHILIN

回復 8# lin


林兄好

這一篇EXCEL4.0 練精沒用.XLS 的檔案內
1.阿吉有非常隱藏工作表，如下圖 VeryHidden的工作表(未公開工具)，這一個技巧告訴我們 4.0巨集表與5.0表單做非常隱藏時在vb編輯器中是看不到的


2.您所問的第二個問題屬於EXCE4.0 RunAutoMacros 方法 共有4項:Auto_Open 巨集。Auto_Close 巨集。Auto_Activate 巨集。Auto_Deactivate 巨集。此方法的使用與建立在上一樓提供的連結內有很詳盡的介紹，請先學習。在此檔中您看不到阿吉設定的AutoMacros，因為阿吉對AutoMacros做了定義隱藏，如下圖(未公開工具)

下載 (28.69 KB)

2013-1-3 14:15

這個檔用了很多不同的技巧，如果您要看到工作表與定義都需要先學習解除隱藏工作表與解除隱藏定義方法，解除後，再一層一層解開欄列等等.我想您的問題應該是出在[解除隱藏定義方法]請用這行程式一一解開定義隱藏 ActiveWorkbook.Names("1!Auto_Open").Visible = False

這是阿吉的練習檔案.阿吉練習了很多不同的防護組合。比較複雜，是隨意之作，謝謝您有興趣，這年頭想要學的人不多了

lin

阿吉兄：
     您好，經 您詳細解說，我已大致瞭解，謝謝。另外我想請問本例中auto_open是否可以加入關閉訊息方塊功能，巨集如下
Private Sub Workbook_Open()   
    關閉訊息方塊
    Application.Visible = False     
End Sub

Sub 關閉訊息方塊()
CreateObject("wscript.shell").popup "本檔案已啟動保護行動，將於3秒鐘後自動關閉", 1, "告訴你", 16
End Sub