Hej hej.
Denna kod fungerar för att öppna upp låsta blad, lägg märke till att du måste redigera koden lite själv.
Sub GetvaluefromMonthlyreportLocked()
Dim LockedReports As Workbook
Dim fsObj As Object, folderObj As Object, fileObj As Object, eachfilesObj As Object
Dim value As Variant
Set fsObj = CreateObject("Scripting.FilesystemObject")
'Byt namn till namnet på katalogen din rapportfil kommer in i. I denna katalog ska endast importfilen ligga.
Set folderObj = fsObj.getfolder("C:\\test")
Set fileObj = folderObj.Files
For Each eachfilesObj In fileObj
Set fsObj = Workbooks.Open(eachfilesObj)
'Byt lösenord till rapportens lösenord
Worksheets(1).Unprotect ("password")
'Byt från (1) till bladnumret där värdet finns. Byt ("A1") till cellen där värdet finns
value = Worksheets(1).Range("A1")
'Byt bladet bladnumret (1) till bladnumret du vill klistra in på i din admin fil.
'Byt cell ("A1") mot cellreferensen där du vill klistra in ett värde.
ThisWorkbook.Worksheets(1).Range("A1") = value
Next eachfilesObj
fsObj.Close
End Sub
mvh
Christian