Note: The other languages of the website are Google-translated. Back to English
로그인  \/ 
x
or
x
회원가입  \/ 
x

or

Excel 통합 문서를 닫을 때 모든 워크 시트를 자동으로 보호하는 방법은 무엇입니까?

일반적으로 Excel의 시트 보호 또는 통합 문서 보호 기능을 사용하여 암호로 워크 시트 또는 전체 통합 문서를 수동으로 보호 할 수 있습니다. 하지만 통합 문서를 닫을 때 모든 워크 시트를 암호로 자동으로 보호하려면 어떻게해야합니까? 이 기사에서는이를 달성하기위한 VBA 방법을 보여줍니다.

VBA 코드로 Excel 통합 문서를 닫을 때 모든 워크 시트 보호


VBA 코드로 Excel 통합 문서를 닫을 때 모든 워크 시트 보호


통합 문서를 닫을 때 모든 워크 시트를 자동으로 보호하려면 다음 VBA 코드를 적용하십시오.

1. 파일을 닫을 때 모든 워크 시트를 보호하려는 워크 북에서 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창에서 ThisWorkbook 왼쪽 창에서 VBA 코드 아래를 코드 창에 복사하십시오. 스크린 샷보기 :

VBA 코드 : 통합 문서를 닫을 때 모든 워크 시트 보호

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

:

1) 코드에서 xPsw =“”줄에 암호를 지정하십시오.
2) 통합 문서를 닫을 때 지정된 워크 시트를 자동으로 보호하려는 경우 아래 VBA 코드가 도움이 될 수 있습니다.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. 그런 다음 다른 + Q 키를 눌러 Microsoft Visual Basic for Applications 창을 닫습니다.

위의 단계 후에 모든 워크 시트 또는 지정된 워크 시트는 통합 문서를 닫을 때 자동으로 보호됩니다.

노트:

1. 통합 문서를 Excel 매크로 사용 통합 문서 파일 형식으로 저장해야합니다.
2. 특정 워크 시트로 이동하여 검토 > 시트 비보호. 그런 다음 VBA 코드에 지정한 암호를 입력하여이 워크 시트의 보호를 해제합니다.

관련 기사 :


최고의 사무 생산성 도구

Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 향상시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300 개 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에 쉽게 배포 할 수 있습니다. 전체 기능 30 일 무료 평가판. 60 일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50 % 향상시키고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.