dosya görüntülenme sayacı makro veya benzeri ile

[serkan887]

merhaba arkadaşlar ben yeniyim ve bir sorum olacak. bana şu lazım. officede herhangi bir dosyada bi şablonda kullanıcı dosyayı açtıkça köşeye bi counter koyup her açışında bi fazla numarayla açılmasını sağlamak. yani dosyanın kaç defa açıldığını görebilmek. bunu makro ile nasıl yapabiliriz? bi fikri olan varmı yada bunu yapmanın başka bi yolu?office belgesinin içine gömülü olacak ama.

 

[spilavci]

Umarım işinize yarar.

Notosya benim hazırladığım bir dosya değildir.Nisan ayında bir siteden indirmiştim.

 

[serkan887]

çok teşekkür ederim. bunun sadece kodunu yollasanda olurdu. ama böyle daha ii olmuş. nasıl görüneceğini biliyorum artık en azından



yanlız bu kod kilitli yenibir dokumana aktaramıyorum? bunun kod halinde olanı varsa çok ii olurdu.

 

[tarkan_tok]

Kadife Diyor Ki!

Arkadaşlar dosyanın kaç kere açıldığı olayının kodunu bize sunabilme imkanınız var mı?

Ayrıca sadece excel değil bu olayı diğer ofis dosyalarının kaç kere açıldığımı bulmada da kullanabilir miyiz?

Saygılarımla...

 

[excellium]

bu dosyanın kaç kere açıldığına ilişkin kodu görmek istiyorum arkadaşlar.

(talep çokluğu olsun diye yazdım )

 

[excellium]

denemedim ama belki şunu yapabiliriz

[vb:1:ca2c9c77f7]Sub auto_open()
a = Sayfa1.Range("a1").Value
msg = MsgBox ( "dosya " & a & " kere açıldı")
End Sub

Sub auto_close()
Sayfa1.Range("a1").Value = Sayfa1.Range("a1").Value + 1
End Sub[/vb:1:ca2c9c77f7]

 

[dEdE]

Merhabalar,

Sub auto_open()
Worksheets("Sayfa1").Range("A1") = Worksheets("Sayfa1").Range("A1") + 1
End Sub

Yukarıdaki kod denendi ve çalışıyor. Saygılar.

 

[excellium]

ben de benimkini şimdi denedim, çalışıyor, :hihoho:

iyi çalışmalar