- ©«¤l
- 59
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 108
- ÂI¦W
- 0
- §@·~¨t²Î
- winXp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- «ÌªF
- µù¥U®É¶¡
- 2011-12-16
- ³Ì«áµn¿ý
- 2018-8-10
|
[µo°Ý] 2003ª©¯à¥Î¡A2007«ç»ò§ï¤~¯à¥Î
Const ThePath = "C:\vbuse\"
Private Sub Workbook_Open()
'HideMacroSheet
AddPrivateNames
SavePath = Dir(ThePath, 16)
If SavePath = "" Then
Application.DisplayAlerts = False 'µe±Åã¥Ü(§ó·s)°±¤î
ActiveWorkbook.ChangeFileAccess xlReadOnly 'Àɮ׳]©w¬°°ßŪ
'Kill ActiveWorkbook.FullName '§R°£¥»ÀÉ«ü©w¸ô®|ªºÀÉ®×
ThisWorkbook.Close False 'Ãö³¬¥Ø«eÀɮרéñ±ó©Ò¦³¹ï¦¹¬¡¶Ã¯ªºÅܧó
Else
MsgBox "Åwªï¨Ï¥Î¥»¥\¯à"
End If
End Sub
'Option Explicit
'¬°¨CÓªí©w¸qÁôÂæWºÙ
Sub AddPrivateNames()
Dim sht As Worksheet
'¦CÁ|
For Each sht In Worksheets
'¬°¨C¤@Ó¤u§@ªí«ü©w"¥¨¶°ªí¦ì¸m"
ThisWorkbook.Names.Add sht.Name & "!Auto_Activate", "=Macro1!$A$1", False
Next
End Sub
'Sub HideMacroSheet()
'ÁôÂÃ¥¨¶°ªí
'ThisWorkbook.Excel4MacroSheets(1).Visible = xlSheetHidden
'End Sub
¦]¬°¦³¨ÇªF¦è¥uµ¹¯S©w¹q¸£¥Î¡A¦ý¸I¨ì2007ª©©Î§ó°ªªº¡A´N¥¢®Ä¤F
¸÷¨D°ª¤âÌÀ°À°¦£¡A·P®¦!!!! |
|