返回列表下一主題上一主題發帖

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

HUNGCHILIN

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

版主 Rank: 7 Rank: 7 Rank: 7

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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-5-4 22:20 | 只看該作者

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

VBA

本帖最後由 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.rar (7.04 KB)

15-2.rar (14.22 KB)

樓主熱帖

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

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 316
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

2^#

發表於 2010-12-20 15:14 | 只看該作者

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

jeason

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2010-12-20 20:49 | 只看該作者

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

TOP

FAlonso