Demo yapma

[zamenya]

arkadaşlar merhaba excel vba da hazırlanan bir programı demo yapılabiliyormu
Örnk:30 süreli veya 10 veri girişine izin verme gibi
Eğer bu işlem yapılabiliyorsa bana yardımcı olabilirmisiniz

 

[leumruk]

Sub Auto_Open()
[A1]=[A1]+1
If [A1]=15 Then
MsgBox "Kullanım süreniz dolmuştur."
Application.Quit
ThisWorkbook.Close False
End If
End Sub

Size basit bir 15 günlük demo... Süre dolunca dosyanız otomatik kapanır. Yalnız A1'i iyi gizlemeniz gerekli. Yoksa demoluktan çıkar.

 

[zamenya]

ilginiz için çok teşekkürler, excelde dört sayfadan veri alıyorum user forma bunu her sayfaya uygulamam mı gerkiyor,Birde mesala şu kadar gününüz aldı diye uyarı verdirebilirmiyiz

 

[leumruk]

ilginiz için çok teşekkürler, excelde dört sayfadan veri alıyorum user forma bunu her sayfaya uygulamam mı gerkiyor,Birde mesala şu kadar gününüz aldı diye uyarı verdirebilirmiyiz

Sub Auto_Open()
[A1] = [A1] + 1
MsgBox "Kalan süreniz: " & 15 - [A1]
If [A1] = 15 Then
MsgBox "Kullanım süreniz dolmuştur."
Application.Quit
ThisWorkbook.Close False
End If
End Sub

Herhangi bir sayfa için kodu düzenlemeniz gerekiyor. Sayfa farketmez. Yalnız. [A1] hücrenizin önüne sayfanızı yazmayı unutmayın.
Kalan süre mesajını ekledim.

 

[zamenya]

sayın leumruk çok teşekkürler yardımınız için

 

[leumruk]

sayın leumruk çok teşekkürler yardımınız için

Rica ederim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Değişik örnek

Sub auto_open()
Dim i As Integer
On Error Resume Next
For i = 2 To Sheets.Count
Sheets(i).Visible = True
If Date > CDate("01/12/2008") Then
Sheets(i).Visible = False
Sheets("demo").Visible = True
Else
Sheets("demo").Visible = False
End If: Next
End Sub

 

[batugul35]

Merhabalar
yukarıdaki kodları sheet1'in vba sayfasına yapıştırıyorum fakat otomatik her açılışta sayıyı 1 arttırmıyor.yardımcı olabilirmisiniz.

 

[zamenya]

niyazi hocam çok teşekkürler ilginiz için,sayın batugül35 kodları sayfa kod bölümüne değil modüle yapıştırıyorsunuz .örnek dosyada gizli demo dosyası sayfası var sayfa gizle gösterden görebilirsiniz

 

[leumruk]

Sub Auto_Open()
[A1] = [A1] + 1
MsgBox "Kalan kullanım hakkınız: " & 15 - [A1]
If [A1] = 15 Or Date > CDate("01/12/2008") Then
MsgBox "Kullanım süreniz dolmuştur."
Application.Quit
ThisWorkbook.Close False
End If
End Sub

Bu da hem sayıya göre hem de tarihe göre demo.
15 kullanım sonra program açılmaz;ya da 15 kullanım dolmamışsa 1 ay sonra program çalışmaz.

 

[zamenya]

sayın leumruk sizin enson verdiğiniz kodu birtürü uyarlayamıyorum bir örnek dosya ekleyebilirmisniz

 

[zamenya]

sayın lemruk sonunda uygulayabildim kodları çok teşekkürler

 

[leumruk]

Sub Auto_Open()
[A1] = [A1] + 1
MsgBox "Kalan kullanım hakkınız: " & 15 - [A1]
If [A1] >= 15 Or Date > CDate("01/01/2009") Then
MsgBox "Kullanım süreniz dolmuştur."
Application.Quit
ThisWorkbook.Close False
End If
End Sub

Küçük bir dikkatsizlik. 2008'i 2009 yapmanız gerekiyor. Ocak ayına gün verelim derken yıl artışını ihmal etmişim.
Ayrıca 15 gün kısmında = yerine büyükeşit kullanmak gerekli, kontrol ederken onu da farkettim. Aksi taktirde, dosya bir defa kapanır. İkincide sayı 16 olacağından açılacaktır.

 

[zamenya]

Sayın lemruk yardımlarınız için gerçekten çok teşekkür ederim bu konudada yardımcı olabilirmisiniz ,Örnek dosyadaki gibi veri sayfasına kopyalanan bilgileri düşey ara formulüyle eşleştirip şirket sorumlularını buluyorum.Bu işlemi makroyla yapabilirmiyim.
2. olarak eşleşen verileri süzüp şirket sorumlularının sayfalarına kendi bayilerini makroyla kopyalayabilirmiyiz

Yardımlarınız İçin şimdiden çok teşekkürler .