VBA 시트 잠금 풀고 입력 뒤에 다시 잠금 설정 해결 방법
VBA
작성자
Steve. J
작성일
2022-02-28 04:03
조회
138
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 시트를 보호하고 싶습니다.
전체 6,488
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[🏆 진짜쓰는 실무엑셀 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (8)
![]() ![]() |
![]() ![]() |
2022.04.30 | 10 | 1278 | ||
공지사항 | 함수/공식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(65)
오빠두엑셀
|
2021.10.28
|
추천 81
|
조회 4595
|
![]() ![]() |
2021.10.28 | 81 | 4595 |
34477 | 문서서식 |
New 수식 복사 질문드려요.. ㅠㅠ 불금 퇴근하고싶습니다...
![]() ![]() |
![]() |
2022.05.27 | 0 | 27 |
34473 | VBA |
New 비고란에서 휴대폰번호 추출하기에 관해 문의드립니다.
![]() ![]() |
![]() |
2022.05.27 | 0 | 26 |
34472 | 기능/도구 |
New 스핀단추에서 증분변경시 0.1 씩 증감할려면 어떻게 해야 할까요?
(1)
![]() |
![]() |
2022.05.27 | 0 | 24 |
34471 | 함수/공식 |
New 조건부서식 중복 2개이상 및 2개일때 서식좀 봐주세요 궁금합니다.
![]() ![]() |
![]() |
2022.05.27 | 0 | 32 |
34469 | 문서서식 |
New 표의 행렬 변경
![]() ![]() |
![]() |
2022.05.27 | 0 | 28 |
34465 | 차트/그래프 |
New 간트차트에 오늘 표시하는 방법 질문드려요
![]() |
![]() |
2022.05.27 | 0 | 27 |
34464 | VBA |
New Vba로 수식을 입력하려는데 오류가 납니다.
(1)
![]() |
![]() |
2022.05.27 | 0 | 29 |
34451 | 함수/공식 |
New 제품별 코드 중복/단독 확인함수
![]() ![]() |
![]() |
2022.05.27 | -1 | 46 |
34450 | VBA |
New VBA를 활용한 최단거리 계산(Pathfinder,카카오맵)
![]() ![]() |
![]() |
2022.05.27 | 0 | 33 |
34448 | 함수/공식 |
New countif 다양한 조건으로 만들고 싶어요~
![]() ![]() |
![]() |
2022.05.27 | 0 | 44 |
34444 | 기능/도구 |
New 엑셀 빠른 도구 모음에 있는 '조명'이 무슨 기능인지 아시는분 계신가요?
![]() |
![]() |
2022.05.26 | 0 | 43 |
34440 | 함수/공식 |
New 고객 리텐션, 접속 일수에 맞춰 데이터를 합산하는 함수/VBA 문의!
![]() ![]() |
![]() |
2022.05.26 | 0 | 21 |
34439 | 차트/그래프 |
New 체크박스 선택에 따라 값이 바뀌는 차트의 데이터레이블 표시 문제 관련
![]() ![]() |
![]() |
2022.05.26 | 0 | 24 |
34437 | 함수/공식 |
New 국가만 찾아 올련면
![]() ![]() |
![]() |
2022.05.26 | 0 | 40 |
34433 | 함수/공식 |
New 함수관련 질문있습니다.
![]() |
![]() |
2022.05.26 | 0 | 31 |
34427 | 함수/공식 |
New 특정 공휴일 제외 후 2달 뒤 날짜를 구할수 있는 함수 식이 있을까요?
(1)
![]() |
![]() |
2022.05.26 | 0 | 42 |
34417 | 피벗테이블 |
New 피벗테이블 외부 데이터 참조 후 새로고침 할 때 자꾸 암호를 입력하라고 떠요..
(2)
답변완료
![]() |
![]() |
2022.05.26 | 0 | 35 |
34416 | 함수/공식 |
New 날짜/시간 차이를 구하려면 어떻게 하면 좋을까요?
![]() ![]() |
![]() |
2022.05.26 | 0 | 41 |
34415 | VBA |
New VBA코드로 자동채우기 할때 유동범위는 어떻게 하나요
![]() ![]() |
![]() |
2022.05.26 | 1 | 39 |
34414 | 함수/공식 |
New 금지어 삭제하는 함수 (특정텍스트 범위내의 값을 제거 후 값 불러오기)
![]() ![]() |
![]() |
2022.05.26 | 0 | 42 |
34406 | 함수/공식 |
New sum 함수 오류?
![]() ![]() |
![]() |
2022.05.25 | 0 | 52 |
34405 | VBA |
New 중복데이터가 많은데 맨 위에 있는 행의 데이터만 남길 수 있는 방법이 있을까요?
![]() ![]() |
![]() |
2022.05.25 | 0 | 66 |
34402 | VBA |
New vba 특정문자 입력시 현재시간 구동 관련
![]() ![]() |
![]() |
2022.05.25 | 0 | 46 |
34400 | 함수/공식 |
New 다른 셀 값 참조시 결과값이 0으로만 나오는 현상 문의
![]() ![]() |
![]() |
2022.05.25 | 0 | 46 |
34395 | VBA |
New 조건이 맞을 경우 범위데이터 이동 or 복사,삭제 문의
![]() ![]() |
![]() |
2022.05.25 | 0 | 54 |
34392 | 함수/공식 |
New 다른 파일을 참조하여 합계를 구하는데, 그 참조 파일의 이름이 바뀐다면?
(1)
![]() |
![]() |
2022.05.25 | 0 | 35 |
34391 | 기능/도구 |
New F1 키 누르면 나오는 도움말 끄는 단축키는 없나요?
(5)
![]() |
![]() |
2022.05.25 | 0 | 47 |
34390 | 함수/공식 |
New 셀이 빈 경우 텍스트조인이 실행되지 않도록 하는 방법
![]() ![]() |
![]() |
2022.05.25 | 0 | 58 |
34387 | VBA |
개별공시지가조회 셀레니움
![]() ![]() |
![]() |
2022.05.25 | 0 | 45 |
34378 | 기능/도구 |
특정 글자의 데이터만 따로 분리할 수 있는 방법이 있을까요?
(9)
답변완료
![]() |
![]() |
2022.05.25 | -1 | 79 |
이렇게 수정하면 될겁니다
@엑셀은즐거워 님 말씀하신데로 하였는데 에러가 계속해서 떠요 ㅠ
에러가 뜬다고 하셨는데 정확한 설명을 안 하시면 답변하는 분들이 힘들어서 포기하게 됩니다. ㅠㅠ
추측컨데.....
보호를 해제하는 구문 위에 rng 변수를 할당하는 구문이 있어야 rng.Parent가 무엇인지 인식할 수 있는데 순서가 맞지 않아서인 듯합니다. Set 구문을 변수선언 바로 아래로 이동해서 순서를 맞춘 후 다시 시도해 보시기 바랍니다.
아니면 Sheets("DB").Unprotect "비번" 이런 식으로 시트를 직접 입력해 주시면 Set 구문을 옮길 필요 없습니다.
@나는나 님
Sheets("DB").Unprotect "비번" 이렇게 시트를 직접 입력하니 되었습니다. 감사합니다!!