Làm cách nào để userform1.enable = false (1 người xem)

[nhoklipice]

Mọi người giúp mình vấn đề này.
Mình có 1 form (file đính kèm)
mình muốn sau ngày 30/12/2013 thì form không còn hoạt động nữa.
Cảm ơn mọi người !

 

[dhn46]

Bạn sửa sub callform của bạn thành như thế này

Sub calform()
    If Now < VBA.DateSerial(2013, 12, 31) Then
        UserForm1.Show (0)
    End If
End Sub

 

[nhoklipice]

Cảm ơn bạn đã giúp, mình đã làm được - nhưng có thắc mắc mình có thể disable form1 bằng cách đếm số lần button1 được click (hoặc enter) vì disable theo thời gianh mình có thể chỉnh lại ngày được, thx bạn nhiều !

 

[Hoàng Trọng Nghĩa]

Cảm ơn bạn đã giúp, mình đã làm được - nhưng có thắc mắc mình có thể disable form1 bằng cách đếm số lần button1 được click (hoặc enter) vì disable theo thời gian mình có thể chỉnh lại ngày được, thx bạn nhiều !

Được chứ bạn! Ví dụ tại một Sheet có CodeName là HiddenSheet, bạn chọn ô A1 là nơi nhập số lần nó mà Nút lệnh được click, sau đó Hide sheet này đi. Thì code của nút lệnh sẽ như sau:

Private Sub CommandButton1_Click()
    With [COLOR=#008000]HiddenSheet[/COLOR].Range("A1")
        If .Value = [COLOR=#ff0000][B]100 [/B][/COLOR]Then
            MsgBox "Ban khong duoc mo form nay!"
        Else
            .Value = .Value + 1
            [COLOR=#0000cd]YourUserForm[/COLOR].Show
        End If
    End With
End Sub

Với thủ tục này, tôi cho số lần click là 100, còn tùy bạn chỉnh sửa vậy!