CommandButton Belirlenen Tarihte Aktif Olması

[progres35]

Arkadaşlar Merhaba,
Konu başlığından da anlayabileceğiniz üzere CommandButton'un belirlenen tarihten sonra aktif olmasını istiyorum. Yardımınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Bu buton nerede?

 

[progres35]

Bu buton nerede?

Ekli dosyada örnekleyecek olursak;
CommandButton1 Sayfa2'yi aktif ediyor.
CommandButton2 Sayfa3'ü aktif ediyor.

İstediğim ise CommandButton2'nin örneğin 10.03.2021 tarihinden itibaren aktif olması. Yani bugün itibariyle CommandButton2'ye bassam bile Sayfa2'yi aktif etmeyecek. Ancak 10.03.2021 tarihi geldiğinde (bu tarihten sonra kısıtlama olmayacak) aktif olması.

İndir Command Button Tarih ile Aktif Olma

Dosyayı indir Command Button Tarih ile Aktif Olma

dosya.co

İlginiz ve desteğiniz için teşekkürler.

 

[Korhan Ayhan]

Bu şekilde yeterli olur mu?

Private Sub CommandButton2_Click()
    If Date >= DateSerial(2021, 3, 10) Then Sayfa3.Activate
End Sub

 

[Korhan Ayhan]

Bu kodu da deneyebilirsiniz.

Butona belirttiğiniz tarihten önce tıklanamaz. Kod dosya açılışında devreye girecektir.

Kodu ThisWorkbook (BuÇalışmaKitabı) bölümüne uygulayınız.

Private Sub Workbook_Open()
    If Date < DateSerial(2021, 3, 10) Then Sheets("Sayfa1").CommandButton2.Enabled = False
End Sub

 

[progres35]

Bu şekilde yeterli olur mu?

Private Sub CommandButton2_Click()
    If Date >= DateSerial(2021, 3, 10) Then Sayfa3.Activate
End Sub

Öncelikle çok teşekkür ederim. Bu kod işimi görecektir. Ancak şöyle bir gereksinim daha var. CommandButton2 tıklandığında hangi tarihte açılacağı ile ilgili bir mesaj metni gösterebilir miyiz?

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton2_Click()
    If Date >= DateSerial(2021, 3, 10) Then
        Sayfa3.Activate
    Else
        MsgBox "Bu buton 10.03.2021 tarihinde devreye girecektir!", vbInformation
    End If
End Sub