- 帖子
- 59
- 主題
- 15
- 精華
- 0
- 積分
- 108
- 點名
- 0
- 作業系統
- winXp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 屏東
- 註冊時間
- 2011-12-16
- 最後登錄
- 2018-8-10
|
4#
發表於 2012-2-2 10:09
| 只看該作者
感謝2位大大的回答，但~~~ 小學生不能下載檔案阿~~:'(
正在爬2樓大大的連結分享，結果
Const ThePath = "C:\vbuse\"
Const DelPath = "C:\456\*.*"
Private Sub Workbook_Open()
SavePath = Dir(ThePath, 16)
If SavePath = "" Then
'MsgBox "非本人勿用"
'Kill DelPath 刪檔
'DelPath.Delete
ThisWorkbook.Close False
'Application.Quit
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
'3.在Workbook的open事件呼叫HideMacroSheet、AddPrivateNames方法
Option Explicit
Private Sub Workbook_Open() '發現不正確的名稱-->怎麼會這樣阿
HideMacroSheet
AddPrivateNames
End Sub
有請大大們幫忙了 |
|
發表於 2012-2-1 21:39
| 
發表於 2012-2-2 11:15
| 
