返回列表 上一主題 發帖

[原創] 如何去除EXCEL VBA 中的 THISWORKBOOKS 與SHEET ?

[原創] 如何去除EXCEL VBA 中的 THISWORKBOOKS 與SHEET ?

本帖最後由 HUNGCHILIN 於 2012-1-4 23:29 編輯

這個檔案是阿吉在測試2007與其他版本相容性的時候測出來比較奇怪的檔案

P.S.技巧 共用活頁簿加密 之  a.製作特殊檔

其效果是:

1.EXCEL VBA 中的 THISWORKBOOKS 與SHEET 會消失不見

2.Excel課程-VBE 顯示1.xls 這個檔在2007版本時VB專案會顯示"專案鎖定不可見"

    但2007以下版本都可見

3.另存成2007檔案時不可存

大概可用在於限制EXCEL 程式不能使用THISWORKBOOKS 與SHEET 撰寫的時候

屬於雞肋並不實用瞭解有這怪東西就好了
無THISWORKBOOKS & SHEET 15-1.rar
無THISWORKBOOKS 15-2.rar

15-1.jpg
2010-5-4 22:19

15-1.rar (7.04 KB)
15-2.rar (14.22 KB)
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

這位大大
您的功夫太高了
有點沒辦法了解你的程式呢
不過我會加油去了解的
jeason

TOP

經我觀察 在 2003版是增益集  (我的版本是2003)
請打開 vba 視窗
Private Sub auto_Open()
MsgBox "這是 HUNGCHILIN 的作品" & "  (?体)我不是???的    :    (繁體)我不是來騙錢的"
ThisWorkbook.SaveAs "C:\阿吉.XLS"  '加入這一行  執行後 THISWORKBOOKS 與SHEET 會出現了
End Sub
增益集指令 ->按[瀏覽..] 可在 C:\ 阿吉.XLS  家入為增益集

TOP

希望樓主將來可以撰寫一些巿面書籍沒有提及的高級實用技術,積累成篇,讓會員們開開眼界
例如excel和外部程式結合等(這個版經常有關於DDE的題目),相信會更有趣
1

評分人數

80 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 要批評別人時,先想想自己是否完美無缺。
返回列表 上一主題