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

[µo°Ý] 2003ª©¯à¥Î¡A2007«ç»ò§ï¤~¯à¥Î

[µ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®¦!!!!

¦Û§RÀɧ@«~.rar (7.41 KB)

¤¯¥S

§O¨I¤U¥h°Ú~~~~

¦U¦ì¤j¤j­Ì¡A¥X­Ó¤âÀ°¦£¤@¤U¡A·P®¦®@!!!!!!!!!!
¤¯¥S

TOP

¦^´_ 2# pitera88
³o¬O¦b 2010 ¤W°õ¦æªº¡A§Aªº°ÝÃD¬O¡H

TOP

¦^´_ 3# c_c_lai


    ¦b2007¦pªG§â¥¨¶°¦w¥þ©Ê³]°ª¡AÁÙ¬O¥i¥H¬Ý¨ì¤º®e?

¦Ó¥B¦n¹³¦Û°Ê§RÀÉ¥\¯à·|¥¢®Ä?
¤¯¥S

TOP

¦^´_ 4# pitera88
§Ú­Ó¤H¬O¤Ä¿ï¨ú¥Î©Ò¦³¥¨¶°¡A¥H¤Î­°§C¤F¦w¥þ©Ê¡A
¦]¦³³s¤WDDE§@·~Ãö«Y¡A¦Óµy¤©°t¦X§ó§ï¡C
§A¦Û¤w¤]¥i¥H¸ÕµÛ½Õ¾ã¬Ý¬Ý¡C

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2012-9-16 12:06 ½s¿è

¬O¨¾§g¤lªºµ{¦¡.¦A¥[¤WWIN7ªº¯f¬r¨¾Å@±¹¬I
§Ú¤ñ¸û°¾¦V¤£¥Î¦A¬ã¨s¦¹Ä³ÃD

¦]¬°
¦³¯à¤O¯}¸Ñªº©l²×¯à¯}¸Ñ
¨S¯à¤O¸ÑªºÁÙ¬O¨S¯à¤O¸Ñ

µ¹¤©¦¹«Øij...

TOP

¦^´_ 6# HUNGCHILIN


    ·PÁªü¦N¤j¤jªº«Øij
¦]¬°¤£¬Oµ¹°ª¤â¥Îªº¡A¥u¬O¤£¯àµ¹¬Y¨Ç¤H¬Ý¨ì³o¨Ç¤º®e¡A©Ò¥H§@¨Ç¨¾Å@

¥Lªº¹q¸£¦pªG¨S¦³¯S§O³]©w¡A¨Sªk¶}³oexcel

²{¦b¬O¨¾¤£¦í @@"(¥L¨S§ï³]©w®@)

¤S¤£¯à³]±K½X @@" ¦³¨Ç¤H´N¬O¸£´Ý°O¤£¦í¡A¤]·|¬y¥X¥h xd

©Ò¥H¥u¦n¦Û¤w·Q¿ìªk¤F

·P®¦!!
¤¯¥S

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD