엑셀 로그인 폼 사용시 서식 문의

안녕하세요.

엑셀 로그인 폼을 강의를 보며 하나씩 만들어보고 있던 중 한가지 문제가 생겨서 도움을 요청드리고자 남기게 되었습니다...^^

강의로 첨부해주셨던 파일을 참고해서 로그인 폼 중에서

 

Function CloseWB(Optional SaveChanges As Boolean = True, Optional DisplayAlert As Boolean = False) As BooleanDim WB As WorkbookDim i As LongDim vbYN As VbMsgBoxResultApplication.DisplayAlerts = FalseLogoutIf blnClose = False ThenIf DisplayAlert = True ThenvbYN = MsgBox("'" & ThisWorkbook.Name & "' 의 변경내용을 저장하시겠습니까?", vbYesNoCancel)If vbYN = vbNo Then SaveChanges = False: blnClose = TrueIf vbYN = vbYes Then SaveChanges = True: blnClose = TrueIf vbYN = vbCancel Then blnClose = False: GoTo FinallyEnd IfFor Each WB In Application.WorkbooksIf WB.Name <> "PERSONAL.XLSB" Then i = i + 1NextIf i = 1 ThenIf SaveChanges = True ThenThisWorkbook.SaveApplication.EnableEvents = FalseApplication.QuitElseThisWorkbook.Saved = TrueApplication.EnableEvents = FalseApplication.QuitEnd IfElseIf SaveChanges = True ThenThisWorkbook.SaveThisWorkbook.CloseElseThisWorkbook.Saved = TrueThisWorkbook.CloseEnd IfEnd IfEnd IfCloseWB = FalseApplication.DisplayAlerts = TrueExit FunctionFinally:Application.DisplayAlerts = TrueCloseWB = TrueEnd Function

 

제 생각에는 이 코드를 사용하면 [회계]로 서식이 되어있던게 종료를 하고 다시 엑셀을 열면 [사용자지정]으로 바뀌게 됩니다...

[회계]로 만들어놓은 서식이 변경되는 이유와 변경되지 않도록 어떤 부분을 수정해야하는지 도움을 급하게 요청드립니다...^^