Copy the excel sheet to another closed file

[sofas]

Hello, how can I copy an excel sheet to another locked file that is protected with a password of 555
And can I copy in format xlsx
But the important thing is to open the file automatically and copy without asking for a password

Sub CopySheetToClosedWB()
Dim SourceSht As Worksheet
Dim ws As Worksheet
Set SourceSht = Sheets("sheet1")
Application.ScreenUpdating = False


Set closedBook = Workbooks.Open("C:\Users\Admin\Downloads\data.xlsm")


SourceSht.Copy After:=closedBook.Sheets("sheet2")

      
    
closedBook.Close SaveChanges:=True

Application.ScreenUpdating = True
End Sub

 

[rlv01]

But the important thing is to open the file automatically and copy without asking for a password

In general:

Set closedBook = Workbooks.Open(Filename:="C:\Users\Admin\Downloads\data.xlsm", Password:="555")

 

[sofas]

In general:

Set closedBook = Workbooks.Open(Filename:="C:\Users\Admin\Downloads\data.xlsm", Password:="555")

Thank you very very good. Can I replace the file path so that I can put the file anywhere on the device not just a disk C

 

[rlv01]

In theory, yes. So long as the destination folder exists, or you create it.

 

[sofas]

In theory, yes. So long as the destination folder exists, or you create it.

Yes, how can I modify the code to open the file on more than one device when the two files exist, of course

 

[rlv01]

Yes, how can I modify the code to open the file on more than one device when the two files exist, of course

I'm not sure you can open two files with the same name at the same time. But as long as you do it one at a time you should be fine.

 

[sofas]

I'm not sure you can open two files with the same name at the same time. But as long as you do it one at a time you should be fine.

It is not the same name, but after searching I succeeded in putting it in this way

Sub Copysh()
Dim SourceSht As Worksheet
Set SourceSht = Sheets("sheet1")

Application.ScreenUpdating = False

  Set Closesh = Workbooks.Open(ThisWorkbook.Path & "\data.xlsm", Password:="555")
 
SourceSht.Copy After:=Closesh.Sheets(Closesh.Sheets.Count)

Closesh.Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub

Thank you for your help
good night