The revision of your question is a little different than the original copy/paste that you started with...
As far as the 255 char limit you might be able to get past that by using variable to represent chunks of data, e.g.
parta = "c:\windows\filefolder\fileforder\"
partb = "otherfolder\anotherfolder\"
partc = parta & partb
You can copy/rename a worksheet by:
Sheets("test2").Copy After:=Sheets("test1")
Sheets("test2").name = "newname"
Copy and save as csv:
ThisWorkbook.Worksheets("test2").Copy
ActiveWorkbook. SaveAs Filename:="C:\path\file.csv", FileFormat:=xlCSVWindows
Run a macro on Open:
Private Sub Workbook_Open()
Run "YourMacro"
End Sub
Read only / Password:
Workbooks.Open Filename="yourFile.xls", ReadOnly:=True, Password:="yourpassword"
or separate:
Workbooks.Open Filename="yourFile.xls", ReadOnly:=True
Workbooks.Open Filename="yourFile.xls", Password:="yourpassword"
NG,