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

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-9-12 11:19 | 只看該作者

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

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版或更高的，就失效了

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

自刪檔作品.rar (7.41 KB)

樓主熱帖

仁兄

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

2^#

發表於 2012-9-14 18:56 | 只看該作者

別沉下去啊~~~~

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

仁兄

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2012-9-14 19:25 | 只看該作者

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

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

4^#

發表於 2012-9-15 22:27 | 只看該作者

回復 3# c_c_lai

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

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

仁兄

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2012-9-16 08:22 | 只看該作者

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

版主 Rank: 7 Rank: 7 Rank: 7

HUNGCHILIN

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

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

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

6^#

發表於 2012-9-16 12:01 | 只看該作者

本帖最後由 HUNGCHILIN 於 2012-9-16 12:06 編輯

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

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

給予此建議...

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

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

7^#

發表於 2012-9-16 22:55 | 只看該作者

回復 6# HUNGCHILIN

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

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

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

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

所以只好自已想辦法了

感恩!!

仁兄