who opened the file Free Excel Macros (VBA) | Excel Programs

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

ThisWorkBook yazılacak. 
'Ayrıca C:acılısarsiv.txt olarak ayrıca txt dosyası oluşturuyor..

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 
 
[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.

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

No	Macro Name
1	txt who opened the file on what date
2	who opened the file
3	Who opened the file 2
4	how many times has the file been opened
5	Search for a text / text in all open Excel files
6	excel operators hk
7	warn if other user is on
8	closed c: est.xls file will be opened and saved after c: userform1.frm is added
9	Open a new file with the "Open File" window
10	type the date of the file and calculate how many days have passed
11	Selecting the file name from the folder
12	Export selected cells to text file
13	image preview in userform
14	a .bat file from a floppy disk
15	do not open excel file after a certain date
16	calculator on / off
17	Add menu to file edit bar delete
18	opening all excel files
19	opens and copies the selected word document
20	floppy disk backup

Excel Free Macros (VBA)

Who Opened The File

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords