728x90
728x90
Ctrl + s (저장), Ctrl + e (빠른채우기), Ctrl + f (찾기), Ctrl + c (복사) 등을 누르려고 하면 실수로 Ctrl + d(자동채우기 옵션 중 셀 복사)를 눌러서 낭패를 보는 분들이 있나봅니다.
아래와 같이 코드를 붙여넣으세요.
이 코드는 어느 엑셀파일을 실행하건 간에 해당 엑셀파일을 불러오기 전에 매크로를 실행해서 처음부터 Ctrl + d 단축키를 사용하지 못하게 하는 코드입니다. 아래 코드를 위 사진의 보이는 바와 같이 '개발도구'탭에서 Visual Basic으로 들어가 개인용 매크로 통합 문서 'PERSONAL.XLSB'의 ' 현재_통합_문서 ' 개체를 더블클릭 해 아래 코드를 코드창에 복붙해줍니다.
Private Sub Workbook_Open()
'
' 'Ctrl+D 비활성화' 매크로 활성화-알림메시지 입니다
'
Application.OnKey "^d", ""
MsgBox "어서오십시오. 현재 ' Ctrl+D 비활성화 ' 매크로가 실행되고 있습니다." & vbCr & vbCr _
& "매크로를 중지하거나 재실행하려면 임의로 정한 바로가기키를 누르세요."
End Sub
이 코드는 바로가기키를 통해 수동으로 Ctrl + d 단축키를 사용가능/사용불가능 하게 하는 코드입니다. 도중에 Ctrl + d 단축키를 써야할 일이 생기면 아래 코드를 위 사진의 보이는 바와 같이 개인용 매크로 통합 문서 'PERSONAL.XLSB'의 ' Module1 ' 개체를 더블클릭 해 코드창에 복붙해 바로가키키를 눌러 활성화시키고 비활성화시키려면 또다시 바로가기키를 눌러서 비활성화시킵니다.
Private Sub CtrlDActivation()
'
' 'Ctrl+D 단축키 활성화' 매크로 입니다
'
' 해당 매크로를 실행할 바로가기키를 편한 대로 정하십시오.
' 예를들어 Ctrl + Shift + z
Application.OnKey "^d"
End Sub
Private Sub CtrlDDeactivation()
'
' 'Ctrl+D 단축키 비활성화' 매크로 입니다
'
' 해당 매크로를 실행할 바로가기키를 편한 대로 정하십시오.
' 예를들어 Ctrl + Shift + x
Application.OnKey "^d", ""
End Sub
바로가기키 설정은 다음과 같이 합니다.
728x90
728x90
'공부' 카테고리의 다른 글
[Excel] 문서에 나타나는 회색의 점선(페이지 나누기 표시선)은 어떻게 없애요? (0) | 2020.02.06 |
---|