1. 시트별 저장 복붙 내용 Sub 시트저장() Dim Sht As Worksheet Dim strPath As String Application.ScreenUpdating = False strPath = ThisWorkbook.Path & "\" For Each Sht In Worksheets Sht.Copy ChDir strPath ActiveWorkbook.SaveAs strPath & Sht.Name & ".xls" Next Sht ActiveWindow.Close Application.ScreenUpdating = True End Sub 2. 파일별 다른 암호 설정하기 godofexcel.tistory.com/49?category-778461
1. 시트별 저장 복붙 내용
Sub 시트저장()
Dim Sht As Worksheet
Dim strPath As String
Application.ScreenUpdating = False
strPath = ThisWorkbook.Path & "\"
For Each Sht In Worksheets
Sht.Copy
ChDir strPath
ActiveWorkbook.SaveAs strPath & Sht.Name & ".xls"
Next Sht
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
2. 파일별 다른 암호 설정하기
godofexcel.tistory.com/49?category-778461
감사합니당❤