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

VBA
작성자
Steve. J
작성일
2022-02-28 04:03
조회
138
엑셀버전 : 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 시트를 보호하고 싶습니다.

전체 4

  • 2022-02-28 15:56
    rng.Parent.Unprotect "비번"
    
    '코드...
    
    rng.Parent.Protect "비번"

    이렇게 수정하면 될겁니다


    • 2022-02-28 16:27

      @엑셀은즐거워 님 말씀하신데로 하였는데 에러가 계속해서 떠요 ㅠ


  • 2022-02-28 21:56
    채택된 답변

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

    추측컨데.....

    Set rng = Sheets("DB").Cells(Rows.Count, 1).End(3)(2)
    rng.Parent.Unprotect "비번"
    
    '코드...
    
    rng.Parent.Protect "비번"

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

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


    • 2022-03-01 00:20

      @나는나

      Set rng = Sheets("DB").Cells(Rows.Count, 1).End(3)(2)
      이 아래에 RNG변수를 입력하니 위의 구문이 인식이 안되어

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


전체 6,488
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 진짜쓰는 실무엑셀 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (8)
오빠두엑셀 | 2022.04.30 | 추천 10 | 조회 1278
오빠두엑셀 2022.04.30 10 1278
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (65)
오빠두엑셀 | 2021.10.28 | 추천 81 | 조회 4595
오빠두엑셀 2021.10.28 81 4595
34477 문서서식
New 수식 복사 질문드려요.. ㅠㅠ 불금 퇴근하고싶습니다... 첨부파일 (3) 답변완료
김동률 | 2022.05.27 | 추천 0 | 조회 27
김동률 2022.05.27 0 27
34473 VBA
New 비고란에서 휴대폰번호 추출하기에 관해 문의드립니다. 첨부파일 (1)
수메리안 | 2022.05.27 | 추천 0 | 조회 26
수메리안 2022.05.27 0 26
34472 기능/도구
New 스핀단추에서 증분변경시 0.1 씩 증감할려면 어떻게 해야 할까요? (1)
033cola | 2022.05.27 | 추천 0 | 조회 24
033cola 2022.05.27 0 24
34471 함수/공식
New 조건부서식 중복 2개이상 및 2개일때 서식좀 봐주세요 궁금합니다. 첨부파일 (2)
김주현 | 2022.05.27 | 추천 0 | 조회 32
김주현 2022.05.27 0 32
34469 문서서식
New 표의 행렬 변경 첨부파일 (3)
김학준 | 2022.05.27 | 추천 0 | 조회 28
김학준 2022.05.27 0 28
34465 차트/그래프
New 간트차트에 오늘 표시하는 방법 질문드려요
yoyoy**** | 2022.05.27 | 추천 0 | 조회 27
yoyoy**** 2022.05.27 0 27
34464 VBA
New Vba로 수식을 입력하려는데 오류가 납니다. (1)
silverf**** | 2022.05.27 | 추천 0 | 조회 29
silverf**** 2022.05.27 0 29
34451 함수/공식
New 제품별 코드 중복/단독 확인함수 첨부파일 (2)
다은지후아빠 | 2022.05.27 | 추천 -1 | 조회 46
다은지후아빠 2022.05.27 -1 46
34450 VBA
New VBA를 활용한 최단거리 계산(Pathfinder,카카오맵) 첨부파일
darc**** | 2022.05.27 | 추천 0 | 조회 33
darc**** 2022.05.27 0 33
34448 함수/공식
New countif 다양한 조건으로 만들고 싶어요~ 첨부파일 (2) 답변완료
김수달 | 2022.05.27 | 추천 0 | 조회 44
김수달 2022.05.27 0 44
34444 기능/도구
New 엑셀 빠른 도구 모음에 있는 '조명'이 무슨 기능인지 아시는분 계신가요?
월마리아 | 2022.05.26 | 추천 0 | 조회 43
월마리아 2022.05.26 0 43
34440 함수/공식
New 고객 리텐션, 접속 일수에 맞춰 데이터를 합산하는 함수/VBA 문의! 첨부파일
은혼 | 2022.05.26 | 추천 0 | 조회 21
은혼 2022.05.26 0 21
34439 차트/그래프
New 체크박스 선택에 따라 값이 바뀌는 차트의 데이터레이블 표시 문제 관련 첨부파일
Qwerty | 2022.05.26 | 추천 0 | 조회 24
Qwerty 2022.05.26 0 24
34437 함수/공식
New 국가만 찾아 올련면 첨부파일 (4) 답변완료
구름나그네 | 2022.05.26 | 추천 0 | 조회 40
구름나그네 2022.05.26 0 40
34433 함수/공식
New 함수관련 질문있습니다.
섭섭섭 | 2022.05.26 | 추천 0 | 조회 31
섭섭섭 2022.05.26 0 31
34427 함수/공식
New 특정 공휴일 제외 후 2달 뒤 날짜를 구할수 있는 함수 식이 있을까요? (1)
김태우 | 2022.05.26 | 추천 0 | 조회 42
김태우 2022.05.26 0 42
34417 피벗테이블
New 피벗테이블 외부 데이터 참조 후 새로고침 할 때 자꾸 암호를 입력하라고 떠요.. (2) 답변완료
forest choi | 2022.05.26 | 추천 0 | 조회 35
forest choi 2022.05.26 0 35
34416 함수/공식
New 날짜/시간 차이를 구하려면 어떻게 하면 좋을까요? 첨부파일 (2)
aron007 | 2022.05.26 | 추천 0 | 조회 41
aron007 2022.05.26 0 41
34415 VBA
New VBA코드로 자동채우기 할때 유동범위는 어떻게 하나요 첨부파일 (2)
nam**** | 2022.05.26 | 추천 1 | 조회 39
nam**** 2022.05.26 1 39
34414 함수/공식
New 금지어 삭제하는 함수 (특정텍스트 범위내의 값을 제거 후 값 불러오기) 첨부파일 (1)
Jasper | 2022.05.26 | 추천 0 | 조회 42
Jasper 2022.05.26 0 42
34406 함수/공식
New sum 함수 오류? 첨부파일 (1)
saechang | 2022.05.25 | 추천 0 | 조회 52
saechang 2022.05.25 0 52
34405 VBA
New 중복데이터가 많은데 맨 위에 있는 행의 데이터만 남길 수 있는 방법이 있을까요? 첨부파일 (3) 답변완료
오구 | 2022.05.25 | 추천 0 | 조회 66
오구 2022.05.25 0 66
34402 VBA
New vba 특정문자 입력시 현재시간 구동 관련 첨부파일 (2)
1412 | 2022.05.25 | 추천 0 | 조회 46
1412 2022.05.25 0 46
34400 함수/공식
New 다른 셀 값 참조시 결과값이 0으로만 나오는 현상 문의 첨부파일 (3) 답변완료
forest choi | 2022.05.25 | 추천 0 | 조회 46
forest choi 2022.05.25 0 46
34395 VBA
New 조건이 맞을 경우 범위데이터 이동 or 복사,삭제 문의 첨부파일 (2) 답변완료
com**** | 2022.05.25 | 추천 0 | 조회 54
com**** 2022.05.25 0 54
34392 함수/공식
New 다른 파일을 참조하여 합계를 구하는데, 그 참조 파일의 이름이 바뀐다면? (1)
풀빵이네 | 2022.05.25 | 추천 0 | 조회 35
풀빵이네 2022.05.25 0 35
34391 기능/도구
New F1 키 누르면 나오는 도움말 끄는 단축키는 없나요? (5)
우렁각시탈 | 2022.05.25 | 추천 0 | 조회 47
우렁각시탈 2022.05.25 0 47
34390 함수/공식
New 셀이 빈 경우 텍스트조인이 실행되지 않도록 하는 방법 첨부파일 (6) 답변완료
forest choi | 2022.05.25 | 추천 0 | 조회 58
forest choi 2022.05.25 0 58
34387 VBA
개별공시지가조회 셀레니움 첨부파일 (5) 답변완료
나야 | 2022.05.25 | 추천 0 | 조회 45
나야 2022.05.25 0 45
34378 기능/도구
특정 글자의 데이터만 따로 분리할 수 있는 방법이 있을까요? (9) 답변완료
dfgkdflglkdf | 2022.05.25 | 추천 -1 | 조회 79
dfgkdflglkdf 2022.05.25 -1 79