|
엑셀 Excel 파일이 손상되어서 열리지 않을 때 조치하는 방법 |
|
환경: Microsoft Excel 2013 |
간혹 엑셀 파일을 열었는데 파일이 손상되었는지 열리지 않는 경우가 있습니다. 워낙 경우의 수가 많기 때문에 정확하게 조치 방법을 알 수는 없지만 이전에 해결을 보았던 여러 방법들을 모아서 알려 드리겠습니다. 보안 옵션을 해제하거나 복구 기능을 이용하는 등 다양한 방법들이 있습니다.
|
◎ 보안 센터에서 제한된 보기 해제 |
▼ 먼저 제한된 보기 보안 기능을 해제해 보겠습니다. 웹 브라우저에서 파일을 다운 받는 경우 외부 파일들은 문서 보안 기능으로 인해 제한을 받게 됩니다. 이 옵션들을 해제하는 것입니다. 설정 해제를 위해 [파일] 탭 > [옵션] 메뉴를 선택합니다.
▼ 옵션 팝업창에서 왼쪽 메뉴 중 [보안 센터]를 선택합니다. 보안 센터 설정 화면에서 다시 화면 하단에 있는 [보안 센터 설정] 버튼을 클릭합니다.
▼ 두 번째 팝업창인 보안 센터에서 제한된 보기를 선택하시면 오른쪽에 3가지 옵션을 볼 수 있습니다. 이것을 모두 해제한 후 다시 엑셀 파일을 열어 봅니다.
|
◎ 다른 프로그램과의 충돌로 안 열리는 경우 |
▼ 다음은 엑셀 옵션 설정이 아닌 자신이 쓰는 컴퓨터에 대한 설정입니다. 다양한 문서 보안 프로그램과 충돌로 인해 안 열릴 수도 있습니다. 이 때는 마이크로 소프트 제품군만 남겨 두고 모든 프로그램들을 종료하는 것입니다. 관련 서비스들을 종료하기 위해 검색 창에 msconfig 를 입력해서 시스템 구성 팝업창을 띄웁니다.
▼ 시스템 구성에서 서비스 탭을 클릭하시면 현재 컴퓨터에서 구동되고 있는 모든 서비스 목록을 볼 수 있습니다. 이 중에서 OS 와 관련된 마이크로소프트 제품군만 남기고 모두 종료해야 합니다. 팝업창 하단에 [모든 Microsoft 서비스 숨기기]를 체크하고 모두 사용 안 함을 클릭합니다.
▼ 다음은 부팅하고 OS 가 구동될 때 시작되는 프로그램들을 종료해야 합니다. 시작 프로그램 탭을 누르시면 현재 구동되고 있는 시작 프로그램들이 있을 겁니다. 이 또한 [모두 사용 안 함]을 클릭해 줍니다. [확인]을 눌러 시스템을 재부팅합니다.
|
◎ 데이터 복구 기능 이용하기 |
▼ 다음은 엑셀에 데이터 복구 기능을 이용하는 것입니다. 복구 작업하기 전에 원본 파일이 훼손될 수 있으므로 별도의 복사 파일을 하나 만듭니다. 엑셀을 실행해서 복사한 파일을 열어야겠죠. [파일] 탭 > [열기] 메뉴를 클릭합니다.
▼ 파일 열기 팝업창의 열기 버튼에 보시면 여러가지 옵션들이 있습니다. 버튼 바로 옆에 화살표를 클릭하면 볼 수 있는데, 그 중 제일 하단에 있는 [열기 및 복구] 메뉴를 선택합니다.
▼ 처음에는 [복구] 메뉴를 클릭해서 진행합니다. [복구]는 되었는데 예상 했던 것과 다르다면 [데이터 추출]을 한번 더 해 줍니다. 그런데 복구 했는데도 안 된다면 데이터 추출을 시작하세요.
▼ 데이터 추출을 하게 되면 값만 할 것인지 수식도 같이 추출할 것인지 묻습니다. 값으로 추출하면 수식으로 계산된 결과값만 나오게 됩니다. 꼭 필요한 수식이 있다면 수식 복구를 하는 것이 좋겠죠.
|
◎ 이름 관리자와 스타일을 매크로 소스로 제거하기 |
▼ 다음은 VBA 코드를 이용해서 이름 관리자와 스타일을 모두 제거하는 것입니다. 이름 관리자가 얽혀서 제대로 표현이 안 되는 경우가 있기 때문입니다. 화면에 보이지는 않지만 내부에는 설정이 되어 있기 때문에 매크로로 전부 삭제할 수 있습니다. 아래에 올려 둔 샘플 소스를 복사해서 실행하기 위해 [개발 도구] 탭 > [Visual Basic] 리본 메뉴를 클릭합니다.
▼ VBA 소스 에디터 창을 띄웠다면 소스를 입력하기 위한 모듈을 추가해야 합니다. [삽입] > [모듈]을 선택하시면 왼쪽 탐색기에 모듈이 하나 생성됩니다.
▼ 생성된 모듈에 아래 두 함수를 붙여 넣습니다. DeleteNames() 함수는 이름관리자를 삭제하는 소스이며 DeleteStyles() 는 스타일을 삭제합니다. 소스를 보시면 아시겠지만 문서에 있는 이름관리자 개체(ThisWorkbook.Names) 를 가져와서 For 문을 돌이고 있습니다.
|
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()
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 |
'엑셀(Excel) > Excel' 카테고리의 다른 글
| 엑셀 Excel 차트, 그래프 만들기와 차트 요소(축, 범례, 제목) 수정하기 2부 (0) | 2019.02.23 |
|---|---|
| 엑셀 Excel 차트, 그래프 만들기와 차트 요소(축, 범례, 제목) 수정하기 1부 (0) | 2019.02.23 |
| 엑셀 Excel 파일이 손상되어서 열리지 않을 때 조치하는 방법 (4) | 2019.02.19 |
| 엑셀 Excel 셀 줄 바꿈 찾아서 한번에 삭제하는 방법 (1) | 2019.02.16 |
| 엑셀 Excel 루트 제곱근을 구하기 위해 연산자, SQRT, POWER 함수 사용 (0) | 2019.02.15 |
| 엑셀 Excel 메모 모양 원하는 대로 변경하는 방법 (0) | 2019.02.14 |
