如何将Excel中的单元格限制为仅从我设计的日历弹出下拉菜单中获取

Question

我制作了一个日历弹出窗口，通过右键单击并选择插入数据按钮出现。现在，我只希望单元格从该日历中获取日期。

这是代码。请帮忙

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 写入单元格。