msmplay

¦^´_ 10# zyzzyva


   z¤j~~~~´ú¸Õ¤w¦¨¥\¡A¯uªº¶W¯Å·PÁªºËç

msmplay

¦^´_ 10# zyzzyva


   z¤j~~¥i¥H½Ð±Ð¨â­Ó©µ¦ùªº°ÝÃD¶Ü?
´N¬O¦pªG¦Û°Ê³Æ¥÷¦ì¸m§Æ±æ§ï¬°Àɮתº¤W¼h¸ê®Æ§¨¡A¸Ó¦p¦ó­×§ï©O?
¨Ò¦p:ÀÉ®× ©ñ©ó C:\Users\Downloads\´ú¸Õ¡A§Æ±æ¦Û°Ê³Æ¥÷Àɮשó C:\Users\Downloads


¥t¥~¦pªG§Æ±æ¦Û°Ê³Æ¥÷ªºÀɮשT©w¦s¬°°ßŪÀÉ¡A¤S¸Ó¦p¦ó­×§ï©O?
¨Ò¦p: ´ú¸ÕÀÉ.xlsm ¦sÀɮɦ۰ʳƥ÷¬° ´ú¸ÕÀÉ.xlsx(°ßŪ)

zyzzyva

¦^´_ 12# msmplay
´ú¸Õ¬Ý¬Ý¡C(¤£­n©ñ¦b®Ú¥Ø¿ý¦pC:\¤U)

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim mypath As String, fname As String
   
3. 
   
4.     If Not Me.Saved Then
   
5.         Msg = "Do you want to save the changes you made to "
   
6.         Msg = Msg & Me.Name & "?"
   
7.         Ans = MsgBox(Msg, vbQuestion + vbYesNoCancel)
   
8.         Select Case Ans
   
9.             Case vbYes
   
10.                 Me.Save
    
11.             Case vbNo
    
12.                 Me.Saved = False
    
13.             Case vbCancel
    
14.                 Cancel = True
    
15.                 Exit Sub
    
16.           End Select
    
17.     End If
    
18.    
    
19.     If Me.Saved Then
    
20.         Application.DisplayAlerts = False 'Ãö³¬¨t²Îĵ§i°T®§
    
21.         fname = "\¦Û°Ê³Æ¥÷" & Format(Date, "yymmdd") & ".xlsx"
    
22.         mypath = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
    
23.         'ThisWorkbook.Save '­nÀx¦s¦Û¨­ÀɮסA½Ð¦Û¦æ¿ï¾Ü­n¤£­nÀx¦s
    
24.         ThisWorkbook.SaveAs mypath & fname, FileFormat:=xlOpenXMLWorkbook
    
25.         Application.DisplayAlerts = True '¶}±Ò¨t²Îĵ§i°T®§
    
26.     Else
    
27.         Me.Saved = True
    
28.     End If
    
29.    
    
30.     Targetfile = mypath & fname
    
31. 
    
32.     If GetAttr(Targetfile) Then
    
33.         SetAttr Targetfile, vbReadOnly
    
34.     End If
    
35.       
    
36. End Sub

½Æ»s¥N½X

msmplay

¦^´_ 13# zyzzyva

   z¤j~~~~~´ú¸Õ«á¡Aµo²{²Ä¤@¦¸¦sÀɦ¨¥\¡A¦ý²Ä¤G¦¸­n¦A¦sÀÉ´N·|¥X²{¥H¤U¿ù»~¡A¬O¤£¬O¦]¬°°ßŪÀɵLªkÂл\°ÝÃD©O??

¤U¸ü (15.52 KB)

2016-11-2 22:28

¤U¸ü (20.33 KB)

2016-11-2 22:28

zyzzyva

¦^´_ 14# msmplay
¹ïªü¡A¬O°ßŪÄݩʪº°ÝÃD¡C¦pªG§Æ±æ¤§«áÁÙ¥i¥Hª½±µ¦sÀÉ¡A¥i¯à¦sÀÉ«e­n¥[­ÓÀˬd¡A¦pªGÄݩʤw¸g¬O°ßŪ¡A´N§ï¦^¤@¯ë(vbNormal)

msmplay

¦^´_ 15# zyzzyva

z¤j~~~~¨º½Ð°Ý¥i¥H¦sÀɧYÂл\ÂÂÀɶܡH¤]´N¬OµL½×¦p¦ó¡A­ì©lÀÉ¥u­n¦sÀÉ´N¬O­nÂл\³Æ¥÷°ßŪÀÉ¡A¥i¥HÂæ¶Ü¡H¤S¸Ó¦p¦ó­×§ï©O¡H¯uªº«D±`·PÁÂ~~~~~~

zyzzyva

¦^´_ 16# msmplay
§ï¤F¤@¤U¡AÀ³¸Ó¥i¥H¡A¦A¸Õ¸Õ¬Ý¡C

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim mypath As String, fname As String
   
3.    
   
4.     fname = "\¦Û°Ê³Æ¥÷" & Format(Date, "yymmdd") & ".xlsx"
   
5.     mypath = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
   
6.     Targetfile = mypath & fname
   
7.    
   
8. 
   
9.     If Not Me.Saved Then
   
10.         Msg = "Do you want to save the changes you made to "
    
11.         Msg = Msg & Me.Name & "?"
    
12.         Ans = MsgBox(Msg, vbQuestion + vbYesNoCancel)
    
13.         Select Case Ans
    
14.             Case vbYes
    
15.                 Me.Save
    
16.             Case vbNo
    
17.                 Me.Saved = False
    
18.             Case vbCancel
    
19.                 Cancel = True
    
20.                 Exit Sub
    
21.           End Select
    
22.     End If
    
23.    
    
24.     If Me.Saved Then
    
25.         Application.DisplayAlerts = False 'Ãö³¬¨t²Îĵ§i°T®§
    
26.         'ThisWorkbook.Save '­nÀx¦s¦Û¨­ÀɮסA½Ð¦Û¦æ¿ï¾Ü­n¤£­nÀx¦s
    
27.         If Dir(Targetfile) <> "" Then
    
28.             If GetAttr(Targetfile) And vbReadOnly Then
    
29.                 SetAttr Targetfile, vbNormal
    
30.             End If
    
31.         End If
    
32.         ThisWorkbook.SaveAs mypath & fname, FileFormat:=xlOpenXMLWorkbook
    
33.         Application.DisplayAlerts = True '¶}±Ò¨t²Îĵ§i°T®§
    
34.     Else
    
35.         Me.Saved = True
    
36.     End If
    
37. 
    
38.     If Dir(Targetfile) <> "" Then
    
39.         If GetAttr(Targetfile) Then
    
40.             SetAttr Targetfile, vbReadOnly
    
41.         End If
    
42.     End If
    
43.       
    
44. End Sub

½Æ»s¥N½X

msmplay

¦^´_ 17# zyzzyva

z¤j~~¯uªº¥i¥H¤F­C¡IÁÂÁ§A*^O^*

msmplay

¦^´_ 17# zyzzyva

z¤j~~~~µ²ªG¤½¥q¤S­n±N³Æ¥÷Àɧï©ñ©ó¹³¤§«e¼gªº¨º¼Ë¡A©ñ¦bÀɮפU¤@¼h³Æ¥÷¸ê®Æ§¨¤ºmypath = ThisWorkbook.Path & "\³Æ¥÷\"


µ²ªG§Ú¹Á¸Õ§ï¤F¤@¤U¦ý³£¤£¹ï¡A¥i¥H¦A³Â·Ð±z¶Ü~~~~
¬õ¦â¬O§Ú¦Û¤v¶Ã§ïªº

• Private Sub Workbook_BeforeClose(Cancel As Boolean)
•     Dim mypath As String, fname As String
•     fname = "\¦Û°Ê³Æ¥÷" & Format(Date, "yymmdd") & ".xlsx"
•     mypath = ThisWorkbook.Path & "\³Æ¥÷\"
•     Targetfile = mypath & fname
•     If Not Me.Saved Then
•         Msg = "Do you want to save the changes you made to "
•         Msg = Msg & Me.Name & "?"
•         Ans = MsgBox(Msg, vbQuestion + vbYesNoCancel)
•         Select Case Ans
•             Case vbYes
•                 Me.Save
•             Case vbNo
•                 Me.Saved = False
•             Case vbCancel
•                 Cancel = True
•                 Exit Sub
•           End Select
•     End If
•     If Me.Saved Then
•         Application.DisplayAlerts = False 'Ãö³¬¨t²Îĵ§i°T®§
•         'ThisWorkbook.Save '­nÀx¦s¦Û¨­ÀɮסA½Ð¦Û¦æ¿ï¾Ü­n¤£­nÀx¦s
•         If Dir(Targetfile) <> "" Then
•             If GetAttr(Targetfile) And vbReadOnly Then
•                 SetAttr Targetfile, vbNormal
•             End If
•         End If
•         ThisWorkbook.SaveAs mypath & fname, FileFormat:=xlOpenXMLWorkbook
•         Application.DisplayAlerts = True '¶}±Ò¨t²Îĵ§i°T®§
•     Else
•         Me.Saved = True
•     End If
•     If Dir(Targetfile) <> "" Then
•         If GetAttr(Targetfile) Then
•             SetAttr Targetfile, vbReadOnly
•         End If
•     End If
• End Sub

zyzzyva

¦^´_ 19# msmplay
À³¸Ó¥u¬O¦h¤F¤@­Ó\¡A§ï¦¨mypath = ThisWorkbook.Path & "\³Æ¥÷"¸Õ¸Õ¬Ý¡C