Who opened the file 2 Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

Sanırım Dosyanız Çok gizli olsa gerek..Dosyanızda silinme riskini düşünerek bu kodlara ihtiyaç duyduğunuzu umarım.Yoksa Bilgilerinizi makrolarınızı sizde paylaşmak istersiniz..Neyse aşağıdaki kod tam çözüm olmamakla birlikte bu kodlar ThisWorkBook yazılacak. 
.Ayrıca C:acılısarsiv.txt olarak ayrıca txt dosyası oluşturuyor..

Kod: 
Private Sub Workbook_Open() 
Dim Counter As Long, LastOpen As String, Msg As String 
LastOpen = GetSetting("xxrt", "Dosya", "Opened", "") 
[a1] = "En son açılış tarihi: " & LastOpen 
[a2] = "Dosyayı en son açan kullanıcı: " & Application.UserName 
LastOpen = Date & " " & Time 
SaveSetting "xxrt", "Dosya", "Opened", LastOpen 
Dim LastRowA As Integer 
Dim veri1 As String 
Dim veri2 As String 
Dim i As Integer 
Open "C:acılısarsiv.txt" For Output As #1 
LastRowA = Cells(65536, 1).End(xlUp).Row 
For i = 1 To LastRowA 
veri1 = Cells(i, 1).Text 
veri2 = Cells(i, 2).Text 
Print #1, veri1; " "; veri2; 
Next i 
Close #1 'C Klasöründe txt hazırladı 
'enson açan kişinin yazılı bulunduğuSayfa1 a1 ve a2 deki verileri siler.. 
'eğer Sayfa1'de silmesini istemezseniz aşağıdakileri silin. 
Sheets("Sayfa1").Select 
Range("A1:A2").Select 
    Selection.ClearContents 
    Range("A1").Select 
End Sub

Mesaj olarakta 
Kod: 
[a1] = "En son açılış tarihi: " & LastOpen 
[a2] = "Dosyayı en son açan kullanıcı: " & Application.UserName

Kodlarının altına bunları yazın.Kod:

MsgBox "En son açılış tarihi: " & LastOpen 
MsgBox "Dosyayı en son açan kullanıcı: " & Application.UserName

No	Macro Name
1	Who opened the file 2
2	txt who opened the file on what date
3	who opened the file
4	excel operators hk
5	Search for a text / text in all open Excel files
6	how many times has the file been opened
7	gathering multiple names under one name with spending
8	automatic image fetch
9	type the date of the file and calculate how many days have passed
10	Export selected cells to text file
11	userform perfect opening effect
12	creates a copy of the book by deleting userformmodulclass
13	lists all macros in macros in excel files in a folder of your choice
14	a .bat file from a floppy disk
15	calculator on / off
16	mp3 file playback
17	Add menu to file edit bar delete
18	Calculate the duration of the mp3 file (type the file path and select that cell)
19	shows all drivers
20	show driver ready

Excel Free Macros (VBA)

Who Opened The File 2

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords