Bỏ qua nội dung chính

Làm cách nào để lấy và chèn tên người dùng đã sửa đổi cuối cùng trong Excel?

Bài viết này sẽ chỉ cho bạn cách lấy thông tin tên người dùng được sửa đổi lần cuối và chèn thông tin tên người dùng được sửa đổi lần cuối vào các ô trong Excel.

Lấy tên người dùng được sửa đổi cuối cùng của sổ làm việc hiện tại trong Excel
Chèn tên người dùng được sửa đổi cuối cùng của sổ làm việc hiện tại với chức năng Do người dùng xác định
Dễ dàng chèn tên người dùng vào ô, đầu trang hoặc chân trang với Kutools cho Excel


Lấy tên người dùng được sửa đổi cuối cùng của sổ làm việc hiện tại trong Excel

Như chúng ta đã biết, chúng ta có thể lấy thông tin tên người dùng được sửa đổi lần cuối trong hộp thoại Thuộc tính nâng cao của sổ làm việc hiện tại.

Nếu bạn đang sử dụng Excel 2007

Bạn có thể lấy tên người dùng đã sửa đổi sổ làm việc hiện tại lần cuối trong Excel bằng các bước sau:

Bước 1: Nhấp vào Nút văn phòng >> Chuẩn bị >> Bất động sản.

Bước 2: Sau đó Ngăn Tài liệu được thêm vào trang tính ở trên. Nhấn vào Tài sản Tài sản >> Thuộc tính nâng cao.

Bước 3: Trong hộp thoại Thuộc tính nâng cao bật lên, bạn sẽ thấy Được lưu lần cuối bởi: thông tin dưới Thống kê học tab.

Nếu bạn đang sử dụng phiên bản Excel 2010, 2013 trở lên

Nếu bạn đang sử dụng Microsoft Excel 2010 hoặc phiên bản mới hơn, bạn có thể nhận thông tin người dùng được sửa đổi lần cuối bằng các bước sau:

Chỉ cần nhấp vào Tập tin > Thông tin, bạn sẽ nhận được Sửa đổi lần cuối bởi thông tin ở bên phải dưới Những người liên quan phần. Xem ảnh chụp màn hình sau đây.


Chèn tên người dùng đã sửa đổi sổ làm việc hiện tại lần trước với chức năng Do người dùng xác định

1: Nhấn giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2: Bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun. Xem ảnh chụp màn hìnhL

Mã VBA: Chèn tên người dùng được sửa đổi cuối cùng trong Excel

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

3: Nhấn phím Khác + Q chìa khóa để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

4. Chọn một ô bạn cần để đặt tên người dùng, nhập công thức = LastAuthor () vào Thanh Công thức, rồi nhấn đăng ký hạng mục thi Chìa khóa. Sau đó, tên người dùng được sửa đổi cuối cùng sẽ được chèn vào ô ngay lập tức. Xem ảnh chụp màn hình:


Dễ dàng chèn tên người dùng vào ô, đầu trang hoặc chân trang với Kutools cho Excel

Bạn có thể dễ dàng chèn tên người dùng vào ô được chỉ định, đầu trang hoặc chân trang của trang tính trong Excel với Chèn thông tin sổ làm việc tiện ích của Kutools cho Excel. Hãy làm như sau.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. nhấp chuột Kutools Plus > Bảng tính > Chèn thông tin sổ làm việc. Xem ảnh chụp màn hình:

2. bên trong Chèn thông tin sổ làm việc hộp thoại, bạn cần:

1). Chọn Tên người dùng tùy chọn trong Thông tin phần.

2). Nếu bạn muốn chèn tên người dùng vào một ô được chỉ định, vui lòng chỉ định ô này trong Phạm vi cái hộp; để chèn tên người dùng vào đầu trang hoặc chân trang, vui lòng chọn Tiêu đề or Footer tùy chọn.

3). Nhấn vào Ok cái nút. Xem ảnh chụp màn hình:

Sau đó tên người dùng sẽ được chèn vào vị trí được chỉ định ngay lập tức.

  Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
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