<div>
try this, see attached 
 

<pre><code class="code-10 nolinks" id="code-20-42351627-1">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(&quot;Planning Worksheet&quot;)
Set ws2 = swb.Sheets(&quot;Instructions&quot;)
Set ws3 = swb.Sheets(&quot;2017 Band&quot;)

FilePath = &quot;S:&quot;

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

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

For i = 1 To UBound(x, 1)
 dict.Item(x(i, 1)) = &quot;&quot;
Next i

For Each it In dict.keys
 FileName = it &amp; &quot;.xlsx&quot;
 With ws1.Rows(13)
 .AutoFilter field:=3, Criteria1:=it
 Set wb = Workbooks.Add
 ws1.Range(&quot;A1:AN&quot; &amp; lr).SpecialCells(xlCellTypeVisible).Copy wb.Sheets(1).Range(&quot;A1&quot;)
 wb.Sheets(1).Name = ws1.Name
 
 
 With wb.Sheets(1)
 .UsedRange.ColumnWidth = 15
 .Cells.Locked = False
 .Range(&quot;B:C,F:I,O:P,T:V,X:X,AE:AE,AJ:AK&quot;).Select
 .Range(&quot;F1&quot;).Activate
 Selection.Locked = True
 .Range(&quot;B:C,F:I,O:P,T:V,X:X,AE:AE,AJ:AK&quot;).EntireColumn.Hidden = True
 
 
 End With
 ws2.Copy after:=wb.Sheets(Sheets.Count)
 ws3.Copy after:=wb.Sheets(Sheets.Count)
 
 Sheets(&quot;Planning Worksheet&quot;).Select
 Range(&quot;L14&quot;).Select
 
 Application.DisplayAlerts = False
 
 
 wb.Protect Structure:=True, Windows:=False, Password:=&quot;&quot;
 wb.Sheets(1).Protect &quot;&quot;, True, True
 wb.SaveAs FilePath &amp; FileName, FileFormat:=51, 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 &amp; &quot; Workbooks have been created and saved in the folder &quot; &amp; FilePath &amp; &quot;!&quot;, vbInformation
End Sub
</code></pre>
<a href="https://filedb.experts-exchange.com/incoming/2017/11_w44/1202641/EE-Sample.xlsm" target="_blank" class="file-inline" title="EE-Sample.xlsm (28 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>EE-Sample.xlsm</a>
</div>

EE-Sample.xlsm

<div>
We're close. &nbsp;I still need the original workbook locked with the password prompt but each individual worksheet would be locked with no password. &nbsp;So the worksheet part is working based on your change but I've lost the workbook lock and prompt.
</div>

<div>
do you mean , the password to open the workbook?
</div>

<div>
Sorry - that was confusing. &nbsp;The workbooks should be locked with the password prompt as it shows in the sample file but I need each individual sheet locked with no password. &nbsp;This would allow the end-user to go to the 'Review' tab on ribbon and unprotect if necessary.
</div>

<div>
Just needed to remove the password prompt for sheet but after that it works like a charm. &nbsp;Thanks for the assist!
</div>

<div>
You're welcome I'm glad I was able to help
</div>

<div>
<div class="content wysiwyg-content">
Hello, 
 
Please review the code in the attached spreadsheet. &nbsp;I am not experienced in VB code and hoping someone can assist. &nbsp;When this code runs it creates new workbooks based on data in column C. &nbsp;Each new workbook is password protected and the worksheets are also protected. &nbsp;I need the code to be updated so for each new workbook the individual worksheets are locked but with no password on the sheet so the end-user can easily unlock for editing. &nbsp; 
 
Greatly appreciate any assistance. 
<a href="https://filedb.experts-exchange.com/incoming/2017/11_w44/1202607/EE-Sample.xlsm" target="_blank" class="file-inline" title="Sample File (30 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>EE-Sample.xlsm</a>
</div>
</div>

Hello,

Please review the code in the attached spreadsheet.  I am not experienced in VB code and hoping someone can assist.  When this code runs it creates new workbooks based on data in column C.  Each new workbook is password protected and the worksheets are also protected.  I need the code to be updated so for each new workbook the individual worksheets are locked but with no password on the sheet so the end-user can easily unlock for editing.  

Greatly appreciate any assistance.

Excel VB Code Adjust for Worksheet Protect

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.

VB Script

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.