Public fs As New FileSystemObject


Function GetPlant(Name As String)
    If InStr(1, Name, "SPC") Then
        If InStr(1, Name, "A Plant") Then
            GetPlant = "A"
        Else
            GetPlant = "B"
        End If
    Else
        GetPlant = "NO"
    End If
End Function

Function DirName(Path As String)
    DirName = Left(Path, InStrRev(Path, "\") - 1)
End Function

Function BaseName(Path As String)
    BaseName = Right(Path, Len(Path) - InStrRev(Path, "\"))
End Function


Sub OpenBooks(pl As String, Optional skip As Boolean = False)
    Dim response As Boolean
    Dim fldr As Folder
    Dim f As File

    If Not skip Then
        skip = MsgBox("Do you want to open all " & pl & " Plant charts?", vbYesNo) = 6
    End If

    If skip Then
        Set fldr = fs.GetFolder(ThisWorkbook.Path & "\" & pl & " Plant")

        For Each f In fldr.Files
            Application.Workbooks.Open (f.Path)
        Next f
    End If
End Sub

Sub ChangeSheets(pl As String, Optional skip As Boolean = False)
    Dim response As Boolean
    Dim month As String
    Dim wb As Workbook
    Dim ws As Worksheet

    If Not skip Then
        skip = MsgBox("Do you want to modify all " & pl & " Plant charts?", vbYesNo) = 6
    End If

    month = ThisWorkbook.ActiveSheet.Range("Month").Value

    If skip Then
        For Each wb In Application.Workbooks
            If pl = GetPlant(wb.Name) Then
                wb.Worksheets("Data").Range("B1").Value = month
            End If
        Next wb
    End If
End Sub

Sub PrintSheets(pl As String, Optional skip As Boolean = False)
    Dim response As Boolean
    Dim wb As Workbook
    Dim ws As Worksheet

    If Not skip Then
        skip = MsgBox("Do you want to print all " & pl & " Plant charts?", vbYesNo) = 6
    End If

    If skip Then
        For Each wb In Application.Workbooks
            If pl = GetPlant(wb.Name) Then
                For Each ws In wb.Worksheets
                    If ws.Name <> "Data" Then
                        MsgBox "Fake print!" 'ws.PrintOut
                    End If
                Next ws
            End If
        Next wb
    End If
End Sub

Sub CloseBooks(pl As String, Optional skip As Boolean = False)
    Dim response As Boolean
    Dim wb As Workbook

    If Not skip Then
        skip = MsgBox("Do you want to save and close all " & pl & " Plant charts?", vbYesNo) = 6
    End If

    If skip Then
        For Each wb In Application.Workbooks
            If pl = GetPlant(wb.Name) Then
                wb.Close True
            End If
        Next wb
    End If
End Sub


Sub OpenA()
    OpenBooks "A"
End Sub

Sub OpenB()
    OpenSheets "B"
End Sub


Sub ChangeASheets()
    ChangeSheets "A"
End Sub

Sub ChangeBSheets()
    ChangeSheets "B"
End Sub


Sub PrintASheets()
    PrintSheets "A"
End Sub

Sub PrintBSheets()
    PrintSheets "B"
End Sub


Sub CloseA()
    CloseBooks "A"
End Sub

Sub CloseB()
    CloseBooks "B"
End Sub


Sub AAll(Optional skip As Boolean = False)
    If MsgBox("Do you want to open, modify, print, save, and close all A Plant charts?", vbYesNo) = 6 Then
        OpenBooks "A", True
        ChangeSheets "A", True
        PrintSheets "A", True
        CloseBooks "A", True
    End If
End Sub

Sub BAll(Optional skip As Boolean = False)
    If MsgBox("Do you want to open, modify, print, save, and close all B Plant charts?", vbYesNo) = 6 Then
        OpenBooks "B", True
        ChangeSheets "B", True
        PrintSheets "B", True
        CloseBooks "B", True
    End If
End Sub

Sub AllAll()
    If MsgBox("Do you want to open, modify, print, save, and close ALL SPC charts?", vbYesNo) = 6 Then
        AAll True
        BAll True
    End If
End Sub