Excel VB Code Adjust for Splitting Into Separate Workbooks

Test this sample
EE-Sample1.xlsm

Thank you for assisting.  A couple of things:
You indicated at the bottom of the code if I needed to utilize the password protection to remove the comments.  I do need the workbook protected with a password and the worksheets protected without a password.  So how that is set up in the existing code would still be required.

When I run your code after removing those comments it errors out highlighting this line at the bottom:
        wb.SaveAs Filepath & "\" & FileName, FileFormat:=51, ReadOnlyRecommended:=False, CreateBackup:=False

Also - if I want to replicate this process, meaning if I want to add more codes other than 000060 and George/Martha Washington what would be the best way to add those?  For example, 000070 and Lincoln, Abraham....how would add add that to what you created to make sure that is pulled into a separate workbook and removed from the master list before the main part of the code runs?

If you need to protect only workbook, you need only one uncommented line:
 'wb.Protect Structure:=True, Windows:=False, Password:="Password"
 ' wb.Sheets(1).Protect
wb.SaveAs Filepath & "\" & FileName, FileFormat:=51, Password:="Password", WriteResPassword:="Password", ReadOnlyRecommended:=False, CreateBackup:=False
'wb.SaveAs Filepath & "\" & FileName, FileFormat:=51, ReadOnlyRecommended:=False, CreateBackup:=False

I have no errors
You can call sub with any codes, add line with call to sub and parameters:
Call c_000060(Filepath, ws1, "Lincoln, Abraham", "000070", "L")
file wil be 000070L.xls

When I add that additional sub all it shows the 000060E and 000060A then it just locks in a loop.  Here is what I am using:


Sub CreateNewWorkbooks()
Dim swb As Workbook, wb As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim lr As Long, i As Long
Dim Filepath As String, FileName As String
Dim x, dict, it

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set swb = ThisWorkbook
Set ws1 = swb.Sheets("Planning Worksheet")
Set ws2 = swb.Sheets("Instructions")
Set ws3 = swb.Sheets("2017 Bands")

Filepath = "S:"

Call c_000060(Filepath, ws1, "Washington, George", "000060", "E")
Call c_000060(Filepath, ws1, "Washington, Martha", "000060", "A")
Call c_000060(Filepath, ws1, "Lincoln, Abraham", "000070", "M")


ws1.AutoFilterMode = False
lr = ws1.Cells(Rows.Count, 3).End(xlUp).Row

x = ws1.Range("C14:C" & lr)
Set dict = CreateObject("Scripting.Dictionary")

For i = 1 To UBound(x, 1)
    dict.Item(x(i, 1)) = ""
Next i

For Each it In dict.keys
    FileName = it & ".xlsx"
    With ws1.Rows(13)
        .AutoFilter field:=3, Criteria1:=it
        Set wb = Workbooks.Add
        ws1.Range("A1:AN" & lr).SpecialCells(xlCellTypeVisible).Copy wb.Sheets(1).Range("A1")
        wb.Sheets(1).Name = ws1.Name
       
       
         With wb.Sheets(1)
            .UsedRange.ColumnWidth = 15
            .Cells.Locked = False
            .Range("B:C,F:I,O:P,T:V,X:X,AE:AE,AJ:AK").Select
            .Range("F1").Activate
            Selection.Locked = True
            .Range("B:C,F:I,O:P,T:V,X:X,AE:AE,AJ:AK").EntireColumn.Hidden = True
           
           
        End With
        ws2.Copy after:=wb.Sheets(Sheets.Count)
        ws3.Copy after:=wb.Sheets(Sheets.Count)
       
            Sheets("Planning Worksheet").Select
            Range("L14").Select
       
        Application.DisplayAlerts = False
       
        wb.Protect Structure:=True, Windows:=False, Password:="Password"
        wb.Sheets(1).Protect
        'wb.SaveAs Filepath & FileName, FileFormat:=51, Password:="Password", WriteResPassword:="Password", ReadOnlyRecommended:=False, CreateBackup:=False
        wb.Close
        Application.DisplayAlerts = True
        Set wb = Nothing
        Application.CutCopyMode = 0
    End With

Next it
ws1.AutoFilterMode = False
Application.ScreenUpdating = True
Application.CutCopyMode = 0
MsgBox dict.Count & " Workbooks have been created and saved in the folder " & Filepath & "!", vbInformation
End Sub

Sub c_000070(Filepath As String, wks As Worksheet, Name As String, No As String, FileName As String)
Dim SR As Long, WG As Boolean, SO As Long
Dim wb As Workbook ', wks As Worksheet
WG = True
FileName = No & FileName
'Set wks = swb.Sheets(wksN)
SR = 14 'Correct if structure will be changed
SO = 2
Do While wks.Cells(SR, 3) <> ""
    If wks.Cells(SR, 3) = No And wks.Cells(SR, 11) = Name Then
        If WG Then
            Set wb = Workbooks.Add
            WG = False
            wks.Rows("13").Copy wb.Sheets(1).Rows("1") 'Title
        End If
        wks.Rows(SR).Copy wb.Sheets(1).Rows(SO) 'insert row
        SO = SO + 1
        wks.Rows(SR).Delete
    End If
    SR = SR + 1
Loop
If Not WG Then
        Application.DisplayAlerts = False
       
        'Remove comments if you need password
            'wb.Protect Structure:=True, Windows:=False, Password:="Password"
            wb.Sheets(1).Protect
        wb.SaveAs Filepath & "\" & FileName, FileFormat:=51, Password:="Password", WriteResPassword:="Password", ReadOnlyRecommended:=False, CreateBackup:=False
            'wb.SaveAs Filepath & "\" & FileName, FileFormat:=51, ReadOnlyRecommended:=False, CreateBackup:=False
       
       
        wb.Close
        Application.DisplayAlerts = True
        Set wb = Nothing
End If
End Sub

Sub c_000070(Filepath As String, wks As Worksheet, Name As String, No As String, FileName As String)
Dim SR As Long, WG As Boolean, SO As Long
Dim wb As Workbook ', wks As Worksheet
WG = True
FileName = No & FileName
'Set wks = swb.Sheets(wksN)
SR = 14 'Correct if structure will be changed
SO = 2
Do While wks.Cells(SR, 3) <> ""
    If wks.Cells(SR, 3) = No And wks.Cells(SR, 11) = Name Then
        If WG Then
            Set wb = Workbooks.Add
            WG = False
            wks.Rows("13").Copy wb.Sheets(1).Rows("1") 'Title
        End If
        wks.Rows(SR).Copy wb.Sheets(1).Rows(SO) 'insert row
        SO = SO + 1
        wks.Rows(SR).Delete
    End If
    SR = SR + 1
Loop
If Not WG Then
        Application.DisplayAlerts = False
       
        'Remove comments if you need password
            'wb.Protect Structure:=True, Windows:=False, Password:="Password"
            wb.Sheets(1).Protect
        wb.SaveAs Filepath & "\" & FileName, FileFormat:=51, Password:="Password", WriteResPassword:="Password", ReadOnlyRecommended:=False, CreateBackup:=False
            'wb.SaveAs Filepath & "\" & FileName, FileFormat:=51, ReadOnlyRecommended:=False, CreateBackup:=False
       
       
        wb.Close
        Application.DisplayAlerts = True
        Set wb = Nothing
End If
   
End Sub

You don't need additional sub. Look at sample
There were also one error and some lines were not deleted. Use new sub c_000060
EE-Sample2.xlsm

Ok - I see what you're doing now.  Everything appears to be working but there is one issue.  The new files being created from the new sub C are not copying over rows 1-12 at the top.  Its starting at row 13 but it should be copying everything that is in the master file starting at row 1 down to row 13 where the column headers are at.  If you run the file but remove this line:  Exit Sub 'remove this line after testing to run the full code and then open 000060E and then open 000002 you'll see the difference.  If that can be corrected then this should be ready for use.  Thank you.

Look at sub: there is line with comment
SR = 14 'Correct if structure will be changed
Change 14 to real line (2, for example, if you have headers)
EE-Sample2.xlsm

When I run your attached file (only change is adding a file path of where the new workbooks are being saved) it does not generate the new 000060E, 000060A and 000070L workbooks.

I appreciate your patience.  I need these 'sub workbooks' to appear just like the others when the full code is ran.  If I am understanding this correctly, I need to change SR to equal 1 as that is the first row in the master that needs to carry over.  When I do this it does not generate any of the sub workbooks and just runs the rest of the code.  Attached pic 1 shows how it looks in my folder when I run the code with SR=1 and pic 2 is a snapshot of how I changed the SR.  Im not sure what Im overlooking but I am guessing its something simple.  If you can change the code in an example file so when it runs the sub workbooks will show the full rows starting at row 1 from the master I can zero in on what I did incorrectly.  Thanks.
EE-Sample-1.jpg
EE-Sample-2.jpg

So when I open 000060A, it should look like this attached sample in terms of having all the content in rows 1 - 13 with the new data based on what was defined in the sub code starting at line 14 down.
EE-Sample-3.jpg

SR = 1 if threre are no headers. SR is the number of first line with data.
In saved workbook you will have only data and row with number equal SR -1

So if Im understanding this correctly the way this code has been developed there is no way to carry over those rows (1-13) over to the new sub workbooks?

Upload sample and I show you how to correct code.

Thank you for all your help.  Finally pieced everything together.  Greatly appreciated!