Excel dosyasının sınırlı kullanımı...

[rekkezum]

hocalarım merhaba, naçizane yapmış olduğum (excel de) bir program var. Bu programı satma veya aylık kiralama şansım var fakat bu sınırlamayı, atıyorum 1 ay sonra kiralayana bir uyarı vermesini ve 1 ay sonra kullanılamaz duruma gelmesini, kiralayan kişiye satıcınıza baş vurun gibi bir uyarıyı,nasıl yapabilirim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AUTO_OPEN()
Dim SON As Long
ActiveWorkbook.Unprotect "123"
Sheets("veri").Visible = True
Sheets("sifre").Visible = False
Sheets("demo").Visible = False
SON = Sheets("sifre").Cells(65536, "a").End(3).Row + 1
Sheets("sifre").Cells(SON, "a") = 1
If Sheets("sifre").[A31] > 0 Then
MsgBox "Kullanım süreniz dolmuştur.", vbInformation
Sheets("demo").Visible = True
Sheets("veri").Visible = False
End If
ActiveWorkbook.Protect "123"
ActiveWorkbook.Save
End Sub

 

[rekkezum]

hocam ılgınız ıcın cok saolun. fakat bı sey sormam gerek, sıfre yazan yere sıfreyı yazılır, kac gun gecerlı olacagı nı nasıl belırler ve nereye yazarız. bırde suresı dolan program ıcın bana basvurduklarında ban olayı nasıl cozer ve suresını nasıl uzatabılırım veya yenı sıfreyı nasıl belırlerım...

 

[rekkezum]

İlgili alanlar

degerlı hocalarım sınırlı kullanım hakkında yardımcı oldugunuz ıcın tesekkur ederım, fakat eklı dosyada bulunan kodları nereye eklemem gerektıgı, nereye sıfre veya baska bır yerıne formumun adını yazmam gerektıgı hususunda yardımcı olabılırmısınız.... tesekkurler... ektekı fotografa bakabılırmısınız acaba ....