Nhờ sửa code tự động điền ngày và khóa vùng dữ liệu đã thực hiện sau khi save (1 người xem)

[YenLV]

Theo nội dung bài trước là tự động điền ngày và khoá vùng dữ liệu đã thực hiện sau khi save nhưng chỉ thực hiện cho 1 sheet giờ em muốn thực hiện trên nhiều sheet. Nhờ anh/chị giúp đỡ

Nhờ các bác giúp code tự động điền ngày (cố định)

Yêu cầu em để trong tệp đính kèm. em cảm ơn!

www.giaiphapexcel.com

 

[Hoàng Tuấn 868]

Yêu cầu em để trong tập đính kèm.

Nếu dùng: "Mong muốn em để trong tập đính kèm" thì mình thử lọ mọ tí, nhưng lại dùng "Yêu cầu" nên tự nhiên lại lười.

 

[YenLV]

Yêu cầu em để trong tập đính kèm.

Nếu dùng: "Mong muốn em để trong tập đính kèm" thì mình thử lọ mọ tí, nhưng lại dùng "Yêu cầu" nên tự nhiên lại lười.

Thật lòng là em có ghi rõ chữ nhờ anh/chị ở trên, còn ở dưới do sơ suất nên dùng ngôn từ chưa đúng ngữ cảnh. Mong anh thông cảm giúp đỡ em ạ, chứ không phải em cố ý sử dụng như vậy

 

[Maika8008]

Theo nội dung bài trước là tự động điền ngày và khoá vùng dữ liệu đã thực hiện sau khi save nhưng chỉ thực hiện cho 1 sheet giờ em muốn thực hiện trên nhiều sheet. Nhờ anh/chị giúp đỡ

Nhờ các bác giúp code tự động điền ngày (cố định)

Yêu cầu em để trong tệp đính kèm. em cảm ơn!

www.giaiphapexcel.com

Trong trang code VBA của ThisWorkbook:

Bạn thay dòng
With Sheets("GPE")

bằng dòng
With ActiveSheet

là sẽ có tác dụng với mọi sheet

 

[YenLV]

Trong trang code VBA của ThisWorkbook:

Bạn thay dòng
With Sheets("GPE")

bằng dòng
With ActiveSheet

là sẽ có tác dụng với mọi sheet

nhờ anh/chị giải thích và sửa giúp em khi em sử dụng code cho sheet khác thi khoá cả sheet luôn (sheet 1,2,3) chứ ko khoá theo hàng có dữ liệu ở cột B (sheet GPE, GPE1, GP2, GP3) như file em gửi kèm ạ, pass "gpe" ạ

 

[Maika8008]

nhờ anh/chị giải thích và sửa giúp em khi em sử dụng code cho sheet khác thi khoá cả sheet luôn (sheet 1,2,3) chứ ko khoá theo hàng có dữ liệu ở cột B (sheet GPE, GPE1, GP2, GP3) như file em gửi kèm ạ, pass "gpe" ạ

Bạn giải thích cho tôi hiểu làm như vậy với mục đích gì không? Vì:
1. Nếu khóa cả sheet thì trước đó dữ liệu là gì? Làm thế nào để nhập thêm được nữa (đã khóa mất rồi)
2. Nếu khóa cả sheet tức là sau đó bạn muốn không được cập nhật gì cả(!). Vậy thì biết lúc nào, bắt đầu từ đâu thì khóa luôn, không cho cập nhật nữa?

 

[YenLV]

Bạn giải thích cho tôi hiểu làm như vậy với mục đích gì không? Vì:
1. Nếu khóa cả sheet thì trước đó dữ liệu là gì? Làm thế nào để nhập thêm được nữa (đã khóa mất rồi)
2. Nếu khóa cả sheet tức là sau đó bạn muốn không được cập nhật gì cả(!). Vậy thì biết lúc nào, bắt đầu từ đâu thì khóa luôn, không cho cập nhật nữa?

Ý em là các sheet 1,2,3 bị lỗi khoá cả sheet ạ bất cập như anh/chị nêu ở trên em không sửa được, em chỉ muốn khoá các hàng mà ở cột B có dữ liệu thôi như ở sheet GP1, GP2, GP3

 

[Maika8008]

Ý em là các sheet 1,2,3 bị lỗi khoá cả sheet ạ bất cập như anh/chị nêu ở trên em không sửa được, em chỉ muốn khoá các hàng mà ở cột B có dữ liệu thôi như ở sheet GP1, GP2, GP3

Bạn chép đoạn này thay cho code cũ trong ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Rws As Long
With ActiveSheet
    Rws = .Range("B60000").End(xlUp).Row
    If Rws > 4 Then
        .Unprotect "gpe"
        .Cells.Locked = False
        .Range("B5:G" & Rws).Locked = True
        .Protect "gpe"
    End If
End With
End Sub