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

Excel에서 잘라 내기, 복사 및 붙여 넣기 기능을 비활성화하는 방법은 무엇입니까?

잘라 내기, 복사 및 붙여 넣기로부터 보호해야하는 중요한 데이터가 포함 된 통합 문서가 있다고 가정합니다. 그것을 달성하는 방법? 이 문서에서는 Excel 통합 문서에서 잘라 내기, 복사 및 붙여 넣기 기능을 동시에 비활성화하는 VBA 방법을 제공합니다.

VBA 코드로 잘라 내기, 복사 및 붙여 넣기 기능 비활성화


VBA 코드로 잘라 내기, 복사 및 붙여 넣기 기능 비활성화

Excel 통합 문서에서 잘라 내기, 복사 및 붙여 넣기 기능을 비활성화하려면 다음과 같이하십시오.

1. 통합 문서에서 잘라 내기, 복사 및 붙여 넣기 기능을 비활성화하려면 다른 + F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 두 번 클릭하십시오 이 워크북 왼쪽에 프로젝트 창을 클릭 한 다음 아래 VBA 코드를 복사하여 붙여 넣습니다. ThisWorkbook (코드) 창문. 스크린 샷보기 :

VBA 코드 : Excel에서 잘라 내기, 복사 및 붙여 넣기 기능을 동시에 비활성화

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

3. 그런 다음 다른 + Q 나가는 열쇠 응용 프로그램 용 Microsoft Visual Basic 창.

이제이 통합 문서에서 데이터를 잘라내거나 복사 할 수 없지만 다른 시트 나 통합 문서에서 복사 한 데이터는이 통합 문서에 붙여 넣을 수 없습니다.

주의 사항: 위의 VBA 코드를 실행 한 후에도 드래그 앤 드롭 기능이 비활성화됩니다.


관련 기사:


최고의 사무 생산성 도구

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 하단
코멘트 (50)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 위와 같이 하지만 내가 여는 모든 Excel 파일에서 잘라내기 복사 및 과거 기능이 비활성화되었습니다. 이유는 무엇입니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 저는 이것을 사용자로부터 "잘라내기"를 숨기는 데 사용했으며 테이블이 없는 한 훌륭하게 작동합니다. "잘라내기"는 테이블에서 셀을 선택할 때 기적적으로 다시 나타납니다. 정확히 제가 피하려고 하는 것입니다. 어떤 아이디어? 감사해요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
작업 감사합니다. 하지만 전체 통합 문서에 있습니다. 이 코드가 필요한 경우 특정 시트만 가능합니다. 가능합니까 ??
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
답을 찾았습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. 전체 통합 문서에서 작동합니다. 1장에 대해서만 코딩을 할 수 있나요?도와주세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
잘라내기, 복사 및 붙여넣기 기능을 다시 활성화하는 방법은 무엇입니까? 조언 부탁드립니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 하늘
아래 VBA1(ThisWorkbook 모듈에 코드 배치)을 실행하여 통합 문서에서 잘라내기, 복사 및 붙여넣기 기능을 비활성화하십시오.

VBA1:
하위 DelCopy()
신청서 첨부
.OnKey "^x", ""
.OnKey "^c", ""
.CommandBars("셀").Controls(1).Enabled = False
.CommandBars("셀").Controls(2).Enabled = False

최종 하위

그리고 VBA2를 실행하여 이러한 모든 기능을 통합 문서로 다시 활성화하십시오.

VBA2:
하위 RecoverCopy()
신청서 첨부
.OnKey "^x"
.OnKey "^c"
.CommandBars("셀").Controls(1).Enabled = True
.CommandBars("셀").Controls(2).Enabled = True

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 나를 위해 작동하지 않는 것 같습니다 - 원본 VBA 코드를 삭제한 다음 위의 내용을 붙여넣어 잘라내기, 복사 및 붙여넣기 기능을 다시 활성화해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
위의 VBA1in은 원래 코드를 대체한 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
소중한,

Excel 2007 시트에서 잘라내기, 복사, 붙여넣기를 비활성화하고 싶습니다.
이것에 대한 코드를 공유할 수 있습니까
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
당신의 의견에 감사드립니다. Excel 2007에서 해결 방법을 찾고 있습니다. 잠시만 기다려 주십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
"CUT"만 비활성화할 수 있습니까? 하지만 여전히 복사하여 붙여넣기를 사용할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 카멜로입니다.
아래 코드를 복사하여 통합 문서의 통합 문서 코드 창에 붙여넣은 다음 Excel 매크로 사용 통합 문서로 저장하십시오. 그러면 "잘라내기" 기능이 비활성화됩니다.

Option Explicit
CommandBars로 Private WithEvents Cbrs

개인 서브 Workbook_Open ()
Cmbrs = Application.CommandBars 설정
최종 하위

Private Sub Workbook_Activate ()
Application.CutCopyMode = 2인 경우
Application.CutCopyMode = 0
END IF
최종 하위

개인 하위 Cmbrs_OnUpdate()
If Me Is ActiveWorkbook 다음
Application.CutCopyMode = 2인 경우
Application.CutCopyMode = 0
MsgBox "절단 작업 비활성화됨"
END IF
END IF
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 당신이 말한대로 시도했지만 아무 일도 일어나지 않았습니다. A는 정확히 같은 것을 원합니다.
"잘라내기" 기능이 비활성화되었습니다. 오른쪽 클릭 버튼 옵션과 도구 모음에서 "잘라내기" 옵션을 비활성화해야 합니다.
가능한 크리스탈인가요??
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
제 경우에는 코드가 잘 작동합니다. Office 버전을 알 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Hi

저는 VBA 코드의 초보자이며 이 코드는 내 문제의 99%를 해결했습니다.

구멍 시트(이 코드 용량)를 잠글 수 있지만 여전히 하나의 셀이 잠금 해제되어 있습니까?
(명확하게, 나는 구멍 시트의 한 셀에서만 정보의 과거 복사를 허용하고 싶습니다.)

친애하는
L
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 린다
VBA 코드를 사용하지 않고 문제를 해결할 수 있습니다.
셀을 마우스 오른쪽 버튼으로 클릭하고 상황에 맞는 메뉴에서 셀 서식을 선택하고 대화 상자의 보호 탭에서 잠김 상자를 선택 취소합니다. 그런 다음 암호로 워크시트를 보호합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 게시물을 찾아서 매우 기뻤지만 다중 워크시트 통합 문서의 단일 워크시트로 제한하는 데 약간의 도움이 필요합니다. 그리고 사용자 개입 없이 이것을 실행하는 방법을 알아야 합니다...오류를 방지하는 데 도움이 되는 통합 문서에서 이 최대한 빨리 필요합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
다음 VBA 코드는 문제를 해결하는 데 도움이 될 수 있습니다. 그리고 코드에서 "Sheet2"를 시트 이름으로 바꾸는 것을 잊지 마십시오.

문자열로 공개 mJWSName

개인 서브 Workbook_Open ()
mJWSName = "시트2"
최종 하위

Private Sub Workbook_Activate ()
ActiveSheet.Name = mJWSName인 경우
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = 거짓
END IF
최종 하위

Private Sub Workbook_Deactivate ()
Application.OnKey "^c", ""
Application.CellDragAndDrop = 참
Application.CutCopyMode = False
최종 하위


Private Sub Workbook_WindowActivate(ByVal Wn As Window)
ActiveSheet.Name = mJWSName인 경우
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = 거짓
END IF
최종 하위

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.OnKey "^c"
Application.CellDragAndDrop = 참
Application.CutCopyMode = False
최종 하위

Private Sub Workbook_SheetSelectionChange(ByVal Sh를 개체로, ByVal 대상을 범위로)
오류에 대한 다음 재개
Sh.Name = mJWSName인 경우
Application.CutCopyMode = False
END IF
최종 하위

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
오류에 대한 다음 재개
Sh.Name = mJWSName인 경우
Application.OnKey "^c", ""
Application.CellDragAndDrop = 거짓
Application.CutCopyMode = False
END IF
최종 하위

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.OnKey "^c"
Application.CellDragAndDrop = 참
Application.CutCopyMode = False
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
마지막 질문 - 이 코드는 어디로 가고 어떻게 실행됩니까? 이 작업에 필요한 프로젝트는 많은 코드가 포함된 Excel 시트에 XLA 파일을 첨부합니다. 이것이 모듈에 들어가야 하는지 아니면 이 시트 뒤에 있는 코드에 들어가야 하는지 몰랐습니다. 감사해요...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
지시해 주셔서 감사합니다. Office 2013에서 시도하고 있지만 아무 것도 변경되지 않았습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 코드가 잘 작동합니다 감사합니다.
그러나 읽기 전용 옵션이 활성화되었습니다. (수정을 원하지 않는 경우). ..파일, 다른 이름으로 저장, 도구, 일반 옵션, 읽기 전용 권장을 설정하면 코드가 작동하지 않습니다.

사전에 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 잘 작동합니다. 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다 완벽하게 작동합니다 .... 어떻게 든 범위에만 적용 할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
죄송합니다. 도와드릴 수 없습니다. 포럼에 질문을 게시하는 것을 환영합니다. https://www.extendoffice.com/forum.html. 당신의 의견에 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다 선생님
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매우 유용합니다, 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
잘라내기 복사 붙여넣기 적용 가능한 전체 통합 문서. 이 코드가 필요한 경우 특정 시트만 가능합니다. 가능합니까 ??
도와주세요. 시트 비활성화 기능은 하나만 필요합니다. 다른 시트 우리는 모든 기능을 작동하고 있습니다 ...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
해당 코드는 전체 통합 문서 대신 단일 시트에 대해 내 Excel 2016에서 작동하지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 여전히 ​​메모장 또는 Microsoft Edge에서 붙여넣기를 허용합니다. 어떤 소스에서 붙여 넣기를 방지하는 방법이 있는지 확인하십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
모든 소스에서 붙여넣기를 방지하려면 메모장 기능을 방지해야 하므로 불편을 겪을 수 있습니다. 권장하지 않습니다. 죄송합니다. 도와드릴 수 없습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드를 사용했는데 다시 활성화하시겠습니까? 다시 활성화하는 방법?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
복사 잘라내기 및 붙여넣기를 비활성화하려면 이 코드를 사용하십시오.



Private Sub Workbook_Activate ()

Application.CutCopyMode = False

Application.OnKey "^c", ""

Application.CellDragAndDrop = 거짓

최종 하위



Private Sub Workbook_Deactivate ()

Application.CellDragAndDrop = 참

Application.OnKey "^c"

Application.CutCopyMode = False

최종 하위



Private Sub Workbook_WindowActivate(ByVal Wn As Window)

Application.CutCopyMode = False

Application.OnKey "^c", ""

Application.CellDragAndDrop = 거짓

최종 하위



Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

Application.CellDragAndDrop = 참

Application.OnKey "^c"

Application.CutCopyMode = False

최종 하위



Private Sub Workbook_SheetSelectionChange(ByVal Sh를 개체로, ByVal 대상을 범위로)

Application.CutCopyMode = False

최종 하위



Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Application.OnKey "^c", ""

Application.CellDragAndDrop = 거짓

Application.CutCopyMode = False

최종 하위



Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

Application.CutCopyMode = False

최종 하위





이 기능을 다시 활성화하려면
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 잘 작동합니다. 허용 가능한 입력의 명명된 범위와 허용되는 입력에만 연결된 풀다운 메뉴가 있는 특정 열에서 복사/붙여넣기를 허용하도록 이것을 수정하는 방법은 무엇입니까? 예를 들어 Jetson, George, 25라는 이름은 Jetson, George, 25의 복사/붙여넣기를 허용하지만 Jeston, George, 26은 허용하지 않습니다. 또는 Jetson, George, 25, 26이 되는 드래그 앤 채우기 , 27 등
내 워크시트에서 특정 열의 잘라내기/복사/붙여넣기를 완전히 비활성화한 다음 드롭다운에서 허용되는 데이터의 잘라내기 복사 붙여넣기만 허용하고 싶습니다.
고맙습니다.
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

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