VBA 코드 - 다른 파일에 다른 암호를 지정하십시오.

Question

아래 표를 Excel에서 다른 파일 이름과 경로로 사용하는 경우이 암호를 지정하십시오. 모든 엑셀 워크 북에 암호를 어떻게 할당합니까? 는

내가 사용할 수있는 VBA 코드의 대부분을 발견 등 ... 셀 B2에서 파일 경로가 셀 B3에서 파일 경로가 C3에 암호를 지정해야 C2에 암호를 할당해야합니다 말할 수 있습니다 주로 같은 폴더 아래의 모든 파일에 하나의 단일 비밀번호를 지정하는 것과 관련되어 있지만 1000 개 이상의 파일을 다른 비밀번호로 지정해야하며 나중에 모든 비밀번호를 제거해야합니다. VBA로 할 수 있습니까?

죄송합니다. 저는 VBA에 완전히 익숙하지 않아 업무상의 필요성 때문에 탐험을 시작합니다.

감사합니다.

Answer 1

두 개의 변수를 선언 최종 하위 다른 암호.

1. 는 사실, 당신이 (암호를 설정하려는 파일의 전체 이름을 빌드 :

   그런 다음, 당신은 단지에 당신이해야하는 하나 개의 루프 (그리고이)가 필요합니다 귀하의 예제의 열 B)에서,

2. 이 파일을 귀하의 예제에서 (열 C)에 사용하는 데 필요한 암호

3. 열기 이름 추출한 파일을 가져

4. 압축을 푼 암호와 함께 저장

5. 파일을 닫습니다.

검색된 파일 이름이 비어지면 루프가 종료되어야합니다.

이 설명은 복잡 할 수도 있지만 매우 간단합니다. 그냥 몇 가지 시도를 해보면 혼자서 무언가를 만드는 것에 만족할 것입니다.

힌트 : Excel의 VB 편집기를 사용하면 중단 점을 설정하여 실행을 중단하고 변수 값을 검사 할 수 있습니다. 이것은 또한 당신이하고있는 일을 더 잘 이해할 수 있도록 도울 것이고, 어떤 것이 작동하지 않는다면, 무엇이 잘못되었는지를 빨리 알 수 있습니다.

마지막으로, GOOD LUCK !!!!

Answer 2

@FDavidov

감사합니다! 모든 파일에 하나의 암호를 폴더에 할당하는 코드를 찾을 수 있습니다. 하지만 난 내 scanario에 맞게 변경하는 방법을 몰라. 아무도 내가 어떻게 바꿔야한다고 조언 할 수 있니? 감사!!!

공공 하위 addPassword() 희미한 FSO 객체와 객체 희미한 폴더, 객체로 객체 희미한 WB로 하위 폴더로

Set FSO = CreateObject("Scripting.FileSystemObject") 
folderPath = ActiveSheet.Range("C2").Value 
pwd = ActiveSheet.Range("C3").Value 
Set folder = FSO.GetFolder(folderPath) 

With Application 
    .DisplayAlerts = False 
    .ScreenUpdating = False 
    .EnableEvents = False 
    .AskToUpdateLinks = False 
End With 

For Each wb In folder.Files 
    If Right(wb.Name, 3) = "xls" Or Right(wb.Name, 4) = "xlsx" Or Right(wb.Name, 4) = "xlsm" Then 
     Set masterWB = Workbooks.Open(wb) 
     ActiveWorkbook.SaveAs Filename:=Application.ActiveWorkbook.FullName, Password:=pwd 
     ActiveWorkbook.Close True 
    End If 
Next 
For Each subfolder In folder.SubFolders 
    For Each wb In subfolder.Files 
     If Right(wb.Name, 3) = "xls" Or Right(wb.Name, 4) = "xlsx" Or Right(wb.Name, 4) = "xlsm" Then 
      Set masterWB = Workbooks.Open(wb) 
      ActiveWorkbook.SaveAs Filename:=Application.ActiveWorkbook.FullName, Password:=pwd 
      ActiveWorkbook.Close True 
     End If 
    Next 
Next 
With Application 
    .DisplayAlerts = True 
    .ScreenUpdating = True 
    .EnableEvents = True 
    .AskToUpdateLinks = True 
End With 

하나는 파일 이름 동안 보유 할