사용자가 Excel 워크북을 매크로 사용 가능 파일로 저장하도록 강제하는 방법은 무엇입니까?

Excel 워크북을 저장할 때 기본적으로 .xlsx 파일 형식으로 저장되며, 이 형식은 매크로를 지원하지 않으며 워크북에 포함된 모든 매크로 코드를 제거합니다. 코드를 유지하려면 워크북을 Excel 매크로 사용 가능 워크북 형식으로 저장해야 합니다. 사용자가 매크로 사용 가능 워크북으로 저장하도록 강제할 수 있는 방법은 무엇입니까?

VBA 코드를 사용하여 사용자가 매크로 사용 가능 워크북으로 저장하도록 강제하기

VBA 코드를 사용하여 사용자가 매크로 사용 가능 워크북으로 저장하도록 강제하기

워크북이 기본적으로 매크로 사용 가능 워크북으로 저장되도록 하기 위해 다음 VBA 코드를 사용할 수 있습니다. 아래 단계를 따르세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 그런 다음 VBAProject 섹션에서 ThisWorkbook을 두 번 클릭하여 새 빈 모듈을 열고, 다음 코드를 복사하여 모듈에 붙여넣습니다:

VBA 코드: 기본적으로 워크북을 매크로 사용 가능 워크북으로 저장하도록 강제하기:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updateby Extendoffice
Dim xFileName As String
If SaveAsUI <> False Then
    Cancel = True
    xFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file")
    If xFileName <> "False" Then
      Application.EnableEvents = False
      ActiveWorkbook.SaveAs Filename:=xFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
      Application.EnableEvents = True
    Else
      MsgBox "Action Cancelled"
      Cancel = True
      Exit Sub
    End If
End If
End Sub

3. 그런 다음 이 코드 창을 저장하고 닫습니다. 이제 사용자가 이 워크북을 저장할 때 기본적으로 Excel 매크로 사용 가능 워크북 형식으로 저장됩니다. 다음 스크린샷과 같습니다: