excel 应用DTpicker ，打开文件不能插入日期

[tjalex1970]

excel 文件引入DTpicker

加入如下代码：

Option Explicit
Private Sub DTPicker1_Change()
    ActiveCell.Value = DTPicker1.Value
    DTPicker1.Visible = False
   End Sub




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Me.DTPicker1
        If Target.Column = 1 And Target.Count = 1 Then
            .Visible = True
            .Width = Target.Width + 15
            .Left = Target.Left
            .Top = Target.Top
            .Height = Target.Height
               Else
            .Visible = False
        End If
        End With
 End Sub

退出设计模式，运行正常





但是，关闭文件再开启就不能插入日期了




需要在设计模式下编辑一下DTpicker属性才可

求大师解惑，我想让开启文件的人能插入日期

谢谢

[一如既往哈]

2007的啊。 可能是你保存的文件格式有问题。 你的文件后缀是xlsx吧，这种是不带宏的工作簿。 如果要使vba有效，请在保存的时候选择带宏的xlsm的格式即可。

[一如既往哈]

检查一下你的宏安全级别。

[tjalex1970]

[tjalex1970]

安全性已经降低

[tjalex1970]

求大师解惑阿

[tjalex1970]

2013的，保存格式也是启用宏的，每次想生效必须用设计模式，点DTPICKER属性，再应用

[一如既往哈]

引用 6 楼 tjalex1970 的回复:

2013的，保存格式也是启用宏的，每次想生效必须用设计模式，点DTPICKER属性，再应用

楼主够超前的，我还在用2003，偶尔用用2007.....至于2013的，俺没见过也没用过，帮顶......