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

帖子: 172
主題: 2
精華: 0
積分: 230
點名: 0
作業系統: winXP
軟體版本: office 2007& office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-23
最後登錄: 2017-10-28

2^#

發表於 2012-12-21 22:14 | 只看該作者

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

Lin

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

3^#

發表於 2012-12-23 02:05 | 只看該作者

本帖最後由 HUNGCHILIN 於 2012-12-23 02:09 編輯

回復 2# lin

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

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

lin

帖子: 172
主題: 2
精華: 0
積分: 230
點名: 0
作業系統: winXP
軟體版本: office 2007& office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-23
最後登錄: 2017-10-28

4^#

發表於 2012-12-23 22:30 | 只看該作者

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

Lin

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

5^#

發表於 2012-12-24 23:57 | 只看該作者

本帖最後由 HUNGCHILIN 於 2012-12-25 00:10 編輯

回復 4# lin

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

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

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

lin

帖子: 172
主題: 2
精華: 0
積分: 230
點名: 0
作業系統: winXP
軟體版本: office 2007& office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-23
最後登錄: 2017-10-28

6^#

發表於 2012-12-25 13:25 | 只看該作者

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

Lin

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

7^#

發表於 2012-12-25 18:19 | 只看該作者

本帖最後由 HUNGCHILIN 於 2012-12-25 18:30 編輯

回復 6# lin

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

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

lin

帖子: 172
主題: 2
精華: 0
積分: 230
點名: 0
作業系統: winXP
軟體版本: office 2007& office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-23
最後登錄: 2017-10-28

8^#

發表於 2013-1-3 01:13 | 只看該作者

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

1212230201d0d8fd9dfc3e4381_jpg_thumb.jpg (21.88 KB)

Lin

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

9^#

發表於 2013-1-3 14:15 | 只看該作者

本帖最後由 HUNGCHILIN 於 2013-1-3 15:39 編輯

回復 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做了定義隱藏，如下圖(未公開工具)

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

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

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

lin

帖子: 172
主題: 2
精華: 0
積分: 230
點名: 0
作業系統: winXP
軟體版本: office 2007& office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-23
最後登錄: 2017-10-28

10^#

發表於 2013-1-8 13:22 | 只看該作者

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

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

Lin