Hente data fra andet excel mappe der er kodet

Eksempel:

Rem VBA-kode er i ThisWorkbook i "åbner.xls"

Private Sub åbnBeskyttetMappe()
Dim sti As String, denneMappe
    sti = ActiveWorkbook.Path
    If Right(sti, 1) <> "\" Then
        sti = sti + "\"
    End If
   
    denneMappe = ActiveWorkbook.FullName
       
    Workbooks.Open sti + "låst.xls", Password = "pb"
   
    With ActiveWorkbook.Sheets(1)
        celle1 = .Range("A1")
        celle2 = .Range("B1")
        celle3 = .Range("C1")
    End With
   
    ActiveWorkbook.Close
   
    Workbooks("åbner.xls").Activate
    With ActiveWorkbook.Sheets(1)
        .Range("A1") = celle1
        .Range("B1") = celle2
        .Range("C1") = celle3
    End With
End Sub

supertekst-> Umiddelbart er det nok uhensigtsmæssigt at hardcode password i en fil, med mindre denne i sig selv er beskyttet på samme måde.

Hej
Supertekst, jeg er lidt i tvivl om hvor jeg skal sætte min sti ind henne.
C:\Users\smeeden\Desktop\test.xls

Mvh
Smeeden

Hej Smeed

Der hvor jeg anvender:

    Workbooks.Open sti + "låst.xls", Password = "pb"

ændrer du til:

    Workbooks.Open "C:\Users\smeeden\Desktop\test.xls", Password = "XXX"

Jeg siger tak for hjælpen, lægger du et svar

Selv tak