보호 된 워크 시트에서 행을 그룹화하고 그룹을 해제하는 방법은 무엇입니까?

우리 모두 알고 있듯이 보호 된 워크 시트에는 일부 작업을 적용하는 데 많은 제한이 있습니다. 예를 들어, 그룹화 된 데이터와 그룹화되지 않은 데이터 사이를 전환 할 수 없습니다. 보호 된 워크 시트에서 행을 그룹화하거나 그룹 해제하는 방법이 있습니까?

VBA 코드를 사용하여 보호 된 워크 시트의 행 그룹화 및 그룹 해제

Office 탭 Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...

자세히보기 ... 무료 다운로드...

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

무엇이든 재사용 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용 할 수 있습니다.
20 개 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트의 일부 추출 또는 제거 숫자와 통화를 영어 단어로 변환합니다.
병합 도구: 여러 통합 문서와 시트를 하나로; 데이터 손실없이 여러 셀 / 행 / 열 병합; 중복 행과 합계를 병합합니다.
분할 도구: 값을 기준으로 데이터를 여러 시트로 분할합니다. 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 한 열에서 여러 열로.
붙여 넣기 건너 뛰기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 개인화 된 이메일을 여러 수신자에게 대량으로 보냅니다.
슈퍼 필터 : 고급 필터 구성표를 만들고 모든 시트에 적용하십시오. 종류 주, 일, 빈도 등으로; 필터 굵게, 수식, 주석으로 ...
300개 이상의 강력한 기능; Office 2007-2021 및 365에서 작동합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다.

자세히보기 ... 무료 다운로드...

VBA 코드를 사용하여 보호 된 워크 시트의 행 그룹화 및 그룹 해제

놀랄 만한! Chrome, Firefox 및 Safari와 같은 Excel에서 효율적인 탭 사용!

시간의 50 %를 절약하고 매일 수천 번의 마우스 클릭을 줄이십시오!

이 문제를 해결하는 다른 좋은 방법은 없지만 VBA 코드를 사용하여 다음과 같이하십시오.

1. 사용하려는 워크 시트를 활성화하십시오. 워크 시트가 아직 보호되지 않았는지 확인하십시오.

2. 그런 다음 ALT + F11 키가 열립니다. Microsoft Visual Basic for Applications 창.

3. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.

VBA 코드 : 보호 된 워크 시트의 행 그룹화 및 그룹 해제

Sub EnableOutlining()
'Update 20140603
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

4. 그런 다음 F5 키를 누르면 현재 워크 시트를 보호하기 위해 암호를 입력하라는 메시지 상자가 나타납니다. 스크린 샷보기 :

보호 된 시트 1의 문서 그룹

5. 그런 다음 OK, 워크 시트가 보호되었지만이 보호 된 워크 시트에서 개요 기호를 확장 및 축소 할 수 있습니다 (스크린 샷 참조).

보호 된 시트 1의 문서 그룹

주의 사항: 워크 시트가 이미 보호되어있는 경우이 코드는 작동하지 않습니다.

최고의 사무 생산성 도구

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

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

자세히보기 ... 무료 다운로드... 매수...

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

Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!

자세히보기 ... 무료 다운로드... 매수...

코멘트 (32)

아직 평가가 없습니다. 가장 먼저 평가하세요!

메이치

약 8 년 전

#12530

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

이것은 잘 작동하는 것 같지만 통합 문서를 닫았다가 다시 열면 동일한 문제가 발생합니다. 접힌 그룹을 확장할 수 없습니다.

로미 메이치

약 8 년 전

#12531

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

저도 같은 문제가 있는데 해결 방법 아시는 분 계신가요? 많은 감사

마99ie 로미

약 1 년 전

#12532

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

이를 위해서는 VBA가 필요하며 최종 사용자는 이를 위해 매크로를 허용해야 합니다.

Alt+F11을 눌러 Visual Basic Editor를 활성화합니다.

왼쪽에 있는 프로젝트 탐색기의 Microsoft Excel 개체 아래에서 ThisWorkbook을 두 번 클릭합니다.

표시되는 모듈에 다음 코드를 복사합니다.

개인 서브 Workbook_Open ()
워크시트 포함("Emp 요약")
.EnableOutlining = True
.UserInterfaceOnly 보호:=True
끝
최종 하위

이 코드는 통합 문서를 열 때마다 자동으로 실행됩니다.

치우 메이치

약 7 년 전

#12533

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

[인용] 이것은 잘 작동하는 것 같지만 통합 문서를 닫았다가 다시 열면 동일한 문제가 발생합니다. 접힌 그룹을 확장할 수 없습니다.메이치로[/인용]그 문제는 다음과 같이 해결됩니다. Private Sub Workbook_Open() Dim wsh As Variant For Each wsh In Worksheets(Array("Sheet1", "Sheet2")) wsh.EnableOutlining = True wsh.Protect Password:="260615" , DrawingObjects:=False, _ 내용:=True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True 다음 wsh End Sub

몬 치우

약 6 년 전

#12534

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

같은 문제가 발생하여 시트를 닫고 다시 입력하자마자 작동하지 않습니다 ... 사용 위치와 방법을 단계별로 알려주십시오. 그 문제는 다음과 같이 해결됩니다. Private Sub Workbook_Open() Dim wsh As 워크시트의 각 wsh에 대한 변형(Arra y("Sheet1", "Sheet2")) wsh.EnableOutlining = True wsh.Protect Password:="2606 15", DrawingObjects: =False, _ 내용:=True, _ 시나리오: =True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True 다음 wsh 종료 Sub

나우만

약 8 년 전

#12714

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

정말 감사합니다 형님 이거 정말 잘 작동합니다. 감사합니다.

jgarner 나우만

약 6 년 전

#12715

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

어떻게 작동하게 되었나요? 위의 VBA에 추가하고 다른 모듈을 만들려고 시도했지만 여전히 작동하지 않습니다. 코드를 변경해야 합니까? 내가 사용하는 비밀번호처럼 시트 이름을 변경해야 합니까?

피 바흐

약 8 년 전

#13065

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

통합 문서를 닫을 때도 같은 문제가 있습니다. 그것을 고칠 아이디어가 있습니까?

치우

약 7 년 전

#14594

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

Private Sub Workbook_Open() Dim wsh As Variant As each wsh In Worksheets(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ 내용: =True, _ 시나리오:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True 다음 wsh End Sub

jgarner 치우

약 6 년 전

#14595

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

이것이 어떻게 작동하는지 아직 확실하지 않습니다. 새 모듈을 만들거나 위의 모듈에 첨부합니까?

조롱 치우

약 5 년 전

#14596

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

원래 지침에서 했던 것처럼 이것을 어디에 둘 것인지 단계별로 수행할 수 있습니까? 고맙습니다.

스테파니

약 7 년 전

#14846

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요! 첫 번째 매크로를 성공적으로 사용한 다음 통합 문서를 닫고 매크로가 더 이상 작동하지 않는 동일한 문제가 발생했습니다. 위의 솔루션을 보았지만 전혀 작동하지 않습니다. 저를 안내해 주시겠습니까? 두 코드를 결합하거나 후자를 사용합니까? 내 비밀번호가 "dog"인 경우 코드의 값 중 하나를 교체해야 합니까? 하나의 워크시트("Sheet1")에만 적용하고 있습니다. 나는 그것을 아무데서나 사용합니까? 미리 감사드립니다!!

엠마누엘 니에마

약 7 년 전

#15572

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

도와주세요. 보호되는 Excel 스프레드시트에서 일부 롤과 열을 축소 및 확장하고 싶습니다. 매크로를 사용하여 이 작업을 수행하려면 어떻게 해야 합니까? 나는 당신이 보여준 것을 시도했지만 내 스프레드 시트에서 작동하지 않습니다. 도와주세요.

엠마누엘 니에마

약 7 년 전

#15573

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요, 보호된 Excel 스프레드시트에서 롤과 열을 확장하고 축소하는 데 도움을 주세요. 위에 보여주신 것을 사용해 보았지만 작동하지 않습니다.

남자 이름

약 5 년 전

#19093

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

질문/응답이 되었나요? 코드의 어디에서 개인 비밀번호를 지정/변경할 수 있습니까?

남자 이름

약 5 년 전

#19094

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

비밀번호를 다른 값으로 변경하려면 어떻게 해야 합니까?

아라브

약 5 년 전

#20953

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

명령을 사용할 때 아래와 같은 오류 메시지가 표시됩니다.
개인 서브 Workbook_Open ()
Dim wsh를 변형으로
워크시트의 각 wsh에 대해(Array("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = 참
wsh.Protect 암호:="260615", DrawingObjects:=거짓, _
내용:=참, _
시나리오:=사실, _
AllowFiltering:=참, _
AllowFormattingCells:=참, _
userinterfaceonly:=참
다음 wsh
최종 하위
런타임 오류 '9':
아래 첨자가 범위를 벗어났습니다.

닐라쉬

약 5 년 전

#23154

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

이것은 잠시 동안 작동합니다. 닫았다가 다시 열면 중지됩니다.

나빈 쿠마르 닐라쉬

약 2 년 전

#23155

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

나에게도 다른 해결책이 있습니까?

스라반티

약 5 년 전

#23175

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

하위 통합 문서_Open()
'업데이트 20140603
Dim xW를 워크시트로
xWs = Application.ActiveSheet 설정
Dim xPw를 문자열로
xPws = "rfc" ''Application.InputBox("비밀번호:", xTitleId, "", 유형:=2)
xWs.Protect 암호:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
최종 하위

수잔

약 5 년 전

#23561

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

이 코드가 작동하도록 했습니다. 그러나 닫았다가 다시 열 때 개발자 탭으로 이동하여 매크로 버튼을 선택하고 실행을 선택하고 암호를 입력해야 합니다.

이 marco를 자동으로 실행하고 암호를 입력하는 자동 실행 코드 또는 코드에서 암호를 제거하는 방법이 있습니까?

피치클린

약 5 년 전

#23671

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

파일을 닫았다가 다시 연 후 이 문제가 작동하지 않는 문제를 해결하려면 새 모듈 대신 Microsoft Excel 개체 아래의 "ThisWorkbook"에 VBA 코드를 붙여넣어야 합니다. 그러면 파일이 열릴 때마다 매크로가 자동으로 실행됩니다.

데니스

약 4 년 전

#23825

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

새 모듈 대신 Microsoft Objects에서 ThisWorkbook에 대해 6일 전에 논의한 VBA 코드에 대한 시각적 개체가 있습니까? 통합 문서로 돌아가면 기능이 손실됩니다.

에디예

약 4 년 전

#27727

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

누군가는 이것을 필요로 할 수 있습니다. 저는 이 작업을 수행하는 방법을 알아낸 것 같습니다.

먼저 @peachyclean이 제안하는 것처럼 Microsoft Excel 개체 아래의 "ThisWorkbook"에 코드를 작성해야 합니다.
둘째, @Sravanthi가 작성한 코드를 위에서 언급한 위치에 붙여넣습니다.

하위 통합 문서_Open()
'업데이트 20140603
Dim xW를 워크시트로
xWs = Application.ActiveSheet 설정
Dim xPw를 문자열로
xPws = "rfc" ''Application.InputBox("비밀번호:", xTitleId, "", 유형:=2)
xWs.Protect 암호:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
최종 하위

문제는 보호하려는 시트에 있어야하지만 그룹화를 허용하고 보호하지 않고 통합 문서를 저장하고 닫을 수 있다는 것입니다. 이제 열면 매크로가 자동으로 시작되고 시트가 암호 "rfc"로 보호됩니다. 이제 그룹화를 사용할 수 있으며 시트가 보호됩니다.

내 솔루션의 경우 적용된 암호를 수정했으므로 여기에 모든 암호를 다시 쓸 수 있습니다.
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("비밀번호:", xTitleId, "", 유형:=2)

또한 파일을 열 때 보호 대상 시트가 활성화되는 것을 원하지 않았기 때문에 이 부분을 수정했습니다.
xWs = Application.ActiveSheet 설정 ->
xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE") 설정

이제 매력처럼 작동하며 'WRITEANYSHEET'SNAMEHERE'라는 시트가 보호되지만 그룹화는 적용 가능합니다. 장기적으로 문제는 이 파일을 수정하고 솔루션을 유지하려는 경우 다음 열기에서 작동하도록 이 시트의 보호를 해제해야 한다는 것입니다. 닫을 때 자동으로 보호 해제하는 다른 매크로를 작성할 수 있습니다. :)

도움이 되었기를 바랍니다.

디비아 몽가 에디예

약 3 년 전

#27728

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요.. 이것은 놀라운 일이었습니다. 내가 지금 막히는 유일한 장소는 통합 문서의 여러 시트에 대해이 작업을 수행해야한다는 것입니다. 도와줄 수 있습니까?

밥 C 에디예

약 2 년 전

#27729

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

이 문자열은 VBA에 대해 아무것도 모르기 때문에 정확히 내가 필요로 하는 것 같았습니다. 처음에는 이 작업을 수행할 수 있었지만 지적한 대로 스프레드시트를 닫았다가 다시 열면 더 이상 작동하지 않습니다. 언급한 대로 "ThisWorkbook"에 코드를 작성하려고 시도했지만 그 방법을 알 수 없습니다. "ThisWorkbook"이 보이지만 어떻게 쓰는지 모르겠습니다. 내가 볼 때마다 모듈을 만드는 방법은 "Microsoft Excel Objects" 폴더 외부에 있는 별도의 "Modules" 폴더에 새 모듈을 만듭니다. 이 코드를 "ThisWorkbook"에 넣는 방법에 대한 제안 사항이 있습니까?