merhaba benim elimde bir örnek var. örnek açılışta şifre değişikliği istiyor değişikliği yapınca program kullanım süresi dolmuştur deyip kapanıyor. bu süreyi nasıl düzeltebilirim?
kod aşağıda yardımlarınızı bekliyorum

'Sub formac()

'UserForm1.Show

'End Sub

'Sub Auto_Open()



If Sheets("NOT").[A13] = 123456 Then

MsgBox "Programa Hoşgeldiniz. " & vbCrLf & "Öncelikle kullanacağınız şifreyi ve kullanıcı adı ve ünvanınızı girmelisiniz. " & vbCrLf & "İlk şifre 123456 dır. " & vbCrLf & "Şimdi yeni şifrenizi ve isim ünvan bilgilerini girerek programı açabilirsiniz.", vbSystemModal, Sheets("NOT").[A15] & " " & Sheets("NOT").[A14] & ""

Application.Visible = False

UserForm1.Show

End If



If Sheets("NOT").[A13] <> 123456 Then

Application.Visible = True

End If





Application.StatusBar = Sheets("not").[A14] & " " & Sheets("not").[A15] & ""

Application.Caption = "İZİN TAKİP PROGRAMI"

ActiveWindow.Caption = ""

Sheets("veriler").Select



Dim saat1 As Date

Dim saat2 As Date

    saat1 = Sheets("NOT").[B33]

    saat2 = Date

    If saat2 > saat1 Then

        MsgBox "Programın kullanım süresi dolmuştur. İyi günler.", vbSystemModal, Sheets("NOT").[A14] & " " & Sheets("NOT").[A15] & ""

         ActiveWorkbook.Close

    End If

    If saat1 - saat2 < 91 Then

    If saat1 > saat2 Then

    MsgBox "Kullanım için sadece " & saat1 - saat2 & " gününüz kalmış olup program " & saat1 & " tarihinde kapanacaktır.", vbSystemModal, Sheets("not").[A14] & " " & Sheets("not").[A15] & ""

    End If

    End If

'End Sub

Aşağıda verdiğim bölümde tarih denetimi yapılıyor.

Bu bölümde düzenleme yapabilir, If şartlarını kaldırabilir veya en son alternatif olarak sistem tarihini değiştirebilirsiniz.

Dim saat1 As Date

Dim saat2 As Date

saat1 = Sheets("NOT").[B33]

saat2 = Date

If saat2 > saat1 Then

MsgBox "Programın kullanım süresi dolmuştur. İyi günler.", vbSystemModal, Sheets("NOT").[A14] & " " & Sheets("NOT").[A15] & ""

ActiveWorkbook.Close

End If

If saat1 - saat2 < 91 Then

If saat1 > saat2 Then

MsgBox "Kullanım için sadece " & saat1 - saat2 & " gününüz kalmış olup program " & saat1 & " tarihinde kapanacaktır.", vbSystemModal, Sheets("not").[A14] & " " & Sheets("not").[A15] & ""

End If

End If

'End Sub

sayın hocam benim istediğim şifre değişikliği yapıldıktan sonra kullanım süresi dolmuştur demesin istiyorum. sistem saati değiştirmekle kastınız tarihin 2013 yılından önceki bir tarihe mi almak anlamına geliyor. bilmem anlatabildin mi? saygılarımla

Ben daha önce işlediğiniz verilere süre dolduğu için erişemediğinizi var sayarak sistem saatini önermiştim.
O zaman If bloğunda düzenlemeye gitmeniz yeterli olacağı kanaatindeyim.

peki sayın hocam if bloğunda düzenlemeyi nasıl yapacağım ?

UserForm1 üzerinde nasıl bir denetim var ne iş yapar bilmeden doğru cevap yazmak imkansız.
İlk mesajda yazdığım If bloğunda düzenlemeden kasıt : Tarihi denetlemeden işleme devam etmesini sağlamaktır.

Veya NOT isimli sayfanın B33 hücresinde bulunan tarihi ileri bir zamana değiştirebilirsiniz.

Tekrar hatırlatıyorum : (UserForm1 üzerinde nasıl bir denetim var ne iş yapar bilmeden doğru cevap yazmak imkansız.)