메인 컨텐츠로 가기

Excel에서 행과 열을 삽입하는 기능을 비활성화하는 방법은 무엇입니까?

일반적으로 기존 데이터 사이에 행과 열을 빠르고 쉽게 삽입 할 수 있습니다. 다른 사용자가 워크 시트에 열이나 행을 삽입하는 것을 방지하면 시트를 보호하여 행 또는 열 삽입 기능을 비활성화 할 수 있습니다. 그러나 시트를 보호하지 않고 행 및 열 삽입 기능을 어떻게 비활성화 할 수 있습니까?

VBA 코드로 다른 사람이 행과 열을 삽입하지 못하도록 방지


화살표 블루 오른쪽 거품 VBA 코드로 다른 사람이 행과 열을 삽입하지 못하도록 방지

다음 VBA 코드는 Excel 통합 문서에서 행 및 열 삽입 기능을 비활성화하는 데 도움이 될 수 있습니다.

1. 프레스 Alt + F11 ~을 열려면 응용 프로그램용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈 모듈 창을 열려면 다음 VBA를 창에 복사하십시오.

VBA 코드 : 행과 열 삽입 방지 :

Sub NoInsert()
'Updateby Extendoffice
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = False
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = False
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

3. 프레스 F5 이 코드를 실행하려면 키를 누르세요. 이제 마우스 오른쪽 버튼을 클릭하여 행이나 열을 삽입하면 끼워 넣다 컨텍스트 메뉴에서 옵션을 적용 할 수 없습니다. 스크린 샷보기 :

문서 삽입 기능 비활성화 1

배송 시 요청 사항:

1.이 VBA는 행이나 열을 삽입하기 위해 마우스 오른쪽 단추를 클릭하면 모든 통합 문서의 상황에 맞는 메뉴에서 삽입 기능을 비활성화합니다.

2. 상황에 맞는 메뉴에서 삽입 명령을 복원하려면 다음 코드를 적용하십시오.

Sub NoInsert()
'Updateby Extendoffice
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = True
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = True
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

최고의 사무 생산성 도구

인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

kte 탭 201905


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

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I ran the first code, and it does prevent inserting copied columns. However, when I ran the second code to turn it back on, it did not!!! Now I'm stuck! Please doublecheck your coding and see what is wrong, why I can't turn it back on. Thank you!
This comment was minimized by the moderator on the site
The code does not prevent column insertion.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations