Auto rename worksheet, save with password to desktop.

[Graham C1600]

Ok so here goes.

I have a spreadsheet where I need to calculate various things and then finally need to do the following :-

1. Create a copy of the worksheet in a new book.
2. Rename the worksheet based on Cells A2 & A3 (these are only names)
3. Save the worksheet to my desktop and name it as per cells A2 & A3.
4. Put a password on to open the spreadsheet 'Password 123'. I can change this at a later date.

I've tried via a macro but cannot seem to get it to work.

I will put a Form Control Button on the worksheet and then hopefully just put the code onto this button.

Hope this makes sense.

 

[mrshl9898]

Try:

Sub CopyandSave()

Dim wb As Workbook
Dim ws As Worksheet
Dim myname As String

Set ws = ActiveSheet
myname = ws.Range("A2") & ws.Range("A3")

ws.Name = myname
ws.Copy
Set wb = ActiveWorkbook
wb.Protect Password:="Password 123", Structure:=True, Windows:=False
wb.SaveAs "C:\Users\your.name\Desktop\" & myname & ".xlsx"


End Sub

 

[Graham C1600]

Try:

Sub CopyandSave()

Dim wb As Workbook
Dim ws As Worksheet
Dim myname As String

Set ws = ActiveSheet
myname = ws.Range("A2") & ws.Range("A3")

ws.Name = myname
ws.Copy
Set wb = ActiveWorkbook
wb.Protect Password:="Password 123", Structure:=True, Windows:=False
wb.SaveAs "C:\Users\your.name\Desktop\" & myname & ".xlsx"


End Sub

Thanks for the reply. Can you confirm what I need to do with these 2 ? Do I just need 1 ?

Sub Button1_Click()
Sub CopyandSave()

And then just one End Sub at the end.

Thanks

 

[mrshl9898]

Just the one start and end

 

[Graham C1600]

Just the one start and end

So I start with Sub Button1_Click() as I'm attaching this to a button.

And at the end just put End Sub ?

Thanks

 

[mrshl9898]

I believe this will work

Sub Button1_Click ()

Dim wb As Workbook
Dim ws As Worksheet
Dim myname As String

Set ws = ActiveSheet
myname = ws.Range("A2") & ws.Range("A3")

ws.Name = myname
ws.Copy
Set wb = ActiveWorkbook
wb.Protect Password:="Password 123", Structure:=True, Windows:=False
wb.SaveAs "C:\Users\your.name\Desktop\" & myname & ".xlsx"


End Sub

 

[Graham C1600]

I believe this will work

Sub Button1_Click ()

Dim wb As Workbook
Dim ws As Worksheet
Dim myname As String

Set ws = ActiveSheet
myname = ws.Range("A2") & ws.Range("A3")

ws.Name = myname
ws.Copy
Set wb = ActiveWorkbook
wb.Protect Password:="Password 123", Structure:=True, Windows:=False
wb.SaveAs "C:\Users\your.name\Desktop\" & myname & ".xlsx"


End Sub

Hi,

Thanks for this. So a couple of things don't seem right :-
Firstly when i use the code it renames the original sheet and also the new sheet from Range A2 & A3. I only need the new sheet renamed.
Secondly the password protection needs to be on so you have to input the password to open the sheet. It currently opens with the above code. I can cancel the password and type onto the sheet.

Hope this makes sens.

Thanks for your help so far.