[엑셀vba] 엑셀 파일 별로 패스워드 다르게 적용하고 저장하기

기본 기능에 충실한 vba코드를 작성해봤다.

 

제곧내

 

엑셀 파일마다 다른 암호를 설정하고 싶을 때 요롷고롬 하면 쉽게 할 수 있었다.

 

엑셀파일별로 패스워드 걸기.xlsm

0.02MB

---

1. 코드

Option Explicit

Sub 파일별로다른암호걸기()

    Dim lastFile As Integer
    Dim i As Integer
    Dim Excel_ap As Excel.Application
    
    Application.DisplayAlerts = False
    
    lastFile = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
    
    Set Excel_ap = CreateObject("excel.application")
    Excel_ap.Visible = False
    Excel_ap.Application.DisplayAlerts = False
    
    For i = 2 To lastFile
    
        Excel_ap.Workbooks.Open Cells(i, "A")
        Excel_ap.ActiveWorkbook.SaveAs Cells(i, "A"), , Sheets(1).Cells(i, "B")
        Excel_ap.ActiveWorkbook.Close
           
    Next i

    Excel_ap.Quit
    Set Excel_ap = Nothing
    
End Sub

 

정말 간단한 코드다.

 

시트1의 A열에 있는 엑셀 파일을 열고 B열에 있는 패스워드로 저장 후 닫는다. 

 

오류체크가 없기때문에 정말 실제로 존재하는 파일에만 쓸 수 있다.

 

파일이 없거나 경로가 잘못되면 오류 나면서 vba 편집 창 열림ㅋㅋㅋㅋ

 

---

2. 매크로 동작

 

 

vba 코드의 실행 영상이다.

 

기본 기능에 충실한 것을 볼 수 있다.

---