여러 개의 잠긴 Excel 파일에서 데이터 컴파일

Question

시간 모니터링을위한 도구를 만들려고합니다.이 도구를 사용하는 약 10 명의 직원이 있습니다. 그래서 각 스프레드 시트를 만들었고 암호를 열어야합니다. 각 스프레드 시트에는 동일한 입력란이있는 데이터 탭이 있습니다. 어쨌든 모든 데이터 시트를 컴파일하여 각 데이터 시트의 모든 정보를 포함하는 특정 피벗 차트를 만들 수 있습니까?

Answer 1

당신은 당신이 시트의 잠금을 해제 할 수있을 것입니다

ThisWorkbook.Sheets("xxxxx").UnProtect password:="xxxxxx" 

을이 줄을 것 사용.

그들을 통해 당신 루프

Dim ws as worksheet 

For each ws in ThisWorkbook.Sheets 
    ws.UnProtect Password:="xxxx" 
    ' What ever you want to do with the data 


    ws.Protect Password:="xxxx" 
next ws 

같은 모든 사용하여 뭔가 그런 다음, 데이터를 추출, 통합 문서의 각 시트의 잠금을 해제 다시 잠글 수있게하세요.