VBA code export sheets as new workbooks

I have a workbook with three sheets (sheet 1, sheet 2, sheet 3)

I want to export those sheets as separate .xlsx workbooks (3 new files) with the name Date-#

For example, if sheet 1 has 11/6/14 in cell A1 and the number 2 in cell A2 i want the name to be: 11-6-14-2

Any ideas?

That works. Only, it makes the file name "11-05-2014 2"
Can it be displayed as "11-05-14-2?"

Also, can we add "protect sheet" to it with a password and change the file path? Default is my documents

Sub Macro1()

For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Select
Activesheet.Copy
    ActiveWorkbook.SaveAs Replace(Range("A1").Value, "/", "-") & "-" & Range("A2").Value, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
Next i
End Sub

To change the path:

Record yourself saving a file to your required folder and modify the above line to refer to that folder:

ActiveWorkbook.SaveAs Replace(Range("A1").Value, "/", "-") & "-" & Range("A2").Value, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Becomes:-

ActiveWorkbook.SaveAs "C:\Users\*********\Desktop\Documents\" & Replace(Range("A1").Value, "/", "-") & "-" & Range("A2").Value, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

That codes works, but it is still displaying the year as 2014. is there a way to display the year as just '14'? if not, that's fine. Not that big of a deal.

I would really like to make the output files password protected. Is there a way to do that? I want viewers to be able to copy the sheet, but not edit it.

Thanks

Actually, the way file is being saved is fine.
Any code that can be used to automatically password protect the sheet?

Figured it out.

Thank you