EXCEL 양식이 너무 많을떄

엑셀에서 양식이 너무 많아 저장이 안되는 난처한 상황이 올 때가 있다.

개발도구 - visual basic - 삽입- 모듈 에서 아래를 붙여 넣는다


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

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 DeleteStyle() 에 커서를 두고 F5 를 누르면 스타일 삭제,
Sub DeleteName() 에 커서를 두고 F5 를 누르면 이름 삭제를 수행한다.