KAÇINCI KULLANICI

[turkanet]

belgeyi her açtığımda, bana kaçıncı kez açıldığına istinaden mesela;
"Þu anda 12. kullanıcısınız" diyen msgbox otomatik çıkar mı? ayrı bir modüle mi yazmalıyım, this workbook'a mı?
teşekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=3853&highlight=ka%E7+kez+a%E7%FDld%FD%2A

 

[Mahmut Bayram]

Bir alternatifte benden
Çalışma kitabınızın toplam kaç kere,hangi tarih ve hangi saatte açıldığını gösterir,
This workbook bölümüne;

Private Sub Workbook_Open()
Dim Counter As Long, LastOpen As String, Msg As String

Counter = GetSetting("XYZ Corp", "Budget", "Count", 0)
LastOpen = GetSetting("XYZ Corp", "Budget", "Opened", "")

Msg = "Çalışma kitabı " & Counter & " kere açıldı."
Msg = Msg & vbCrLf & "En son açılış: " & LastOpen
MsgBox Msg, vbInformation, ThisWorkbook.Name

Counter = Counter + 1
LastOpen = Date & " " & Time
SaveSetting "XYZ Corp", "Budget", "Count", Counter
SaveSetting "XYZ Corp", "Budget", "Opened", LastOpen
End Sub

 

[turkanet]

ben şu yöntemi deniyorum ama sonuç alamadım:

Sub auto_open()
[IV65536] = [IV65536] + 1
ActiveWorkbook.Save
End Sub

kodlarıyla bir hücreye numara yazdırıyorum. ve

Sub auto_open ()
sira = [IV65536]
mesaj = "Þu anda" + Str(sira) + ".kullanıcısınız"
MsgBox mesaj
End Sub

kodlarını da aynı modüle ekliyorum. ama iki modül de auto_open olduğundan, ikincisini çalıştırmıyor. en azından ben nedenin bu olduğunu düşünüyorum. kitabı açtığımda otomatik numaratör çalışıyor ama mesaj kutusu ekrana gelmiyor. 2. modül oluşturup onun içine koydum mesaj box'ı ama gene çalışmadı.

nerede hata yapıyorum?

teşekkürler...

 

[Levent Menteşoğlu]

İki ayrı auto open makrosu olmaz ,her iki koduda tek makro içinde toplayın.