하이퍼링크로 연결된 파일 열때 시간이 오래 걸림

Question

16개의 시트로 구성된 엑셀파일을 사용하며 용도는 주요 업무에 사용하는 파일을 하이퍼링크를 사용하여 Open을 합니다. 그런데 이 하이퍼링크가 많이 연결된 파일에서 링크를 사용해서 용량이 큰 엑셀파일을 열 때열리는 시간이 너무 오래 걸립니다. 그래서 엑셀바로가기로 엑셀을 Book1으로 열고 거기서 하이퍼링크가 된 파일을 열고, 거기서 다른 하이퍼 링크 파일을 열 때는 빠르게 열립니다.

요약하자면 하이퍼링크가 많이 연결된 파일을 열고 거기서 하이퍼 링크로 용량이 큰 엑셀 파일을 열때 시간이 너무 오래걸립니다.

Answer 1

안녕하십니까? kshong0906님

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

문의 하신 Excel의 하이퍼 링크가 많은 파일을 열면 파일이 실행되는 시간이 오래 걸리는 문제에 대한 답변을 드리겠습니다.

1. 컴퓨터 네트워크 설정 해제 후 확인

a. 내 컴퓨터를 선택하고 마우스 우측 버튼을 클릭합니다.

b. [네트워크 드라이브 연결 끊기]를 선택하고 문제를 다시 확인합니다.

2. 안전 모드에서 확인

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

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

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

d. Excel 프로그램을 안전 모드로 실행 여부를 묻는 창이 나타나면, [예(Y)]를 선택합니다.

e. 안전 모드에서 문제가 반복된다면, 안전 모드로 부팅하여 문제를 다시 확인합니다.

(안전 모드 부팅하는 방법 : 시스템을 Reboot하고, 윈도우 로고가 나타나기 전에 [Ctrl]키나 [F8]키를 눌러서 부팅 메뉴 중 [안전 모드]를 선택합니다.) 3. XLSTART 폴더 삭제

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

b. 윈도우 시작 메뉴 중 검색의 [파일 또는 폴더]를 선택합니다.

c. 검색 창이 나타나면, [xlstart]를 검색합니다.

d. xlstart 폴더에 파일이 존재한다면, 해당 파일을 다른곳에 백업하시고 삭제합니다. 4. 타사 프로그램과 출돌 - 문서 보안 프로그램(Fasoo.com, McAfee, Document-Safe, SoftCamp...)등이 설치되어 있다면 제거합니다.

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

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

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

d. 시스템 구성 메뉴가 나타나면, 서비스 탭의 [모든 Microsoft 서비스 숨기기]를 체크한 후 [모두 사용 안 함]을 선택합니다.

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

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

5. 레지스트리 초기화

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

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

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

d. 레지스트리 편집기가 실행되면, 해당 폴더로 이동합니다.

(HKey_Current_User\Software\Microsoft\Office\11.0\Excel)

(HKey_Local_Machine\Software\Microsoft\Office\11.0\Excel)

e. 해당 폴더를 선택한 후 마우스 우측 버튼을 클릭하여, [내보내기]를 통해서 레지스트리를 백업합니다.

f. 백업이 완료되면, 다시 마우스 우측 버튼을 클릭하여, [삭제]를 통해서 레지스트리를 제거합니다.

g. 레지스트리 편집기를 종료하고, Excel 프로그램을 실행하여 레지스트리를 초기화 합니다. 6. 잘못된 서식, 스타일 제거

a. 해당 Excel 파일을 실행합니다.

b. Excel 프로그램이 실행되면, 도구 탭의 매크로 메뉴 중 [Visual Basic Editor]를 선택합니다.

c. Visual Basic이 실행되면 삽입 탭의 [모듈]을 선택하여 해당 내용을 입력합니다.

---

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. 해당 모듈을 실행(F5)하고 매크로를 실행하여 해당 파일의 셀을 전부 삭제합니다.

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

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