kimbal

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim result
   
3.     If ThisWorkbook.Saved = False Then
   
4.         result = MsgBox("""" & ThisWorkbook.Name & """ ¦¹Àɮפw³Q­×§ï,¬O§_­nÀx¦s?", vbYesNoCancel)
   
5.     End If
   
6.     If result = vbYes Then
   
7.         For Each Sh In Sheets
   
8.             If Sh.Name <> "Index" Then Sh.Visible = False
   
9.         Next
   
10.         ThisWorkbook.Save
    
11.         Exit Sub
    
12.     ElseIf result = vbNo Then
    
13.         ThisWorkbook.Saved = True
    
14.     ElseIf result = vbCancel Then
    
15.         Cancel = True
    
16.         Exit Sub
    
17.     End If   
    
18. End Sub
    
19. WORKBOOK_OPEN«á ªºª¬ºA³]¦¨¤wÀx¦s
    
20. Private Sub Workbook_Open()
    
21.     Sheets("Index").Select
    
22.     For i = 1 To 4
    
23.         ActiveSheet.OLEObjects("CommandButton" & i).Visible = False
    
24.     Next
    
25.    
    
26.     ActiveSheet.OLEObjects("Textbox1").Activate
    
27.    thisworkbook.saved=true
    
28. End Sub

½Æ»s¥N½X

Ãö®É¦Û°Ê¦s

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     For Each Sh In Sheets
   
3.     If Sh.Name <> "Index" Then Sh.Visible = False
   
4.    thisworkbook.save
   
5. End Sub

½Æ»s¥N½X