[發問] 2003版能用，2007怎麼改才能用

pitera88

Const ThePath = "C:\vbuse\"

Private Sub Workbook_Open()
    'HideMacroSheet
    AddPrivateNames

  SavePath = Dir(ThePath, 16)
If SavePath = "" Then
   Application.DisplayAlerts = False '畫面顯示(更新)停止
   ActiveWorkbook.ChangeFileAccess xlReadOnly '檔案設定為唯讀
   'Kill ActiveWorkbook.FullName '刪除本檔指定路徑的檔案
   ThisWorkbook.Close False '關閉目前檔案並放棄所有對此活頁簿的變更

Else
  MsgBox "歡迎使用本功能"
End If
End Sub

'Option Explicit
'為每個表定義隱藏名稱
Sub AddPrivateNames()
    Dim sht As Worksheet
    '列舉
    For Each sht In Worksheets
        '為每一個工作表指定"巨集表位置"
        ThisWorkbook.Names.Add sht.Name & "!Auto_Activate", "=Macro1!$A$1", False
    Next
End Sub

'Sub HideMacroSheet()
    '隱藏巨集表
    'ThisWorkbook.Excel4MacroSheets(1).Visible = xlSheetHidden
'End Sub


因為有些東西只給特定電腦用，但碰到2007版或更高的，就失效了

跪求高手們幫幫忙，感恩!!!!

pitera88

別沉下去啊~~~~

各位大大們，出個手幫忙一下，感恩哦!!!!!!!!!!

c_c_lai

回復 2# pitera88
這是在 2010 上執行的，你的問題是？

下載 (107.72 KB)

2012-9-14 19:24

pitera88

回復 3# c_c_lai


    在2007如果把巨集安全性設高，還是可以看到內容?

而且好像自動刪檔功能會失效?

c_c_lai

回復 4# pitera88
我個人是勾選取用所有巨集，以及降低了安全性，
因有連上DDE作業關係，而稍予配合更改。
你自已也可以試著調整看看。

HUNGCHILIN

是防君子的程式.再加上WIN7的病毒防護措施
我比較偏向不用再研究此議題

因為
有能力破解的始終能破解
沒能力解的還是沒能力解

給予此建議...

pitera88

回復 6# HUNGCHILIN


    感謝阿吉大大的建議
因為不是給高手用的，只是不能給某些人看到這些內容，所以作些防護

他的電腦如果沒有特別設定，沒法開這excel

現在是防不住 @@"(他沒改設定哦)

又不能設密碼 @@" 有些人就是腦殘記不住，也會流出去 xd

所以只好自已想辦法了

感恩!!