vba 회계형식 문의

안녕하세요.

vba에서 엑셀을 종료할 때 진행되는 코드는 아래와 같습니다.

 

모듈

Sub 통합문서닫기_강제저장()

    Dim 문서 As Workbook
    Dim 문서개수 As Long

    Application.DisplayAlerts = False
    Application.EnableEvents = False

    '열려 있는 워크북 수 확인
    For Each 문서 In Application.Workbooks
        If 문서.Name <> "PERSONAL.XLSB" Then
            문서개수 = 문서개수 + 1
        End If
    Next

    '유일한 워크북이면 엑셀 종료
    If 문서개수 = 1 Then
        ThisWorkbook.Save
        Application.Quit
    Else
        ThisWorkbook.Save
        ThisWorkbook.Close SaveChanges:=False
    End If

    Application.DisplayAlerts = True
    Application.EnableEvents = True

End Sub

현재통합문서

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.DisplayAlerts = False
    Application.EnableEvents = False

    '저장 여부 확인 없이 저장
    ThisWorkbook.Save

    Application.EnableEvents = True
    Application.DisplayAlerts = True

End Sub

이렇게 강제로 저장하면서 종료를 하게 되는데

다시 열었을 때 회계형식으로 되어있는 부분이 다시 열었을 때는 사용자 형식으로 되면서 음수를 (숫자) 이렇게 표시가 됩니다...

혹시 이부분을 다시 열었을 때도 회계형식이 될 수 있도록 조절하는걸 어떻게 할 수 있는지 방법을 알려주시면 감사드리겠습니다..