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

letinnghia · 23/7/14

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 · 23/7/14

letinnghia đã viết:
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.

PHP:

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 · 23/7/14

huuthang_bd đã viết:
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.

PHP:

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 · 23/7/14

letinnghia đã viết:
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 · 24/7/14

chuot0106 đã viết:
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 · 24/7/14

letinnghia đã viết:
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 · 24/7/14

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 · 24/7/14

letinnghia đã viết:
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 · 24/7/14

letinnghia đã viết:
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 · 24/7/14

huuthang_bd đã viết:
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 · 24/7/14

letinnghia đã viết:
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 · 24/7/14

quanghai1969 đã viết:
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 · 24/7/14

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 · 24/7/14

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

letinnghia · 24/7/14

thangteotdtt đã viết:
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 · 24/7/14

letinnghia đã viết:
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:

Mã:

'---------------------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 · 24/7/14

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

letinnghia · 25/7/14

chuot0106 đã viết:
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 · 25/7/14

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 · 25/7/14

thangteotdtt đã viết:
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 · 25/7/14

letinnghia đã viết:
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 · 25/7/14

thangteotdtt đã viết:
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 · 25/7/14

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 · 25/7/14

letinnghia đã viết:
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 · 25/7/14

letinnghia đã viết:
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 · 25/7/14

letinnghia đã viết:
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

PHP:

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 · 25/7/14

quanghai1969 đã viết:
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

PHP:

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 · 25/7/14

chuot0106 đã viết:
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 · 25/7/14

chuot0106 đã viết:
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 · 25/7/14

quanghai1969 đã viết:
Đọ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 · 25/7/14

thangteotdtt đã viết:
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 · 25/7/14

letinnghia đã viết:
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. --=0

VD như trong hình.

Chúc bạn vui

letinnghia · 26/7/14

thangteotdtt đã viết:
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 · 26/7/14

quanghai1969 đã viết:
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

PHP:

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 · 26/7/14

letinnghia đã viết:
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

PHP:

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 · 26/7/14

letinnghia đã viết:
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 · 26/7/14

Cá ngừ F1 đã viết:
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 · 26/7/14

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 · 26/7/14

quanghai1969 đã viết:

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

PHP:

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 · 26/7/14

letinnghia đã viết:
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 · 26/7/14

quanghai1969 đã viết:
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 · 26/7/14

letinnghia đã viết:
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 · 26/7/14

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

diemhuyenanh · 26/7/14

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

letinnghia · 29/7/14

quanghai1969 đã viết:
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 · 29/7/14

letinnghia đã viết:
quanghai1969 đã viết:

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

Nhấp chuột vào đây để mở rộng...

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 · 30/7/14

letinnghia đã viết:
letinnghia đã viết:

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

Nhấp chuột vào đây để mở rộng...

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

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

Người dùng đang xem chủ đề này

Thành viên hoạt động

File đính kèm

Chuyên gia GPE

File đính kèm

Thành viên hoạt động

Thành viên gắn bó

Thành viên hoạt động

Thành viên gắn bó

Thành viên gắn bó

Thành viên tích cực

Chuyên gia GPE

Thành viên hoạt động

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên gắn bó

Thành viên gắn bó

File đính kèm

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

File đính kèm

Thành viên gắn bó

Chuyên gia GPE

Thành viên gạo cội

Thành viên gắn bó

Thành viên hoạt động

File đính kèm

Thành viên gạo cội

Thành viên gắn bó

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên gạo cội

( ͡° ͜ʖ ͡°)

Thành viên hoạt động

( ͡° ͜ʖ ͡°)

Thành viên hoạt động

Thành viên gạo cội

File đính kèm

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

Thành viên thường trực

Thời gian đếm ngược.