VBA 시트 잠금 풀고 입력 뒤에 다시 잠금 설정 해결 방법

VBA

작성자

Steve. J

작성일

2022-02-28 04:03

조회

1230

엑셀버전 : M365

운영체제 : 윈도우10

관련링크 : 복사 다른 시트에 붙여넣기

Sub getCopy()
 Dim rng As Range, rngArea As Range
 Dim vDB As Variant
 Dim n As Integer
  Application.ScreenUpdating = False
   Set rngArea = Range("D9:D12")
    n = Range("B14").CurrentRegion.Columns(2).SpecialCells(2).Rows.Count - 1
    vDB = Range("B15").Resize(n, 8)
 
 
 
 Set rng = Sheets("DB").Cells(Rows.Count, 1).End(3)(2)
    rng.Offset(, 4).Resize(n, 8) = vDB
    rng.Resize(n, 4) = Application.Transpose(rngArea)
     rngArea.ClearContents
   Union(Cells(15, 3).Resize(n), Cells(15, 6).Resize(n, 3), Cells(15, 4).Resize(n)).ClearContents
 
 
End Sub

열심히 여쭤보고 다녀서 복사 붙여넣기는 이해를 하였습니다. ㅠㅠㅠ 정말 어려웠어요..

잠금 및 잠금 풀기의 경우 어떻게 해야할지 몰라 글을 올립니다.

A시트에서 자료를 입력 후 저장을 누르면

DB 시트의 시트 보호를 풀고

붙여넣기 한 뒤에

다시 DB 시트를 보호하고 싶습니다.

공감

0명

Steve. J

회원등급 : 5레벨

포인트 : 309 EP

총질문 : 4 개 (마감율 : 75%)

채택답변 : 0 개

게시글

텍스트 나누기 & 원하는 형식으로 표기하기. 해결 방법. (6)
2022.05.13
VBA. 재고관리 text 오류 문제 (2)
2022.03.09
VBA 시트 잠금 풀고 입력 뒤에 다시 잠금 설정 해결 방법 (4)
2022.02.28
VBA. 복사 다른 시트에 붙여넣기.(재고관리) (2)
2022.02.16
가입인사드립니다!
2022.02.16

전체 4

엑셀은즐거워 님 199

2022-02-28 15:56
@Steve. J 님
rng.Parent.Unprotect "비번" '코드... rng.Parent.Protect "비번"
이렇게 수정하면 될겁니다
- Steve. J 님 작성자
  
  2022-02-28 16:27
  
  @엑셀은즐거워 님 말씀하신데로 하였는데 에러가 계속해서 떠요 ㅠ

나는나 님 61

2022-02-28 21:56

채택된 답변

@Steve. J 님 에러가 뜬다고 하셨는데 정확한 설명을 안 하시면 답변하는 분들이 힘들어서 포기하게 됩니다. ㅠㅠ

추측컨데.....

<span class="kw1">Set</span> rng <span class="sy0">=</span> Sheets<span class="br0">(</span><span class="st0">"DB"</span><span class="br0">)</span><span class="sy0">.</span><span class="me1">Cells</span><span class="br0">(</span>Rows<span class="sy0">.</span><span class="me1">Count</span>, <span class="nu0">1</span><span class="br0">)</span><span class="sy0">.</span><span class="kw1">End</span><span class="br0">(</span><span class="nu0">3</span><span class="br0">)</span><span class="br0">(</span><span class="nu0">2</span><span class="br0">)</span>
rng.Parent.Unprotect "비번"
 
'코드...
 
rng.Parent.Protect "비번"

보호를 해제하는 구문 위에 rng 변수를 할당하는 구문이 있어야 rng.Parent가 무엇인지 인식할 수 있는데 순서가 맞지 않아서인 듯합니다. Set 구문을 변수선언 바로 아래로 이동해서 순서를 맞춘 후 다시 시도해 보시기 바랍니다.

아니면 Sheets("DB").Unprotect "비번" 이런 식으로 시트를 직접 입력해 주시면 Set 구문을 옮길 필요 없습니다.

Steve. J 님 작성자

2022-03-01 00:20

@나는나 님

<span class="kw1">Set</span> rng <span class="sy0">=</span> Sheets<span class="br0">(</span><span class="st0">"DB"</span><span class="br0">)</span><span class="sy0">.</span><span class="me1">Cells</span><span class="br0">(</span>Rows<span class="sy0">.</span><span class="me1">Count</span>, <span class="nu0">1</span><span class="br0">)</span><span class="sy0">.</span><span class="kw1">End</span><span class="br0">(</span><span class="nu0">3</span><span class="br0">)</span><span class="br0">(</span><span class="nu0">2</span><span class="br0">)
</span>이 아래에 RNG변수를 입력하니 위의 구문이 인식이 안되어

Sheets("DB").Unprotect "비번" 이렇게 시트를 직접 입력하니 되었습니다. 감사합니다!!

« 함수 질문이요

대시보드 버블차트 만들었을때 »

목록보기

전체 18,532

번호	카테고리	제목	작성자	작성일	추천	조회
알림		[📚진짜쓰는 실무엑셀] IT/오피스 '1위' 베스트셀러! 엑셀 공부, 이 교재로 마스터하세요! (315) 오빠두엑셀 \| 2022.02.03 \| 추천 575 \| 조회 609783	오빠두엑셀	2022.02.03	575	609783

공지사항	문서서식	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197) 오빠두엑셀 \| 2021.10.28 \| 추천 310 \| 조회 35544	오빠두엑셀	2021.10.28	310	35544
78582	함수/공식	New 조건 함수 의 관한 문의 (4) 답변완료 예쁜나야 \| 15:46 \| 추천 0 \| 조회 47	예쁜나야	15:46	-	47
78580		New 날짜와 시간 분할 방법 알려 주세요 (1) 답변완료 계양산 지기 \| 15:14 \| 추천 0 \| 조회 40	계양산 지기	15:14	-	40
78575	VBA	New 엑셀 재고관리 프로그램 문의드립니다.. (1) SJ \| 04:23 \| 추천 0 \| 조회 73	SJ	04:23	-	73
78570	대시보드	New 대시보드에 표 형식으로 표현도 가능한가요? (2) 룰루랄라 \| 2025.05.12 \| 추천 0 \| 조회 77	룰루랄라	2025.05.12	-	77
78569	함수/공식	New 서로 다른 양식의 견적서 엑셀 파일 한곳에 정리 하기 (5) gh**** \| 2025.05.12 \| 추천 0 \| 조회 101	gh****	2025.05.12	-	101
78565	함수/공식	New 검색보고서 만들기 질문드립니다. (9) 답변완료 만식이햄 \| 2025.05.12 \| 추천 0 \| 조회 90	만식이햄	2025.05.12	-	90
78563	VBA	New VBA 수정 부탁드립니다. ㅠ (3) 서비 \| 2025.05.12 \| 추천 0 \| 조회 78	서비	2025.05.12	-	78
78560	함수/공식	New 어떻게 내용을 가져올수 있을지 고수님들의 해결방법들을 공유 받고 싶습니다!!.... (2) 꾸르형 \| 2025.05.12 \| 추천 0 \| 조회 47	꾸르형	2025.05.12	-	47
78559	파워쿼리/피벗	New 엑셀 자동화 질문 입니다... (2) 답변완료 안녕하세여11 \| 2025.05.12 \| 추천 0 \| 조회 67	안녕하세여11	2025.05.12	-	67
78555	함수/공식	New 시트에서 원하는 열의 자료만 가져오고싶은데 아무리 해도 수식오류가 나서 도움을 구하고자 합니다 (4) 답변완료 khs**** \| 2025.05.12 \| 추천 0 \| 조회 44	khs****	2025.05.12	-	44
78554	함수/공식	New 변동하는 절대참조값 적용 (6) 답변완료 화이또! \| 2025.05.12 \| 추천 0 \| 조회 68	화이또!	2025.05.12	-	68
78553	대시보드	New 대시보드_슬라이서 자동으로 눌러지게 하는방법 (1) 검도림 \| 2025.05.12 \| 추천 0 \| 조회 50	검도림	2025.05.12	-	50
78548	대시보드	New 어떤 엑셀을 적용해야하는 지 문의드립니다! (1) 룰루랄라 \| 2025.05.11 \| 추천 0 \| 조회 69	룰루랄라	2025.05.11	-	69
78546	함수/공식	New 월별 매출액 자동입력할 수 있는 방법 또는 함수 궁금합니다! (2) mmm1010 \| 2025.05.11 \| 추천 0 \| 조회 87	mmm1010	2025.05.11	-	87
78544	함수/공식	New 중복값 제거 함수에 관하여 (1) 답변완료 김지훈(Derek) \| 2025.05.11 \| 추천 0 \| 조회 77	김지훈(Derek)	2025.05.11	-	77
78543	함수/공식	New 데이터 추출 및 정렬관련 초보질문 (5) 답변완료 김지훈(Derek) \| 2025.05.11 \| 추천 0 \| 조회 71	김지훈(Derek)	2025.05.11	-	71
78540	함수/공식	New 오빠두LIVE 219회 - 엑셀 '셀 병합' 자동화 보고서 만들기 오빠두엑셀님의 방법이 궁금합니다. AURIC \| 2025.05.10 \| 추천 0 \| 조회 60	AURIC	2025.05.10	-	60
78536	함수/공식	New 월별로 금액적용후 최종월에 차액을 가감 함수가 필요해요 (1) 답변완료 낮은자 \| 2025.05.10 \| 추천 0 \| 조회 66	낮은자	2025.05.10	-	66
78535	기능/도구	New 엑셀로 25x25 인쇄가 가능한가요? (1) 망나 \| 2025.05.10 \| 추천 0 \| 조회 51	망나	2025.05.10	-	51
78534	파워쿼리/피벗	New 쿼리에 함수 적용한 열 추가 시 24:00:00 활용한 계산 함수 필요할 때. (2) 답변완료 신노스케 \| 2025.05.10 \| 추천 0 \| 조회 64	신노스케	2025.05.10	-	64
78531	차트/그래프	New 엑셀 차트 데이터테이블 (1) 쩡 \| 2025.05.09 \| 추천 0 \| 조회 75	쩡	2025.05.09	-	75
78530	구글시트	New 구글 스프레드시트 함수 관련 질문입니다. (2) 동그이 \| 2025.05.09 \| 추천 0 \| 조회 66	동그이	2025.05.09	-	66
78528	구글시트	New 구글 스프레드시트를 외부 엑셀 파일과 연동하는 방법이 궁금합니다. (3) 머우터덩 \| 2025.05.09 \| 추천 0 \| 조회 69	머우터덩	2025.05.09	-	69
78525	문서서식	New 업무가 진행이 안 될 정도로, 해당 파일이 느립니다! (2) 빌스택스 \| 2025.05.09 \| 추천 0 \| 조회 94	빌스택스	2025.05.09	-	94
78520	기능/도구	New 하이퍼링크 명칭 해제 (1) min \| 2025.05.09 \| 추천 0 \| 조회 51	min	2025.05.09	-	51
78518	피벗테이블	New 피벗테이블 관련 화살표 질문 이모비니 \| 2025.05.09 \| 추천 0 \| 조회 49	이모비니	2025.05.09	-	49
78516	함수/공식	New 호봉산정 엑셀 문의드립니다. (2) 답변완료 아르카디안 \| 2025.05.08 \| 추천 0 \| 조회 59	아르카디안	2025.05.08	-	59
78515	함수/공식	New 엑셀 질문 드립니다.ㅠ.ㅠ (1) 숲의사제 \| 2025.05.08 \| 추천 0 \| 조회 56	숲의사제	2025.05.08	-	56
78511	함수/공식	New 입사일자로 부터 매년 알림 (2) 국빱 \| 2025.05.08 \| 추천 0 \| 조회 69	국빱	2025.05.08	-	69
78510	문서서식	New 조건부 서식 적용 문의 (2) 답변완료 장수벌레 \| 2025.05.08 \| 추천 0 \| 조회 101	장수벌레	2025.05.08	-	101