- 帖子
- 59
- 主題
- 15
- 精華
- 0
- 積分
- 108
- 點名
- 0
- 作業系統
- winXp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 屏東
- 註冊時間
- 2011-12-16
- 最後登錄
- 2018-8-10
|
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)
|
發表於 2012-9-12 11:19
| 
發表於 2012-9-16 12:01
| 