The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
Sub copy_from_protected_file()
Dim source_file As String, source_pwd As String, source_sheet As String, source_range As String, dest_cell As String
Dim source As Workbook
Dim dest As Range
source_file = "D:\temp\2.xlsx"
source_pwd = "test"
source_sheet = "Sheet1"
source_range = "A1:C4"
dest_cell = "B6"
'-- specify destination range
Set dest = ActiveSheet.Range(dest_cell)
'-- open encrypted file
Set source = Workbooks.Open(Filename:=source_file, Password:=source_pwd)
'-- copy source range
source.Worksheets(source_sheet).Range(source_range).Copy
Me.Paste Destination:=dest
'-- close encrypted file
source.Close False
Set source = Nothing
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.