Loncat ke daftar isi utama

Bagaimana cara mendapatkan dan memasukkan nama pengguna yang diubah terakhir di Excel?

Artikel ini akan menunjukkan kepada Anda cara untuk mendapatkan informasi nama pengguna yang terakhir diubah, dan memasukkan informasi nama pengguna yang terakhir diubah ke dalam sel di Excel.

Dapatkan nama pengguna terakhir dari buku kerja saat ini di Excel
Masukkan nama pengguna terakhir yang dimodifikasi dari buku kerja saat ini dengan fungsi yang ditentukan pengguna
Masukkan nama pengguna dengan mudah di sel, header atau footer dengan Kutools for Excel


Dapatkan nama pengguna terakhir dari buku kerja saat ini di Excel

Seperti yang kita ketahui, kita bisa mendapatkan informasi nama pengguna yang dimodifikasi terakhir di kotak dialog Properti Tingkat Lanjut dari buku kerja saat ini.

Jika Anda menggunakan Excel 2007

Anda bisa mendapatkan nama pengguna yang mengubah buku kerja saat ini terakhir kali di Excel dengan langkah-langkah berikut:

Langkah 1: Klik Tombol Kantor >> Mempersiapkan >> Properties.

Langkah 2: Kemudian Panel Dokumen ditambahkan di atas lembar kerja. Klik Properti Dokumen >> Sifat lanjutan.

Langkah 3: Pada kotak dialog Advanced Properties yang muncul, Anda akan melihat file Terakhir Disimpan oleh: informasi di bawah statistika Tab.

Jika Anda menggunakan Excel 2010, 2013 atau versi yang lebih baru

Jika Anda menggunakan Microsoft Excel 2010 atau versi yang lebih baru, Anda bisa mendapatkan informasi pengguna yang terakhir diubah dengan langkah-langkah berikut:

Cukup klik File > Info, Anda akan mendapatkan Terakhir Diubah oleh informasi di sisi kanan bawah Orang Terkait bagian. Lihat screen shot berikut ini.


Masukkan nama pengguna yang mengubah buku kerja saat ini terakhir kali dengan fungsi yang ditentukan pengguna

1: Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2: Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, dan tempelkan makro berikut di jendela modul. Lihat screenshotL

Kode VBA: Masukkan nama pengguna yang terakhir diubah di Excel

Function LastAuthor()
LastAuthor = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
End Function

3: Tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

4. Pilih sel yang Anda butuhkan untuk menempatkan nama pengguna, masukkan rumus = LastAuthor () ke dalam Formula Bar, lalu tekan Enter kunci. Kemudian nama pengguna yang terakhir diubah segera dimasukkan ke dalam sel. Lihat tangkapan layar:


Masukkan nama pengguna dengan mudah di sel, header atau footer dengan Kutools for Excel

Anda dapat dengan mudah memasukkan nama pengguna di sel tertentu, header atau footer lembar kerja di Excel dengan ekstensi Masukkan Informasi Buku Kerja kegunaan Kutools untuk Excel. Silakan lakukan sebagai berikut.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. klik Kutools Ditambah > Buku catatan > Masukkan Informasi Buku Kerja. Lihat tangkapan layar:

2. Dalam Masukkan Informasi Buku Kerja kotak dialog, Anda perlu:

1). Pilih user name pilihan dalam Informasi bagian.

2). Jika Anda ingin memasukkan nama pengguna ke dalam sel tertentu, harap tentukan sel ini di Jarak kotak; untuk memasukkan nama pengguna ke dalam header atau footer, silakan pilih Header or Footer .

3). Klik Ok tombol. Lihat tangkapan layar:

Kemudian nama pengguna akan segera dimasukkan ke posisi yang ditentukan.

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can the Activeworkbook be dynamic?

I tried to no success the below code

LastSavedby = Range("A1").value.BuiltinDocumentProperties("Last Author")

Where in A1 contains the path of the file with the file name and extension
This comment was minimized by the moderator on the site
Hi! I, my case it doesn't work automatically, I need to press "enter" after the formula "= VBAProject.Module3.LastAuthor()".
How should i make it automatic?
Thank you
This comment was minimized by the moderator on the site
Hey, this code worked nicely. Is there a way I can display the user name if a ROW is adjusted? For example, I hhave Column K with the header "Last modified By", and I want to know who adjusted "each row" as this is a shared document. I have the below code for Date, which works like how I would want the name to work: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 11 Or Target.Row = 1 Then Exit Sub Application.EnableEvents = False Cells(Target.Row, 12) = Now Application.EnableEvents = True End Sub Please email me if possible
This comment was minimized by the moderator on the site
Hi. I would like to ask how to write the VBA codes to retrieve all current users which modifying on the worksheet. Thank You:)
This comment was minimized by the moderator on the site
thanks a lot for this helpful article. I used it and it worked well. can I get the last modified date on that sheet just like the username ? MANY THANKS
This comment was minimized by the moderator on the site
Can u pls help if iwant the user name to appear in aspreadsheet as and when the previous cell is filled by a user
This comment was minimized by the moderator on the site
Thanks, Cp & Jay Chivo :)
This comment was minimized by the moderator on the site
Sub UserName() Sheets("Sheet1").Range("A1").Value = Environ("username") End Sub --------------- Change the sheet name
This comment was minimized by the moderator on the site
I am runing excel 2007 and am getting the runtime error 9, script out of range as well. any way to make it work in excel 2007?
This comment was minimized by the moderator on the site
Excel 2010. Same time i would like to ask that is it possible to use this Subscript with another function script ? Thanks Naghman
This comment was minimized by the moderator on the site
[quote]Excel 2010. Same time i would like to ask that is it possible to use this Subscript with another function script ? Thanks NaghmanBy Naghman[/quote] With another script? What script? :-)
This comment was minimized by the moderator on the site
To get last saved date. Function LastSaveDate() Application.Volatile True LastSaveDate = FileDateTime(ThisWorkbook.FullName) End Function
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations