캘린더 팝업에서 가져온 셀을 Excel에서 제한하는 방법

Question

마우스 오른쪽 버튼을 클릭하고 데이터 삽입 버튼을 클릭하여 나타나는 캘린더 팝업을 만들었습니다. 자, 나는 그 세포가 그 달력에서 데이트하기를 원한다. 여기

날짜를 입력하는 다른 방법을 방지 할 code.please 도움말 (로크 셀)와 보호 시트를

Private Sub Workbook_Open() 
On Error Resume Next 
Dim NewControl As CommandBarControl 
Application.OnKey "+^{C}", "Module1.OpenCalendar" 
Application.CommandBars("Cell").Controls("Insert Date").Delete 
Set NewControl = Application.CommandBars("Cell").Controls.Add 
With NewControl 
    .Caption = "Insert Date" 
    .OnAction = "Module1.OpenCalendar" 
    .BeginGroup = True 
    End With 
    End Sub 

Answer 1

이다. 캘린더에서 vba를 사용하여 셀을 채우는 경우 UserInterfaceOnly := True으로 시트를 보호하면 vba에서 셀에 쓸 수 있습니다.