Code khóa dữ liệu (1 người xem)

[letinnghia]

Chào các anh chị và các bạn GPE!
Mình đang có 1 file excel rất nhiều người sử dụng nên nhờ các anh chị và các bạn giúp giùm.
1. Sau khi nhập dữ liệu vào một ô(cell) bất kì thì ô đó sẽ khóa lại không cho sữa cũng như xóa(Có Password mới được sữa và xóa)
2. Những ô không có dữ liệu thì vẫn được nhập bình thường.
3. Cột B và F là chọn dữ liệu.
4. Vùng cần áp dụng là từ cột A trở xuống
Chân thành cảm ơn

 

[huuthang_bd]

Chào các anh chị và các bạn GPE!
Mình đang có 1 file excel rất nhiều người sử dụng nên nhờ các anh chị và các bạn giúp giùm.
1. Sau khi nhập dữ liệu vào một ô(cell) bất kì thì ô đó sẽ khóa lại không cho sữa cũng như xóa(Có Password mới được sữa và xóa)
2. Những ô không có dữ liệu thì vẫn được nhập bình thường.
3. Cột B và F là chọn dữ liệu.
4. Vùng cần áp dụng là từ cột A trở xuống
Chân thành cảm ơn

Chọn hết các ô, Chuột phải chọn Formats Cells (Ctrl + 1)
Chọn Tab Protection
Bỏ chọn Locked, Click OK
Protect sheet với password bạn muốn (Tôi ví dụ là 1)
Copy Code bên dưới vào Sheet. Thay số 1 bằng password của bạn nếu password của bạn không phải là 1.

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Unprotect Password:="1"
    Target.Locked = True
Me.Protect Password:="1"
End Sub

Đây là file tôi đã làm sẵn.

 

[letinnghia]

Chọn hết các ô, Chuột phải chọn Formats Cells (Ctrl + 1)
Chọn Tab Protection
Bỏ chọn Locked, Click OK
Protect sheet với password bạn muốn (Tôi ví dụ là 1)
Copy Code bên dưới vào Sheet. Thay số 1 bằng password của bạn nếu password của bạn không phải là 1.

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Unprotect Password:="1"
    Target.Locked = True
Me.Protect Password:="1"
End Sub

Đây là file tôi đã làm sẵn.

Cảm ơn bạn nhiều.
Có 1 vấn đề nhờ bạn xem lại dùm là code khóa toàn bộ các vùng của sheet. Mình có thử chọn một số cột để khóa nhưng không được.
Cảm ơn bạn nhiều

 

[chuot0106]

Cảm ơn bạn nhiều.
Có 1 vấn đề nhờ bạn xem lại dùm là code khóa toàn bộ các vùng của sheet. Mình có thử chọn một số cột để khóa nhưng không được.
Cảm ơn bạn nhiều

Bạn đọc thật kỹ các bước mà anh Thắng đã hướng dẫn nhé! Tôi đảm bảo là được!

 

[letinnghia]

Bạn đọc thật kỹ các bước mà anh Thắng đã hướng dẫn nhé! Tôi đảm bảo là được!

Mình đã làm đúng như các bước như bài #2 đã hướng dẫn, sau khi bỏ code vào thì toàn bộ bản tính đều có Password cả.
Trình tự mình làm như sau:
1. Chọn Vùng cần đặt password, ví dụ: A4:A10; C4:C10
2. Vào Format cell chọn thẻ Protection sau đó bỏ dấu check ở ô Locked
3. Vào thẻ REVIEW chọn Protect Sheet và đặt password là 1
4. Copy code bài #2 sau đó vào bảng tính Excel chọn thẻ DEVELOPER past vào sheet cần đặt password
5. Quay ra bảng tính excel thì tất cả các vùng đều bị khóa
Các bước mình làm có chổ nào sai nhờ bạn chỉ lại dùm mình.
Chân thành cảm ơn

 

[chuot0106]

Mình đã làm đúng như các bước như bài #2 đã hướng dẫn, sau khi bỏ code vào thì toàn bộ bản tính đều có Password cả.
Trình tự mình làm như sau:
1. Chọn Vùng cần đặt password, ví dụ: A4:A10; C4:C10
2. Vào Format cell chọn thẻ Protection sau đó bỏ dấu check ở ô Locked
3. Vào thẻ REVIEW chọn Protect Sheet và đặt password là 1
4. Copy code bài #2 sau đó vào bảng tính Excel chọn thẻ DEVELOPER past vào sheet cần đặt password
5. Quay ra bảng tính excel thì tất cả các vùng đều bị khóa
Các bước mình làm có chổ nào sai nhờ bạn chỉ lại dùm mình.
Chân thành cảm ơn

Tôi thấy gần như sai hết. Bạn cứ đọc thật kĩ bài hướng dẫn của huuthang lại lần cuối cùng và làm lại nhé. Nếu không được nữa ta tính tiếp.

 

[chuot0106]

Bạn đọc kĩ từng chữ 1 nhé:

Chọn hết các ô, Chuột phải chọn Formats Cells (Ctrl + 1)
Chọn Tab Protection
Bỏ chọn Locked, Click OK
Protect sheet với password bạn muốn (Tôi ví dụ là 1)
Copy Code bên dưới vào Sheet. Thay số 1 bằng password của bạn nếu password của bạn không phải là 1.

Nhất là phần tôi tô màu đỏ nhé!

 

[phucbugis]

Chào các anh chị và các bạn GPE!
Mình đang có 1 file excel rất nhiều người sử dụng nên nhờ các anh chị và các bạn giúp giùm.
1. Sau khi nhập dữ liệu vào một ô(cell) bất kì thì ô đó sẽ khóa lại không cho sữa cũng như xóa(Có Password mới được sữa và xóa)
2. Những ô không có dữ liệu thì vẫn được nhập bình thường.
3. Cột B và F là chọn dữ liệu.
4. Vùng cần áp dụng là từ cột A trở xuống
Chân thành cảm ơn

bạn tham khảo thêm link sau: Xin chỉ giáo một chút vấn đề về bảo mật trong Excel 2010 (#5)

 

[huuthang_bd]

Mình đã làm đúng như các bước như bài #2 đã hướng dẫn, sau khi bỏ code vào thì toàn bộ bản tính đều có Password cả.
Trình tự mình làm như sau:
1. Chọn Vùng cần đặt password, ví dụ: A4:A10; C4:C10
2. Vào Format cell chọn thẻ Protection sau đó bỏ dấu check ở ô Locked
3. Vào thẻ REVIEW chọn Protect Sheet và đặt password là 1
4. Copy code bài #2 sau đó vào bảng tính Excel chọn thẻ DEVELOPER past vào sheet cần đặt password
5. Quay ra bảng tính excel thì tất cả các vùng đều bị khóa
Các bước mình làm có chổ nào sai nhờ bạn chỉ lại dùm mình.
Chân thành cảm ơn

Bạn gửi file mà bạn đã làm nhưng tất cả các ô đều bị khóa lên tôi xem xem sai chỗ nào.
P/S: Gửi kèm Password nếu có.

 

[letinnghia]

Bạn gửi file mà bạn đã làm nhưng tất cả các ô đều bị khóa lên tôi xem xem sai chỗ nào.
P/S: Gửi kèm Password nếu có.

Cảm ơn bạn đã nhiệt tình giúp đỡ.
Các cột có màu hồng sau khi nhập vào là không sử được(Có password thì sửa được)
Các cell còn lại nhập sửa tự do
và toàn bộ bảng tính là tự động chữ in hoa
Password:1
Cảm ơn bạn nhiều

 

[Quang_Hải]

Cảm ơn bạn đã nhiệt tình giúp đỡ.
Các cột có màu hồng sau khi nhập vào là không sử được(Có password thì sửa được)
Các cell còn lại nhập sửa tự do
và toàn bộ bảng tính là tự động chữ in hoa
Password:1
Cảm ơn bạn nhiều

Thử file xem sao. Không có code tự động viết hoa nha

 

[letinnghia]

Thử file xem sao. Không có code tự động viết hoa nha

Cảm ơn bạn nhiều.
Nếu được nhờ bạn giúp dùm mình đoạn code tự động đổi chữ thừơng sang chữ in hoa.
Thành thật cảm ơn

 

[thangteotdtt]

Bạn dùng chức năng tìm kiếm của diễn đàn: Đổi chữ thường sang chữ in hoa, có nhiều lắm đó bạn
VD như Add Ins: http://www.giaiphapexcel.com/forum/...hoa-chữ-thường-(giống-trong-Word-ấn-Shift-F3)

 

[thangteotdtt]

Gữi nhằm 2 bài, xóa dùm em bài này

 

[letinnghia]

Bạn dùng chức năng tìm kiếm của diễn đàn: Đổi chữ thường sang chữ in hoa, có nhiều lắm đó bạn
VD như Add Ins: http://www.giaiphapexcel.com/forum/...hoa-chữ-thường-(giống-trong-Word-ấn-Shift-F3)

Có lẽ bạn đã hiểu nhầm ý của mình rồi. Không phải dữ liệu có sẵn dùng add-in đổi chữ thường sang chữ in hoa mà là trong bảng tính excel sau khi mình enter thì chữ thường đổi sang chữ in hoa đó bạn.

 

[chuot0106]

Có lẽ bạn đã hiểu nhầm ý của mình rồi. Không phải dữ liệu có sẵn dùng add-in đổi chữ thường sang chữ in hoa mà là trong bảng tính excel sau khi mình enter thì chữ thường đổi sang chữ in hoa đó bạn.

Thử đoạn code sau xem sao:

'---------------------Chuot0106---------------------


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
If Not Intersect(Target, [A1:IV65500]) Is Nothing Then
    If Target <> "" Then
        Target.Value = UCase(Target)
    End If
End If
Application.EnableEvents = True
End Sub

 

[chuot0106]

Xem thêm File nhé..................!

 

[letinnghia]

Xem thêm File nhé..................!

Cảm ơn bạn.
Bài #11 bạn quanghai1969 có viết cho mình 1 đoạn code.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Union([B2:B100], [E2:E100], [H2:H100], [K2:K100], [M2:M100])
If Not Intersect(Target, rng) Is Nothing Then
If Target <> "" Then
Me.Unprotect Password:="1"
Target.Locked = True
Me.Protect Password:="1"
End If
End If
End Sub
Đoạn code này đang chạy rất tốt
Mình copy đoạn code đổi chữ thuòng sang chữ IN HOA của bạn bỏ tiếp theo đoạn code của bạn quanghai1969 thì đoạn coade báo lỗi.
Tổng hợp 2 đoạn code như sau:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Union([B4:B300], [F4:G300], [I4:J300], [L4:M300])
If Not Intersect(Target, rng) Is Nothing Then
If Target <> "" Then
Me.Unprotect Password:="1"
Target.Locked = True
Me.Protect Password:="1"
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
On Error Resume Next
If Not Intersect(Target, [A1:IV65500]) Is Nothing Then
If Target <> "" Then
Target.Value = UCase(Target)
End If
End If
Application.EnableEvents = True

End Sub
Nhờ bạn xem cần phải chỉnh sửa chổ nào thì code sẽ chạy được.
cảm ơn bạn nhé

 

[thangteotdtt]

Bạn chỉ chọn được 1 trong 2 đoạn code trên thôi, không thể sử dụng 1 sheet mà 2 Private Sub Worksheet_Change(ByVal Target As Range) được.

 

[letinnghia]

Bạn chỉ chọn được 1 trong 2 đoạn code trên thôi, không thể sử dụng 1 sheet mà 2 Private Sub Worksheet_Change(ByVal Target As Range) được.

Không có cách nào khác để 2 code đó chạy được hả bạn, vì 2 code này mình cần sử dụng lắm.

 

[thangteotdtt]

Không có cách nào khác để 2 code đó chạy được hả bạn, vì 2 code này mình cần sử dụng lắm.

Bạn muốn vùng nào thành chữ hoa hay là hết bảng tính thành chữ hoa vậy bạn.

 

[letinnghia]

Bạn muốn vùng nào thành chữ hoa hay là hết bảng tính thành chữ hoa vậy bạn.

Bạn cho mình tất cả bảng tính là chữ hoa
cảm ơn bạn

 

[thangteotdtt]

Nếu toàn bộ bảng tính thì bạn dùng code này

Sub chuyenchu()
Dim Rng As Range
Dim c As Range
On Error Resume Next
Set Rng = Cells.SpecialCells(xlCellTypeConstants, 2)
For Each c In Rng
c.Value = UCase(c.Value)
Next c
End Sub

Nếu 1 vùng nào đó thì chọn code này, vd tôi chọn vùng A1:A10

Sub chuyenchu()
Dim Rng As Range
Dim c As Range
On Error Resume Next
Set Rng = Range("A1:A10")
For Each c In Rng
c.Value = UCase(c.Value)
Next c
End Sub

 

[chuot0106]

Không có cách nào khác để 2 code đó chạy được hả bạn, vì 2 code này mình cần sử dụng lắm.

Tôi không ghép được 2 đoạn code đó với nhau, tôi tạm khắc phục như sau: Cho code đổi chữ thường sang chữ hoa vào modul1 sau đó tạo nút liên kết với code này có tên là "CHUYEN CHU HOA" khi muốn chuyển toàn bộ bảng tính sang chữ hoa thì bấm nút này cũng nhanh thôi!

 

[huuthang_bd]

Cảm ơn bạn đã nhiệt tình giúp đỡ.
Các cột có màu hồng sau khi nhập vào là không sử được(Có password thì sửa được)
Các cell còn lại nhập sửa tự do
và toàn bộ bảng tính là tự động chữ in hoa
Password:1
Cảm ơn bạn nhiều

Bạn đã không làm đúng theo hướng dẫn của tôi. Có lẽ là sai bước này:
Bỏ chọn Locked, Click OK

 

[Quang_Hải]

Cảm ơn bạn nhiều.
Nếu được nhờ bạn giúp dùm mình đoạn code tự động đổi chữ thừơng sang chữ in hoa.
Thành thật cảm ơn

Tính để cho bạn tự nghiên cứu nhưng có lẻ phải hỗ trợ bạn thôi
Thay code này vào sẽ được

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Union([B2:B100], [E2:E100], [H2:H100], [K2:K100], [M2:M100])
Application.EnableEvents = False
If Not Intersect(Target, rng) Is Nothing Then
   If Target <> "" Then
      Me.Unprotect Password:="1"
         Target = UCase(Target)
         Target.Locked = True
      Me.Protect Password:="1"
   End If
Else
   Target = UCase(Target)
End If
Application.EnableEvents = True
End Sub

 

[chuot0106]

Tính để cho bạn tự nghiên cứu nhưng có lẻ phải hỗ trợ bạn thôi
Thay code này vào sẽ được

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Union([B2:B100], [E2:E100], [H2:H100], [K2:K100], [M2:M100])
Application.EnableEvents = False
If Not Intersect(Target, rng) Is Nothing Then
   If Target <> "" Then
      Me.Unprotect Password:="1"
         Target = UCase(Target)
         Target.Locked = True
      Me.Protect Password:="1"
   End If
Else
   Target = UCase(Target)
End If
Application.EnableEvents = True
End Sub

Code này là chưa đúng ý tác giả đâu anh ạ! Lúc đầu em cũng dựa theo code của anh và viết giống như code bài này của anh! Nhưng khi định gửi bài lại thấy tác giả yêu cầu phải viết hoa hết cả bảng tính nên em lại thôi không gửi nữa và bày cho tác giả 1 cách đó là đưa code chuyển chữ hoa sang modun, chứ không đưa vào sự kiện change nữa.

 

[thangteotdtt]

Code này là chưa đúng ý tác giả đâu anh ạ! Lúc đầu em cũng dựa theo code của anh và viết giống như code bài này của anh! Nhưng khi định gửi bài lại thấy tác giả yêu cầu phải viết hoa hết cả bảng tính nên em lại thôi không gửi nữa và bày cho tác giả 1 cách đó là đưa code chuyển chữ hoa sang modun, chứ không đưa vào sự kiện change nữa.

Tôi thấy đúng mà bạn chuot0106.

 

[Quang_Hải]

Code này là chưa đúng ý tác giả đâu anh ạ! Lúc đầu em cũng dựa theo code của anh và viết giống như code bài này của anh! Nhưng khi định gửi bài lại thấy tác giả yêu cầu phải viết hoa hết cả bảng tính nên em lại thôi không gửi nữa và bày cho tác giả 1 cách đó là đưa code chuyển chữ hoa sang modun, chứ không đưa vào sự kiện change nữa.

Đọc code thì cũng thấy là sẽ viết hoa cả bảng tính rồi mà. Chắc là chưa thử kỹ chứ gì.
Cái chỗ Else đó là viết hoa cho vùng bên ngoài khu vực cấm

 

[chuot0106]

Đọc code thì cũng thấy là sẽ viết hoa cả bảng tính rồi mà. Chắc là chưa thử kỹ chứ gì.
Cái chỗ Else đó là viết hoa cho vùng bên ngoài khu vực cấm

Không phải là chưa thử kĩ mà là chưa đọc hết code đã kết luận bừa rồi. Thành thật xin lỗi anh Hải!

 

[letinnghia]

Tôi thấy đúng mà bạn chuot0106.

Cảm ơn bạn thangteotdtt nhiều và chân thành cảm ơn các bạn khác đã nhiệt tình giúp đỡ tôi trong vấn đề mà tôi đang gặp khó.

 

[thangteotdtt]

Cảm ơn bạn thangteotdtt nhiều và chân thành cảm ơn các bạn khác đã nhiệt tình giúp đỡ tôi trong vấn đề mà tôi đang gặp khó.

Người mà bạn nên cảm ơn nhiều là Anh Hải bạn à. Tôi thấy bạn tham gia diễn đàn chắc đây là lần đầu tiên với bạn. Góp ý nho nhỏ với bạn nhé. Cho dù tham gia diễn đàn nào đi nữa, diễn dàn nào cũng vậy đã là thành viên với nhau thì xem như là người bạn thăm tình, có ai đó trả lời bài cho mình, song nói lời cảm ơn chưa đủ, mình nên bấm vào nút cảm ơn thành viên đó như vậy để tỏa lòng cảm ơn đó bạn. Còn nữa nếu có dịp chúng ta gặp nhau ngoài đời, uống 1 ly cà phê gặp gỡ trao đổi trò chuyện chơi, cảm thấy chưa đã thì mời 1 ly bia cho sản khoái, nói vậy không lẽ uống 1 ly.
VD như trong hình.
Chúc bạn vui

 

[letinnghia]

Người mà bạn nên cảm ơn nhiều là Anh Hải bạn à. Tôi thấy bạn tham gia diễn đàn chắc đây là lần đầu tiên với bạn. Góp ý nho nhỏ với bạn nhé. Cho dù tham gia diễn đàn nào đi nữa, diễn dàn nào cũng vậy đã là thành viên với nhau thì xem như là người bạn thăm tình, có ai đó trả lời bài cho mình, song nói lời cảm ơn chưa đủ, mình nên bấm vào nút cảm ơn thành viên đó như vậy để tỏa lòng cảm ơn đó bạn. Còn nữa nếu có dịp chúng ta gặp nhau ngoài đời, uống 1 ly cà phê gặp gỡ trao đổi trò chuyện chơi, cảm thấy chưa đã thì mời 1 ly bia cho sản khoái, nói vậy không lẽ uống 1 ly.
VD như trong hình.
View attachment 126146Chúc bạn vui

Mình ghi nhận góp ý chân tình của bạn.
Cảm ơn bạn đã góp ý

 

[letinnghia]

Tính để cho bạn tự nghiên cứu nhưng có lẻ phải hỗ trợ bạn thôi
Thay code này vào sẽ được

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Union([B2:B100], [E2:E100], [H2:H100], [K2:K100], [M2:M100])
Application.EnableEvents = False
If Not Intersect(Target, rng) Is Nothing Then
   If Target <> "" Then
      Me.Unprotect Password:="1"
         Target = UCase(Target)
         Target.Locked = True
      Me.Protect Password:="1"
   End If
Else
   Target = UCase(Target)
End If
Application.EnableEvents = True
End Sub

Code có vấn đề rồi anh quanghai1969 ơi, nhờ anh và các bạn nghiêng cứu tiếp dùm mình.
1. Khi mình chọn những cell (02 cell tở lên) ở vùng được sữa và mình xóa thì code báo lỗi và khi đó những cell không được sữa không còn hiệu lực
2. Các cột G, J, L định dạng ngày tháng là dd/MM/yyyy nhưng tự động đổi thành mm/dd/yyyy chỉ bị từ ngày 1đến 12 thôi.
Các bạn xem giúp mình chổ này nhé.
Cảm ơn nhiều

 

[Quang_Hải]

Code có vấn đề rồi anh quanghai1969 ơi, nhờ anh và các bạn nghiêng cứu tiếp dùm mình.
1. Khi mình chọn những cell (02 cell tở lên) ở vùng được sữa và mình xóa thì code báo lỗi và khi đó những cell không được sữa không còn hiệu lực
2. Các cột G, J, L định dạng ngày tháng là dd/MM/yyyy nhưng tự động đổi thành mm/dd/yyyy chỉ bị từ ngày 1đến 12 thôi.
Các bạn xem giúp mình chổ này nhé.
Cảm ơn nhiều

Thử thế này xem sao. Không hiểu vấn đề thứ 2 nên chưa biết xử thế nào

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Union([B2:B100], [E2:E100], [H2:H100], [K2:K100], [M2:M100])
If Selection.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, rng) Is Nothing Then
   If Target <> "" Then
      Me.Unprotect Password:="1"
         Target = UCase(Target)
         Target.Locked = True
      Me.Protect Password:="1"
   End If
Else
   Target = UCase(Target)
End If
Application.EnableEvents = True
End Sub

 

[Cá ngừ F1]

Code có vấn đề rồi anh quanghai1969 ơi, nhờ anh và các bạn nghiêng cứu tiếp dùm mình.
1. Khi mình chọn những cell (02 cell tở lên) ở vùng được sữa và mình xóa thì code báo lỗi và khi đó những cell không được sữa không còn hiệu lực
2. Các cột G, J, L định dạng ngày tháng là dd/MM/yyyy nhưng tự động đổi thành mm/dd/yyyy chỉ bị từ ngày 1đến 12 thôi.
Các bạn xem giúp mình chổ này nhé.
Cảm ơn nhiều

Nội dung 2: Dữ liệu của bạn có phải import trực tiếp từ dữ liệu khác? Ko phải là copy/paste vào?

 

[letinnghia]

Nội dung 2: Dữ liệu của bạn có phải import trực tiếp từ dữ liệu khác? Ko phải là copy/paste vào?

Không import mà là mình gõ vào. Chỉ có sheet Data bị thôi, các sheet khác vẫn bình thường.

 

[Cá ngừ F1]

Trước tôi có dùng Code của thầy NDU để import dữ liệu về thì bị lỗi y như bạn, ngày từ 1 -> 12 bị đổi ngược lại.
Bạn có thể tham khảo topic này http://www.giaiphapexcel.com/forum/showthread.php?90458-Định-dạng-ngày-tháng-năm&highlight=
Sau đó code được các thầy chỉnh sửa lại thì các định dạng đã đúng..
Bạn thử tham khảo topic trên xem sao?
Nếu có thể copy sang 1 Data mới hoàn toàn rồi nhập lại xem..

 

[letinnghia]

Thử thế này xem sao. Không hiểu vấn đề thứ 2 nên chưa biết xử thế nào

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Union([B2:B100], [E2:E100], [H2:H100], [K2:K100], [M2:M100])
If Selection.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, rng) Is Nothing Then
   If Target <> "" Then
      Me.Unprotect Password:="1"
         Target = UCase(Target)
         Target.Locked = True
      Me.Protect Password:="1"
   End If
Else
   Target = UCase(Target)
End If
Application.EnableEvents = True
End Sub

Cảm ơn bạn.
Code của bạn thì khi xóa các vùng không bị khóa từ 02 cell trở lên thì không còn báo lỗi nữa tuy nhiên vẫn còn trường hợp format ngày không đúng như mình nêu bên trên, nhờ bạn cố gắng nghiêng giúp mình.
À mình tạo trên file mới vẫn bị sai format ngày như hiện tại(Chưa bỏ code vào thì định dạng ngày là dd/mm/yyyy sau khi bỏ code vào thì định dạng mm/dd/yyyy bị từ ngày 1 đến 12.
cảm ơn bạn

 

[Quang_Hải]

Cảm ơn bạn.
Code của bạn thì khi xóa các vùng không bị khóa từ 02 cell trở lên thì không còn báo lỗi nữa tuy nhiên vẫn còn trường hợp format ngày không đúng như mình nêu bên trên, nhờ bạn cố gắng nghiêng giúp mình.
À mình tạo trên file mới vẫn bị sai format ngày như hiện tại(Chưa bỏ code vào thì định dạng ngày là dd/mm/yyyy sau khi bỏ code vào thì định dạng mm/dd/yyyy bị từ ngày 1 đến 12.
cảm ơn bạn

Trên máy mình không bị gì cả

 

[letinnghia]

Trên máy mình không bị gì cả

Mình đang sử dụng Win 8.1 Office 2013 có khi nào đây là nguyên nhân không bạn quanghai1969.
Chưa bỏ code vào thì không có vấn đề, sau khi bỏ code vào thì xãy ra hiện tượng này.

 

[Quang_Hải]

Mình đang sử dụng Win 8.1 Office 2013 có khi nào đây là nguyên nhân không bạn quanghai1969.
Chưa bỏ code vào thì không có vấn đề, sau khi bỏ code vào thì xãy ra hiện tượng này.

Mình không hiểu nhưng cảm giác hơi vô lý. Thôi chờ đợi xem có anh chị nào biết không nha.
Chúc may mắn

 

[diemhuyenanh]

mình cũng win 8.1 office 15 nhưng chăng có làm sao cả

 

[diemhuyenanh]

mình cũng win 8.1 office 15 nhưng chăng có làm sao cả

 

[letinnghia]

Mình không hiểu nhưng cảm giác hơi vô lý. Thôi chờ đợi xem có anh chị nào biết không nha.
Chúc may mắn[/QUOTE
Anh quanghai1969, hôm nay mình làm như vầy thì không bị đảo định dạng ngày tháng dd/mm/yyyy==>mm/dd/yyyy
1. Vào Control Panel
2. Vào Region(Win 8) Win 7 hình như là chữ regional language
3. Chọn Tab formats==>Additional settings...==>chọn Tab Date trong phần Date format chọn Short date: MM/dd/yyyy Long date: MM/dd/yyyy thì kết quả trong file excel của mình là không bị đảo ngày tháng(từ ngày 1 đến 12)
VẤN ĐỀ XÃY RA KHI ĐỊNH DẠNG LẠI NGÀY THÁNG TRONG CONTROL PANEL
Những phần mềm khác có liên quan đến việc sử dụng ngày tháng thì bị đảo ngược MM/dd/yyyy rất khó trong việc sử dụng.
Vì vậy mình nhờ bạn quanghai1969 và các bạn khác ra tay giúp đỡ dùm mình chổ này là:
Trong Control Panel vẫn để định dạng ngày tháng là: dd/MM/yyyy và file excel chạy đúng định dạng này khi bỏ code vào
Chân thành cảm ơn

 

[letinnghia]

Mình không hiểu nhưng cảm giác hơi vô lý. Thôi chờ đợi xem có anh chị nào biết không nha.
Chúc may mắn[/QUOTE
Anh quanghai1969, hôm nay mình làm như vầy thì không bị đảo định dạng ngày tháng dd/mm/yyyy==>mm/dd/yyyy
1. Vào Control Panel
2. Vào Region(Win 8) Win 7 hình như là chữ regional language
3. Chọn Tab formats==>Additional settings...==>chọn Tab Date trong phần Date format chọn Short date: MM/dd/yyyy Long date: MM/dd/yyyy thì kết quả trong file excel của mình là không bị đảo ngày tháng(từ ngày 1 đến 12)
VẤN ĐỀ XÃY RA KHI ĐỊNH DẠNG LẠI NGÀY THÁNG TRONG CONTROL PANEL
Những phần mềm khác có liên quan đến việc sử dụng ngày tháng thì bị đảo ngược MM/dd/yyyy rất khó trong việc sử dụng.
Vì vậy mình nhờ bạn quanghai1969 và các bạn khác ra tay giúp đỡ dùm mình chổ này là:
Trong Control Panel vẫn để định dạng ngày tháng là: dd/MM/yyyy và file excel chạy đúng định dạng này khi bỏ code vào
Chân thành cảm ơn

Các Bạn GPE xem giúp dùm mình bài #45 với mình đang gặp bế tắc rồi.
cảm on nhiều

 

[vuongtoituonglai]

Các Bạn GPE xem giúp dùm mình bài #45 với mình đang gặp bế tắc rồi.
cảm on nhiều

Tôi làm thế này thì thấy kết quả đúng như bạn mong muốn.
Trong control panel vẫn định dạng là là:
Short date: dd/MM/yyyy
Long date: dd/MM/yyyy
Bây giờ vào file excel chọn những cột định dạng ngày tháng==>chuột phải==>formart cells==>custom==>trong ô type bạn gõ mm/dd/yyyy==>nhấn ok
chúc bạn thành công