ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ±j­¢¶}©ñ¥¨¶°¡A¤£µM´NÃö³¬ÀÉ®×

[µo°Ý] ±j­¢¶}©ñ¥¨¶°¡A¤£µM´NÃö³¬ÀÉ®×

¥Ø«e¸I¤W¤@­Ó°ÝÃD
§Ú¦³³]©w¥¨¶°¤F¡A¦ý¦pªG¨Ï¥ÎªÌ§â¥¨¶°¦w¥þ©Ê³]¬°¡u°ª¡v¦Ó¤£¶}©ñ¥¨¶°¡C

½Ð°Ý¦³¿ìªk¦bÀɮפ¤¡A³]©w¡u¤£¶}±Ò¥¨¶°¡A´N¤£¯à¬Ý¨ìÀɮפº®e¡A©Îª½±µ´NÃö³¬Àɮ׶Ü??¡v

·P®¦
¤¯¥S

¦^´_ 3# HUNGCHILIN


    ¤£¯à¤U¸ü¤j¤jªºªþÀÉ¡A©Ò¥H¨Ï¥Î¤F2¼Ó¤j¤jªº¤èªk¡A¤@¶}©lÁÙokªº

¦ý¤µ¤Ñ¶}±Ò«á¡A¤@ª½¥X²{ ¡u¥¨¶°ªí¤º§ä¤£¨ì return()©Îhalt()¨ç¼Æ¡v ¡A§Ú¨C´«­Ósheet ´N¥X²{¤@¦¸

¦³¿ìªk«ì´_­ìª¬¶Ü???  ¦]¬°§Ú·s¼Wªº excel4.0¥¨¶°ªí ¤w¸g¬Ý¤£¨ì¤F  

§Ú§âvbùتºµ{§Ç¥þ§R¤F ¤]ÁÙ¬O¤@ª½¥X²{??
¤¯¥S

TOP

¦^´_ 5# GBKEE


    Private Sub Workbook_Open() 'µo²{¤£¥¿½Tªº¦WºÙ-->«ç»ò·|³o¼Ëªü
    HideMacroSheet   -->
    AddPrivateNames --> ³o2¦æ·h¨ì¤W­±¥h´N¦æ¤F  ·P®¦!!
End Sub

¤£¹L¨C­ÓexcelÀɳ£­n§@¤@¦¸ excel4.0 ¥¨¶°ªí ¦A§â¨º´X­Ó®æ¤l¿é¤J  ¡A¦A§â¥¨¶°copy ¤W¥h  

¦³¤ñ¸û¤è«KÂIªº¤èªk¶Ü  (((§Ú¯u³g¤ß
¤¯¥S

TOP

¦^´_ 4# pitera88
§A¦³¨â­ÓPrivate Sub Workbook_Open()
¥u¯à¦³¤@­Ó ¥B¶·¦b ThisWorkbookªº¼Ò²Õ

TOP

·PÁÂ2¦ì¤j¤jªº¦^µª¡A¦ý~~~ ¤p¾Ç¥Í¤£¯à¤U¸üÀɮתü~~:'(

¥¿¦bª¦2¼Ó¤j¤jªº³sµ²¤À¨É¡Aµ²ªG


    Const ThePath = "C:\vbuse\"
     Const DelPath = "C:\456\*.*"

Private Sub Workbook_Open()
  SavePath = Dir(ThePath, 16)
If SavePath = "" Then
     'MsgBox "«D¥»¤H¤Å¥Î"
     'Kill DelPath §RÀÉ
     'DelPath.Delete
     ThisWorkbook.Close False
     'Application.Quit
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
'3.¦bWorkbookªºopen¨Æ¥ó©I¥sHideMacroSheet¡BAddPrivateNames¤èªk
Option Explicit
Private Sub Workbook_Open() 'µo²{¤£¥¿½Tªº¦WºÙ-->«ç»ò·|³o¼Ëªü
    HideMacroSheet
    AddPrivateNames
End Sub


¦³½Ð¤j¤j­ÌÀ°¦£¤F
¤¯¥S

TOP

TOP

¦^´_ 1# pitera88


http://tw.myblog.yahoo.com/libraersaint-ydns333/article?mid=267&next=256&l=f&fid=5   

Book1.rar (7.03 KB)

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD