1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

작년 개인정보보호법의 시행으로 사람들이 개인정보보호에 대해 관심이 높아졌는데요

올해 한컴에서는 자동 업데이트를 통해 한컴개인정보탐색기를 제공하는데 한글 파일을 일괄 지정하여 하나의 암호를 거는 것이 가능하더군요. 검색을 하면 한글문서뿐만 아니라 오피스 파일도 검색은 되지만 암호는 회사가 달라 암호는 걸 수 없습니다.

지금 엑셀로는 하나하나의 파일을 암호설정하는 것은 가능하지만 일괄로 한번에 지정하는 것도 가능한가요? 아니면 따로 MS 오피스군 중에서 그런 기능을 지원하는 프로그램이나 추가기능이 있습니까? 혹시나 해서 질문남겨봅니다.


댓글 '17'

profile

[레벨:30]아별

2012.06.18 14:06:16
*.104.126.21

쟈니님.. 안녕하세요?
현재 엑셀의 기본 기능에는 일괄 암호 설정 및 해제 방법이 없는 것으로 알고 있습니다.
추가기능으로 개발된 것도 발견하지 못했네요..(사실 안 찾아봤습니다. ㅋ)

그래서 제가 간단하게 만들어봤습니다.

첨부파일을 다운 받아 엑셀로 열고
버튼을 클릭하면 파일들을 선택해서 일괄 암호를 설정할 수 있습니다.

일괄 해제할 수 있는 기능도 추가했습니다.

도움이 되셨기를..

 

다운받기 : abyul.com_20120618_SetOrRemovePassword.xlsm

 

abyul.com_0000493-1.jpg

 

 

 

아래 코드도 참고하세요..

Option Explicit

Sub setPassword()
     With Application.FileDialog(msoFileDialogFilePicker)
         .Filters.Add "Excel 파일", "*.xls; *.xlsx; *.csv", 1
         .InitialFileName = "*.xls*"
         .Title = "Select Files to set password..  " & vbNewLine & _
                    "암호를 설정할 파일을 모두 선택하세요.. abyul.com"
         If .Show = vbTrue Then
        
            Dim strPW As String
            strPW = InputBox("선택한 파일을 모두 " & _
                        "한가지 암호로 설정합니다." & vbNewLine & _
                        "사용할 암호를 입력하세요")
           
            Application.ScreenUpdating = False
            Application.DisplayAlerts = False

            Dim lngCount As Long
            Dim wb As Workbook
            For lngCount = 1 To .SelectedItems.Count
               Set wb = Workbooks.Open(Filename:=.SelectedItems(lngCount))
               wb.Password = strPW
               wb.Save
               wb.Close
            Next lngCount

            Application.ScreenUpdating = True
            Application.DisplayAlerts = True

        End If
    End With
End Sub

 

Sub removePassword()
     With Application.FileDialog(msoFileDialogFilePicker)
         .Filters.Add "Excel 파일", "*.xls; *.xlsx; *.csv", 1
         .InitialFileName = "*.xls*"
         .Title = "Select Files to remove password..  " & vbNewLine & _
                    "암호를 제거할 파일을 모두 선택하세요.. abyul.com"
         If .Show = vbTrue Then
        
            Dim strPW As String
            strPW = InputBox("선택한 파일의 암호를 " & _
                        "모두 제거합니다." & vbNewLine & _
                        "기존에 설정된 암호를 입력하세요")
           
            Application.ScreenUpdating = False
            Application.DisplayAlerts = False

            Dim lngCount As Long
            Dim wb As Workbook
            For lngCount = 1 To .SelectedItems.Count
               Set wb = Workbooks.Open(Filename:=.SelectedItems(lngCount), Password:=strPW)
               wb.Password = ""
               wb.Save
               wb.Close
            Next lngCount

            Application.ScreenUpdating = True
            Application.DisplayAlerts = True

        End If
    End With
End Sub

 

 

첨부

[레벨:4]쟈니

2012.06.26 15:45:07
*.218.33.26

귀찮게 여기지 않으시고 직접 만들어 주셔서 감사합니다. 그런데 혹시 이 파일 저말고도 다른 사람이 사용해도 괜찮나요? 제가 일하는 곳이 학교인데 다른 선생님들께서도 어떻게 하느냐고 물어봐서요. 그리고 혹시 위 코드에서 엑셀 확장자를 ppt로 바꾸면 파워포인트 파일에도 적용가능한지 물어보고 싶습니다. 자꾸 번거롭게 해드려 죄송합니다.

profile

[레벨:30]아별

2012.06.26 17:32:54
*.104.126.21

쟈니님..

다른 분들이 사용하셔도 됩니다. ^^

파일 안에 Ahor 부분만 제거하지 않으시면 필요하신 분들에게 배포하셔서 같이 사용하셔도 됩니다.

 

파워포인트는 딴 세계라서요..

옆 동네죠. ㅎㅎ

 

파워포인트 버전도 만들어봤습니다.

(첨부파일을 여신 다음에 F5눌러 슬라이드쇼 상태에서 버튼을 클릭해야 작동합니다.

 편집상태에서 Alt+F8누르시고 실행창에서 원하시는 기능을 선택하신 다음 실행버튼을 누르셔도 됩니다.)

다운로드 : abyul.com_20120618_SetOrRemovePassword.pptm

 

다만..

암호 일괄 제거시에.. 매 파일을 열때마다 읽기 암호를 물어보는 단점이 있네요.

파워포인트의 .open메서드에 password 옵션을 지원하지 않아서 그렇습니다. 역시 엑셀이 짱.. ㅋㅋ

 

도움이 되셨다니 기쁘네요..

아별닷컴 널리 홍보하시어 많은 분들이 지루한 문서 작업을 좀 더 편하게 하게 되길 바래봅니다.

 

감사합니다. ^^

첨부

아스날

2013.02.04 14:24:33
*.7.21.6

일괄 암호화 방법 찾다가 여기까지 왔습니다.

정말 대단하시네요. 엑셀의 신 답습니다.


고맙게 잘 쓸게요~~

profile

[레벨:30]아별

2013.02.04 19:48:22
*.104.126.21

아.. 일괄 암호화 방법으로 검색하면 이 페이지가 검색이되나봐요? +_+;;

도움이 되셨다니 다행입니다.

 

엑셀의 신이라는 신문기사가 나오고 나서..

욕 안 먹으려고 공부 많이 했습니다.. 하하.. @_@;;

[레벨:1]깐보맨

2014.04.22 17:04:01
*.128.70.10

꼭 필요한 부분이였는데

정말 가려운 부분을 너무 잘 긁어 주신거 같아요...

유용하게 잘 사용하겠습니다.

엑셀의 신 화이팅입니다.^^;

[레벨:1]미안하다

2014.07.03 11:26:38
*.88.233.34

안녕하세요

저도 일괄 암호화 방법을 찾다가 가입했습니다.

 

만들어주신 엑셀 / 파워포인트 파일 큰 도움이 되고 있습니다.

잘 쓰겠습니다.

 

그리고 MS워드 버전도 필요한데 여기에 올라와 있지 않아

만들어주신 파일 소스를 참고하여 워드 버전 파일을 만들었습니다.

 

만든 파일은 이 글에 공유하겠습니다.

다운로드 : abyul.com_20140703_SetOrRemovePassword_chs.docm

 

만약 문제되는 부분이 있다면 아래 이메일로 연락 부탁드리겠습니다.

chaecaf2@다음

첨부
profile

[레벨:30]아별

2014.07.03 13:47:05
*.132.210.135

미안하다님..

닉네임을 부를 수록 미안해지는 기분입니다. ㅎㅎ

 

좋은 자료 공유해주셔서 감사합니다.

암호 해제시에 파일을 오픈할때마다 암호를 물어보는데요..

 

아래처럼 비밀번호 옵션을 추가하면 파일을 열때마다 물어보지 않아서 편리합니다.

 

기존 코드

Set wb = Documents.Open(FileName:=.SelectedItems(lngCount))

 

수정 코드

Set wb = Documents.Open(FileName:=.SelectedItems(lngCount), passwordDocument:=strPW)

 

감사합니다. ^__^)b

[레벨:1]장우근

2015.12.23 10:23:08
*.251.75.198

워드 버전 파일을   공유 할수 있을까요....  꼭 필요합니다 .. ㅠㅠ

[레벨:1]슈팅스타

2015.04.30 09:31:47
*.203.99.194

고맙게 잘 쓰겠습니다. 저희 학교 샘들에게도 배포해도 될까요? ^^

전산담당

2015.05.19 17:03:13
*.178.30.26

고맙게 잘 쓰겠습니다.

몽몽

2015.06.12 10:55:35
*.106.240.210

감사합니다! 덕분에 작업시간이 단축되서 업무효율이 올라갔어요! ^^

[레벨:1]아주막강한

2015.10.27 11:41:16
*.241.128.171

필요한 자료였는데 똭 찾으니 너무 좋네요. 잘쓰겠습니다.

엑셀초보

2016.05.04 17:19:56
*.223.157.62

안녕하세요 엑셀 일괄 암호화를 찾다보니 여기까지 오게 되었습니다.

제가 기능을 제대로 숙지하지 못한건지 잘 모르겠지만

하려고 보니, 하나의 폴더에 있는 엑셀파일들은 한꺼번에 암호화가 되는 것 같은데..

예를 들어서 여러개의 폴더에 있는 파일들을 한꺼번에 암호화하는 방법은 없을까요??

인기민

2016.05.19 11:25:54
*.249.82.94

엑셀이 이미 암호가 걸려 있는 것은 어떻게 되나요? 일부 걸려 있고 일부 걸려 있지 않는데... 산계하여 있다가 보니 구분이 되지 않습니다. 

[레벨:1]행복나루

2016.06.02 17:48:59
*.214.253.204

엑셀과 파워포인트 암호화 하는데 도움 많이 받았습니다.

워낙 문서가 많아서 워드로 해야 하는데,, 워드버전도 공개 부탁 드립니다~~^^

앙글방글

2016.11.03 11:36:06
*.54.63.184

회사 내부 보안 때문에, 파일 암호화설정을 진행중인데 ..

진짜 실례가 안 된다면 어디에 거주하시는지 방향만 알려주시면 그리로 절이라도 하고싶은 심정입니다.

정말 너무 감사합니다. ㅠㅠㅠ

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 6799
439 엑셀일반 엑셀 시트에 바탕그림넣기 [5] [레벨:2]시나브로 2012-06-19 4172
438 엑셀일반 셀 병합 [4] [레벨:5]눈물바다 2012-06-18 969
» 엑셀일반 엑셀파일 비밀번호 단체 설정 가능한가요? [17] [레벨:4]쟈니 2012-06-18 6665
436 엑셀일반 필터링된 값에 붙여넣기를 할 경우... imagefile [4] [레벨:6]파이스 2012-06-14 5727
435 엑셀수식 3차 방정식 풀기. [1] [레벨:3]rynoel 2012-06-13 4717
434 엑셀일반 한셀에 값 [9] [레벨:5]눈물바다 2012-06-13 1536
433 엑셀일반 원하는 열만 추출할수 없나요?? imagefile [1] [레벨:1]wooljima0 2012-06-07 1409
432 엑셀수식 MATCH함수 수식 내에 참조수식을 넣으려면? file [5] [레벨:1]아아압액셀 2012-06-06 1553
431 VBA 셀에 맞춰 그림 삽입하기 [1] [레벨:5]눈물바다 2012-06-05 5342
430 엑셀일반 행높이 최대치 조절 가능할까요? _ Excel 사양 및 제한 [3] [레벨:6]파이스 2012-06-01 4727
429 엑셀수식 누적 초기값 알아내기 file [2] [레벨:4]부루끄 2012-05-29 1435
428 아별툴관련질문 error name delete 하면 '1004' 런타임 어류가 발생합니다. [2] [레벨:3]알알 2012-05-29 2044
427 VBA 도형에 회전에 관해서.... [5] [레벨:2]루이비나 2012-05-27 1705
426 엑셀일반 바닥글에 & 기호 넣기 문의. [3] [레벨:3]rynoel 2012-05-25 2758
425 엑셀수식 OFFSET함수 수식 오류 문의 드립니다. [3] [레벨:4]부루끄 2012-05-23 2086
424 엑셀수식 indirect ,address함수 관련 문의 file [4] [레벨:4]부루끄 2012-05-14 2025
423 엑셀일반 행 및 열입력시 중복 방지 하는법 imagefile [3] [레벨:6]파이스 2012-05-10 2084
422 기타 단축키 [3] [레벨:1]아라이 2012-04-27 1644
421 엑셀수식 조건에 맞는 값들을 한 셀 안에 ,(콤마) 붙이면서 나열하는 방법은? file [3] [레벨:4]성투은자 2012-04-26 3058
420 VLookup 수치를 넣으면 자동으로 그에 상응하는 문자나 숫자가 나타나게 하려면.. file [4] [레벨:2]만쥬 2012-04-25 2158