나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 바람 (lsh1450)

추천:  2
파일:     조회:  1732
제목:   행 및 열삭제 메뉴 비활성화
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007): 2016

* 아래줄에 질문을 작성하세요 >>
안녕하세요...
행이나 열에 우측마우스 클릭시 해당 파일 또는 시트에 행 및 열을 삭제 할 수 없도록 하고 싶습니다.
현재통합문서 시트에 아래의 코드를 넣었더니 엑셀 자체가 삭제 메뉴가 비활성화 됩니다. 
제가 하고 싶은것은 해당 파일의 모든시트에서만 적용되는 방법 또는 각각의 시트에서만 적용되는 방법이 없을까요?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Dim xBarControl As CommandBarControl
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
    xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
    xBarControl.Enabled = False
Next

End Sub
 
[불량 게시물 신고]  
잡초다음과 같이 해보세요.

Private Sub Workbook_Activate()
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
         xBarControl.Enabled = False
     Next
     For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
         xBarControl.Enabled = False
     Next
End Sub

Private Sub Workbook_Deactivate()
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
         xBarControl.Enabled = True
     Next
     For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
         xBarControl.Enabled = True
     Next
End Sub
03-24 (16:30)
삭제 ■신고
바람잘되네요...
감사합니다.
이걸 생각 못했네요...^^
03-25 (14:50)
삭제 ■신고
        
  

작성일 : 2021-03-24(12:47)
최종수정일 : 2021-03-24(12:48)