VBA매크로가 손상되었습니다.

Question

매크로가 있는 파일을 연후 보안 경고 매크로르 사용할수 없도록 설정했습니다. 라은 팝업창이 하나 떠서 옵션에서 매크로 사용이라고 선택후 확인을 눌르면 다음과 같은 "이 통합 문서의 VBA(Visual Basic for Applications)매메크로가 손상되어 삭제되었습니다. 손상된 매크로가 현재 파일에 있습니다. 매크로를 복구하려면 이 파일의 백업 본사본이 있을 경우 해당 복사본을 여십시오." 창이 뜨고 매크로 실행이 되지 않습니다. 이 문제에 대한 해결을 부탁드리고자 이렇게 글을 남기니 시원한 답변 부탁드립니다.

Answer 1

안녕하십니까? 나를따르라님

Microsoft Office의 Excel 사이트를 방문해 주셔서 감사합니다.

문의 하신 Excel에서 매크로 파일이 손상된 경우에 대한 답변을 드리겠습니다.

1. Excel 옵션 변경

a. Excel 프로그램을 실행합니다.

b. Office 단추를 클릭하여, [Excel 옵션]을 선택합니다.

c. 옵션 메뉴가 나타나면, 보안 센터 탭의 [보안 센터 설정]을 선택합니다.

d. 보안 설정 메뉴가 나타나면, 매크로 설정 탭의 [모든 매크로 포함(위험성 있는 코드가 실행될 수 있으므로 권장하지 않음)], [VBA 프로젝트 개체 모델에 안전하게 액세스할 수 있음]을 체크합니다.

e. Excel 설정을 저장하고, 해당 파일을 다시 실행하여 문제를 확인합니다. 2. 안전 모드에서 확인

a. 윈도우 시작 버튼을 클릭합니다.

b. 모든 프로그램 목록에서 [Microsoft Office]를 선택합니다.

c. Office 항목에서 [Microsoft Office Excel 2007]를 Ctrl키를 누른 상태로 실행합니다.

d. 안전 모드에서도 문제가 반복될 경우, 안전 모드로 부팅하여 문제를 확인합니다.

(안전 모드로 부팅하는 방법 : 시스템을 Reboot하고, 윈도우 로고가 나타나기 전에 [Ctrl]키나 [F8]키를 눌러서 부팅 메뉴 중 [안전 모드]를 선택합니다.) 3. 타사 프로그램과 충돌 - 문서 보안 프로그램(Fasoo.com, McAfee, Document-Safe, SoftCamp...)이 설치되어 있는 경우 제거합니다.

a. 윈도우 시작 버튼을 클릭합니다.

b. 윈도우 시작 메뉴 중 [실행]을 선택합니다.

c. 좌측 하단에 실행 창이 나타나면, [Msconfig]를 입력합니다.

d. 시스템 구성 유틸리티가 실행되면, 서비스 탭의 [모든 Microsoft 서비스 숨기기]를 체크한 후 [모두 사용 안 함]을 선택합니다.

e. 시작 프로그램 탭에서 [모두 사용 안 함]을 선택합니다.

f. 시스템 구성이 완료되면, 시스템을 Reboot합니다.

4. Excel 열기, 복구 기능을 이용하여 복구 - 반드시 복사본을 이용하여 작업합니다.

a. Excel 프로그램을 실행합니다.

b. Office 단추를 클릭하여 [열기]를 선택합니다.

c. 열기 메뉴가 나타나면, 해당 복사본 파일을 선택한 후 열기 메뉴 중 [열기 및 복구]를 선택합니다.

d. [복구]를 선택하여 문제가 해결 되었는지를 확인하고, 문제가 계속 될 경우 다시 [데이터 추출]을 선택합니다.

5. 다른 프로그램에서 실행하여 확인

a. Word, PowerPoint, WordPad, Internet Explorer에서 실행하여 문제를 확인합니다.

b. Microsoft Office Excel Viewer를 이용하여 확인합니다.

(http://www.microsoft.com/downloads/details.aspx?FamilyID=1CD6ACF9-CE06-4E1C-8DCF-F33F669DBC3A&displaylang=ko)

c. 다른 Office(2000, 2003, 2007, 2010)에서 실행하여 확인합니다. 6. 이름 관리자와 스타일 제거

a. 해당 Excel 파일을 실행하여 두구 탭의 매크로 메뉴의 [Visual Basic Editor]를 선택합니다.

b. Visual Basic이 실행되면, 삽입 탭의 [모듈]을 선택합니다.

c. 명령 창에 아래 내용을 입력하여 매크로를 만든 후 [F5]키를 눌러서 실행합니다.

---

Sub DeleteNames()

Dim n As Name

Dim lngCount As Long

On Error Resume Next

lngCount = ThisWorkbook.Names.Count

For Each n In ThisWorkbook.Names

    n.Visible = True

    n.Delete

Next n

MsgBox "총

" & lngCount & "개의 [이름]중, " & lngCount - ThisWorkbook.Names.Count & "개의 [이름]삭제 완료."

End Sub

Sub DeleteStyles()

'/첫번째 스타일이

삭제가 되지 않을 때 진행되지 않는 문제로

'/마지막 스타일부터

삭제하는 방식으로 수정 (2009-11-20)

Dim lng As Long

Dim lngCount As Long

lngCount = ThisWorkbook.Styles.Count

On Error Resume Next

For lng = ThisWorkbook.Styles.Count To 1 Step -1

    ThisWorkbook.Styles(lng).Delete

Next lng

MsgBox "총

" & lngCount & "개의 [스타일]중, " & lngCount - ThisWorkbook.Styles.Count & "개의 [스타일]삭제 완료."

End Sub

---

d. 이름과 스타일이 제거되었으면, 다른 이름으로 저장하여 문제를 다시 확인합니다.

제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

제시해 드린 답변이 도움이 되었기를 바랍니다.