고객이 Excel 매크로를 사용하도록 강제 설정

Excel에서 매크로를 사용하려면 사용자가 매크로를 활성화해야 합니다. 즉, 해당 환경에서 매크로를 실행할 수 있는 권한을 Excel에 부여해야 합니다. 매크로를 활성화하려면 수식 입력줄 위에 팝업되는 보안 경고에서 콘텐츠 활성화 버튼을 클릭합니다.

결론은 세상의 모든 멋진 매크로를 작성할 수 있지만 사용자가 매크로를 활성화하지 않으면 실행되지 않는다는 것입니다. 이것은 질문을 던집니다. 사용자가 매크로를 사용하도록 강제할 수 있습니까? 대답은 예입니다. 약간의 속임수가 있습니다.

아이디어는 비교적 간단합니다. 예를 들어 START라는 이름의 시트를 만듭니다. 해당 시트에는 매크로를 활성화해야 한다는 간단한 경고만 포함되어 있습니다. 그런 다음 해당 시작 시트를 제외한 통합 문서의 모든 시트를 숨깁니다. 마지막으로 통합 문서가 열릴 때 모든 시트 숨기기를 해제하는 간단한 매크로를 작성합니다.

이 시점에서 통합 문서가 열리면 Excel에서 사용자에게 매크로를 활성화하도록 요청합니다. 사용자는 시작 시트만 볼 수 있으므로 강제로 그렇게 해야 합니다. 다른 시트는 숨겨집니다!

이 기술을 작동시키려면 두 개의 매크로가 필요합니다. 하나의 매크로는 통합 문서를 닫을 때 START 시트를 제외한 모든 것을 숨기고 다른 매크로는 통합 문서가 열릴 때 START 시트를 제외한 모든 숨기기를 해제합니다.

먼저 통합 문서를 닫을 때 수행해야 하는 작업을 처리합니다. :

키보드에서 Alt+F11을 눌러 Visual Basic Editor를 활성화합니다.

프로젝트 창에서 프로젝트/통합 문서 이름을 찾고 그 옆에 있는 더하기 기호를 클릭하여 모든 시트를 확인합니다.

이 통합 문서를 클릭합니다.

이벤트 드롭다운 상자에서 BeforeClose 이벤트를 선택합니다.

다음 코드를 입력하거나 붙여넣습니다.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'1단계: 변수 선언
  Dim ws As 워크시트
'2단계: 시작 시트 숨기기 해제
  Sheets("START").Visible = xlSheetVisible
'3단계: 모든 워크시트 반복 시작
  ThisWorkbook.Worksheets의 각 ws에 대해
'4단계: 각 워크시트 이름 확인
  ws.Name <> "START"인 경우 다음
'5단계: 시트 숨기기
  ws.Visible = xlVeryHidden
  종료
'6단계: 다음 워크시트로 루프
  다음 ws
'7단계: 통합 문서 저장
  ActiveWorkbook.Save
엔드 서브

비공개 하위 통합 문서_Open()
'1단계: 변수 선언
  Dim ws As 워크시트
'2단계: 모든 워크시트 반복 시작
  ThisWorkbook.Worksheets의 각 ws에 대해
'3단계: 모든 워크시트 숨기기 해제
  ws.Visible = xlSheetVisible
'4단계: 다음 워크시트로 루프
  다음 ws
'5단계: 시작 시트 숨기기
  Sheets("START").Visible = xlVeryHidden
엔드 서브