Snasui Excel Forum

Code: Select all

Sub workbook_open()
MsgBox "´Ù´éÇÂÇèÒÁÕ 2 ä¿Åì§Ò¹ËÃ×Íà»ÅèÒ"
Workbooks.Open "\\Account\Data (D)\Sale\Dataapp.xlsx"
'Workbooks.Open "\\Account\Data (D)\Sale\SaleData.xlsx"
'Workbooks.Open "\\Account\Data (D)\Sale\DataBase.xlsx"
Workbooks.Open "\\Account\Data (d)\Sale\StockSaleHart.xlsx"
Workbooks.Open "\\John\f\Stockqc.xlsx"
Workbooks("StockSaleHart.xlsx").Activate
ActiveWindow.Visible = False

ThisWorkbook.Activate
End Sub

Code: Select all

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Dim sh As Worksheet
    'Sheets("sheet1").Visible = True
    'For Each sh In Worksheets
        'If sh.Name <> "Sheet1" Then
            'sh.Visible = False
        'End If
    'Next sh
    Workbooks("Dataapp.xlsx").Activate
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
    
    Workbooks("StockSaleHart.xlsx").Activate
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
    
    'Workbooks("DataBase.xlsx").Activate
    'ActiveWorkbook.Saved = False
    'ActiveWorkbook.Close
    
    Workbooks("StockQc.xlsx").Activate
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
    
    'Workbooks("SaleData.xlsx").Activate
    'ActiveWorkbook.Save
    'ActiveWorkbook.Close
   
    ThisWorkbook.Save
End Sub