開其他檔時(使其Workbook_Open巨集失效)僅能唯讀 - Excel程式區

[發問] 開其他檔時(使其Workbook_Open巨集失效)僅能唯讀

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

1^# 跳轉到 »

發表於 2014-4-6 08:21 | 顯示全部帖子

本帖最後由 GBKEE 於 2014-4-6 08:31 編輯

回復 1# yangjie

複製代碼

工作表視窗上開啟舊檔案時按住 Shift 鍵,亦可

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

2^#

發表於 2014-4-6 11:07 | 顯示全部帖子

回復 3# yangjie

Sub Ex()
Dim WB As Workbook, V As Object
Application.EnableEvents = False
Set WB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & "207班.xls", ReadOnly:=True)
With WB
'VBProject 物件，該物件代表指定活頁簿中的 Visual Basic 專案。唯讀。
For Each V In .VBProject.VBComponents
'VBComponents 屬性傳回包含在一個專案中的元件的集合物件。
V.CodeModule.DeleteLines 1, V.CodeModule.CountOfLines
'刪除程式碼
Next
End With
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。