Anna Lea는 자신이 작성하는 일일 보고서의 템플릿으로 사용하는 읽기 전용 통합 문서를 가지고 있습니다. 파일 이름은 매우 길고 20507xx로 끝납니다. 통합 문서를 두 번 클릭하면 문서가 열리고 읽기 전용으로 표시됩니다. 변경 한 다음 다른 이름으로 저장을 사용합니다. Excel은 파일이 읽기 전용임을 인식하므로 “Copy of”라는 단어를 접두사로 사용하여 이전 파일 이름으로 구성된 새 파일 이름을 제안합니다. Anna는 파일 이름의 “xx”부분을 변경하여 그날의 보고서를 작성하기 만하면 “Copy of”를 제거하려고합니다.

“사본”문구는 Excel에서 자동으로 추가됩니다. 다른 이름으로 저장을 사용하는 경우 매크로를 사용하여 저장 프로세스를 제어하지 않고는이를 변경할 수 없습니다. ThisWorkbook 개체의 일부로 저장된 다음 매크로는이를 수행하는 방법을 보여줍니다.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _   As Boolean, Cancel As Boolean)

Dim sTemp As String     Dim sCheck As String     sCheck = "xx.xls"



If SaveAsUI Then         sTemp = ThisWorkbook.Name         If Right(sTemp, Len(sCheck)) = sCheck Then             sTemp = Left(sTemp, Len(sTemp) - Len(sCheck))

sTemp = sTemp & Format(Now, "dd") & ".xls"

sTemp = ThisWorkbook.Path & "/" & sTemp             ThisWorkbook.SaveAs Filename:=sTemp, _               FileFormat:=xlNormal             Cancel = True         End If     End If End Sub

매크로는 먼저 다른 이름으로 저장 대화 상자가 표시되는지 확인합니다. 그렇다면 통합 문서의 이름이 sTemp 변수에 할당됩니다. 이 이름은 마지막 6자가 “xx.xls”(sCheck 변수에서)인지 확인하기 위해 확인됩니다. 그렇다면 통합 문서는 이름을 변경해야하는 것으로 간주됩니다.

먼저 “xx.xls”문자 (또는 sCheck에 할당 한 문자)

통합 문서 이름의 끝에서 제거됩니다. 그런 다음 오늘 날짜 (일을 나타내는 두 자리)가 파일 이름에 추가되고 그 뒤에 “.xls”접미사가 추가됩니다. 마지막으로 통합 문서는 새로 구성된이 파일 이름을 사용하여 저장됩니다. 취소 플래그가 True로 설정되어 다른 이름으로 저장 대화 상자가 표시되지 않습니다.

이름은 “Copy of”라는 문구에 대해 확인되지 않습니다. 그 이유는 간단합니다. 실제 다른 이름으로 저장 대화 상자가 표시 될 때까지 파일 이름 시작 부분에 문구가 추가되지 않습니다. 그 시점 이전 (이 이벤트 처리기가 실행될 때) 통합 문서 이름은 변경되지 않습니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (3064)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.