Note: The other languages of the website are Google-translated. Back to English

배경색을 기반으로 셀 값을 보호하거나 잠그는 방법은 무엇입니까?

큰 워크 시트가 있고 여러 셀이 서로 다른 배경색으로 채워져 있다고 가정 해 보겠습니다. 이제 모든 셀을 빨간색으로 잠 그거나 보호하는 등 특정 채워진 색상을 기준으로 셀을 잠 그거나 보호하려고합니다. Excel에서이 작업을 처리하는 좋은 방법이 있습니까?

VBA 코드로 배경색을 기반으로 셀 값 보호 또는 잠금


화살표 블루 오른쪽 거품 VBA 코드로 배경색을 기반으로 셀 값 보호 또는 잠금

예를 들어, 다른 사용자가 이러한 셀 값을 수정하지 못하도록 모든 적혈구를 잠그고 보호하고 싶습니다. 다음 VBA 코드로이 작업을 해결할 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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

VBA 코드 : 색상에 따라 셀 값 보호 또는 잠금 :

Sub lockcellsbycolor()
'Updateby Extendoffice
    Dim colorIndex As Integer
    colorIndex = 3
    Dim xRg As Range
    Application.ScreenUpdating = False
    For Each xRg In ActiveSheet.UsedRange.Cells
        Dim color As Long
        color = xRg.Interior.colorIndex
        If (color = colorIndex) Then
            xRg.Locked = True
        Else
            xRg.Locked = False
        End If
    Next xRg
    Application.ScreenUpdating = True
    MsgBox "All specified color cells have been locked!", vbInformation, "Kutools for Excel"
End Sub

주의 사항: 위 코드에서 숫자 3 이내 색상 인덱스 = 3 스크립트는 내가 잠그고 싶은 붉은 색 셀을 나타내며, 잠그고 싶은 다른 색상 인덱스로 변경할 수 있습니다.

3. 그런 다음 F5 이 코드를 실행하려면 키를 누르고 빨간색 셀만 잠겨 있고 사용 된 활성 시트 범위에서 다른 셀의 잠금이 해제됩니다. 스크린 샷 참조 :

색상 별 문서 잠금 셀 1

4. 다른 사용자가 수정하지 못하도록 보호하려면 시트 보호 이 워크 시트를 보호하는 기능입니다.

팁 : 색상 인덱스 번호를 얻으려면 다음 사용자 정의 함수를 적용 할 수 있습니다.

Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function

최고의 사무 생산성 도구

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

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

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

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (4)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요
j'aurais voulu savoir si il était possible de faire la meme selected mais avec la valeur de la cellule plutôt que la couleur?
모범 사례: Verrouiller는 les cellules dont la valeur est "-" de la page B2:E25를 선전합니다.

메르 디 AVANCE
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
병합된 셀이 있는 시트에 적용할 수 있으며 조건부 서식을 기반으로 하는 셀 색상을 인식할 수 있습니까? 색상 코드 15인 셀을 잠그고 싶고 해당 셀은 조건부 형식을 기반으로 하는 색상 코드 15입니다. 미리 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
특정 색상이 아닌 모든 시트의 모든 셀이 보호되도록 루프에서 이것을 어떻게 실행합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Bonjour, yat il une astuce quand la feuille est protégée d utiliser le panel des couleurs dans l onglet accueil pour mettre un fond de couleur sur les case non protégés merci
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호