Giúp cách để protect các ô đã nhập dữ liệu

[Cu Tồ]

các bác cho mình hỏi là muốn tạo một macro chỉ cho nhập dữ liệu vào ô trống còn những ô đã chứa dữ liệu hoặc vừa nhập xong thì protect ô chứa dữ liệu đó không cho xóa,chỉnh sửa hay bất kỳ thao tác nào khác kể cả xóa cả vùng dữ liệu và dòng điều không cho xóa thì làm như thế nào ah?

 

[saobekhonglac]

các thím cho hỏi là muốn tạo một macro chỉ cho nhập dữ liệu vào ô trống còn những ô đã chứa dữ liệu hoặc vừa nhập xong thì protect ô chứa dữ liệu đó không cho xóa,chỉnh sửa hay bất kỳ thao tác nào khác kể cả xóa cả vùng dữ liệu và dòng điều không cho xóa thì làm như thế nào ah?

cái này có chức năng protect mà, cần gì macro cho phức tạp

 

[Cu Tồ]

cái này có chức năng protect mà, cần gì macro cho phức tạp

Ý e muốn là cái bảng tính đó chỉ cho nhập dữ liệu vào và khi nhập xong dữ liệu thì nó sẽ khoá ô chứ dữ liệu đó còn những ô trống thì sẽ ko khoá. Muốn xoá hay chỉnh sửa cũng k được. Và khi nhấp vào ô chứa dữ liệu thì sẽ hiện lên thống báo input để nhập mật khẩu chỉnh sửa xong lại tự động khoá lại

Bài đã được tự động gộp: 15/5/20

cái này có chức năng protect mà, cần gì macro cho phức tạp

Đại loại là mình muốn nó hoạt động dựa trên sự kiện và có bảng input hiện lên để nhập mật khẩu sửa. Mình có xem được baif cũ trong nhóm. Nhưng bài đó lại là nhất vào biểu tượng đã gán để core để hiện bảng nhập mật khẩu xong khoá hoặc mở chứ ko chạy theo sự kiện. Loay hoay mãi ko biết sửa core đó ntn

 

[Cu Tồ]

Option Explicit


Sub OkeBab()


On Error Resume Next


If Sheet1.Bebe.Caption = "UnProtect" Then


If UCase(InputBox("Input Pass : ", "Bebebe!")) = "GPE" Then


Sheet1.Bebe.Caption = "Protect"


Sheet1.Bebe.ForeColor = &HFF0000


Sheet1.Unprotect "GPE"


Else


MsgBox "Di uong Ca Fe di, day khong phai cho cua tre con", vbOKOnly, "Bebebe!!"


Exit Sub


End If


Else


Sheet1.Bebe.Caption = "UnProtect"


Sheet1.Bebe.ForeColor = &HFF&


Sheet1.Protect "GPE", False, True, True


End If


End Sub

mình thấy bào này trong nhóm. Của bác nào làm quên mất rồi. Nhưng thấy nó hay. Vừa ý mình nhưng mà bài của bác này là tạo nút nhấ để khoá hoặc mở protect. Mình thì lại muốn dựa vào sự kiện nhấp vào các ô chứa dữ liệu thì nó sẽ hiện lên bảng nhập mật khẩu. Không biết có pro nào giúp mình với

 

[saobekhonglac]

Ý e muốn là cái bảng tính đó chỉ cho nhập dữ liệu vào và khi nhập xong dữ liệu thì nó sẽ khoá ô chứ dữ liệu đó còn những ô trống thì sẽ ko khoá. Muốn xoá hay chỉnh sửa cũng k được. Và khi nhấp vào ô chứa dữ liệu thì sẽ hiện lên thống báo input để nhập mật khẩu chỉnh sửa xong lại tự động khoá lại

Bài đã được tự động gộp: 15/5/20

Đại loại là mình muốn nó hoạt động dựa trên sự kiện và có bảng input hiện lên để nhập mật khẩu sửa. Mình có xem được baif cũ trong nhóm. Nhưng bài đó lại là nhất vào biểu tượng đã gán để core để hiện bảng nhập mật khẩu xong khoá hoặc mở chứ ko chạy theo sự kiện. Loay hoay mãi ko biết sửa core đó ntn

Option Explicit


Sub OkeBab()


On Error Resume Next


If Sheet1.Bebe.Caption = "UnProtect" Then


If UCase(InputBox("Input Pass : ", "Bebebe!")) = "GPE" Then


Sheet1.Bebe.Caption = "Protect"


Sheet1.Bebe.ForeColor = &HFF0000


Sheet1.Unprotect "GPE"


Else


MsgBox "Di uong Ca Fe di, day khong phai cho cua tre con", vbOKOnly, "Bebebe!!"


Exit Sub


End If


Else


Sheet1.Bebe.Caption = "UnProtect"


Sheet1.Bebe.ForeColor = &HFF&


Sheet1.Protect "GPE", False, True, True


End If


End Sub

mình thấy bào này trong nhóm. Của bác nào làm quên mất rồi. Nhưng thấy nó hay. Vừa ý mình nhưng mà bài của bác này là tạo nút nhấ để khoá hoặc mở protect. Mình thì lại muốn dựa vào sự kiện nhấp vào các ô chứa dữ liệu thì nó sẽ hiện lên bảng nhập mật khẩu. Không biết có pro nào giúp mình với

khóa như vậy rồi lỡ nhập sai thì sau mà sửa được.

 

[Cu Tồ]

khóa như vậy rồi lỡ nhập sai thì sau mà sửa được.

Nhấp sai thì lại nhấn vào ô muốn sửa xong nó hiển thị lên bảng nhập pass để unprotect xong thì có thể sửa mỗi ô đó thôi. Sửa xong nó lại khoá bác. Nên chỉ nhưng ai biết pass mới có thể mở. Để hạn chế chỉnh sửa khi đã nhập thông tin bác. Và e muốn có thêm một bước đó là khi mà xong hết tất cả thì sẽ có một dòng lệnh dành riêng cho admin để có thể unprotect cả sheet đó để tổng hợp dữ liệu. Vì ở đây nhập sai thì ko sửa vẫn k sao bác. Bác xem giúp đc ko hộ mình với

 

[saobekhonglac]

Nhấp sai thì lại nhấn vào ô muốn sửa xong nó hiển thị lên bảng nhập pass để unprotect xong thì có thể sửa mỗi ô đó thôi. Sửa xong nó lại khoá bác. Nên chỉ nhưng ai biết pass mới có thể mở. Để hạn chế chỉnh sửa khi đã nhập thông tin bác. Và e muốn có thêm một bước đó là khi mà xong hết tất cả thì sẽ có một dòng lệnh dành riêng cho admin để có thể unprotect cả sheet đó để tổng hợp dữ liệu. Vì ở đây nhập sai thì ko sửa vẫn k sao bác. Bác xem giúp đc ko hộ mình với

Thế nhập sai rồi sửa cả ngày là sướng rồi, nhiêu đó lảnh lương thôi.

 

[Cu Tồ]

Thế nhập sai rồi sửa cả ngày là sướng rồi, nhiêu đó lảnh lương thôi.

Ko cần sửa đâu bác. Chỉ muốn bảo vệ các dữ liệu đã nhập vào thôi ah. Bài của bác kia thì thoả mãn hết điều kiện e muốn. Nhưng bài của bác ấy lại là nhấn vào protec hoặc unprorect chứ ko dùng sự kiện

 

[chiendich]

cái này có chức năng protect mà, cần gì macro cho phức tạp

Lên chức " Thím" khi nào vậy bạn.!

 

[saobekhonglac]

Lên chức " Thím" khi nào vậy bạn.!

rảnh mà, hehe

 

[chiendich]

rảnh mà, hehe

Rảnh thì đen rượu Long An xuống Đồng Nai lai rai. hẹn bác @be09 nữa thì tốt.

 

[saobekhonglac]

Rảnh thì đen rượu Long An xuống Đồng Nai lai rai. hẹn bác @be09 nữa thì tốt.

Mình ít đi biên hòa lắm, đa số đi dầu giây, long khánh à. Rượu thì ở nhà lúc nào cũng có ít nhất 4 bình (bình 10 lít). Để bữa nào họp quý 2 đi

 

[le_vis]

các thím cho hỏi là muốn tạo một macro chỉ cho nhập dữ liệu vào ô trống còn những ô đã chứa dữ liệu hoặc vừa nhập xong thì protect ô chứa dữ liệu đó không cho xóa,chỉnh sửa hay bất kỳ thao tác nào khác kể cả xóa cả vùng dữ liệu và dòng điều không cho xóa thì làm như thế nào ah?

1) Không thấy File thì tao macro vào đâu /
2) Mà không phải thím thì không được tham dự cơ mà nhỉ !!!!

 

[VetMini]

...2) Mà không phải thím thì không được tham dự cơ mà nhỉ !!!!

Phải bông sắc mới dự được.
Bạn đọc kỹ cái tên của thớt đi.

 

[Cu Tồ]

Haha chết. Các bác bắt bẻ quá sửa lại k bị bắt lỗi chết haha

Bài đã được tự động gộp: 15/5/20

1) Không thấy File thì tao macro vào đâu /
2) Mà không phải thím thì không được tham dự cơ mà nhỉ !!!!

Mình muốn làm giống file này bác. Các ô trong file đều cho chọn và nhập dữ liệu bình thường nhưng khi có sự kiện làm thay đổi như nhập dữ liệu vào ô xong thì lập tức protect ô đó lại. Nếu như nhấp vào ô đấy để sửa thì sẽ hiện lên input nhập pass nhập đúng thì được unprotect để chỉnh sửa bác. Nhưng trong file này là nhất vào protec hoặc unprotect. Mình thì muốn là dùng sự kiện để chạy macro. Các bác xem giúp mình với

 

[Cu Tồ]

mong các bác giúp đỡ để e khai sáng đầu óc cái

 

[Cu Tồ]

cầu cao nhân giúp đỡ

 

[tqthanhcong]

như thế này à bác

 

[Cu Tồ]

như thế này à bác

chuẩn quá pro ơi,nhưng nếu bỏ cái nút này thì cóảnh hường gì không bác,vìđã có sự kiện này rồi thì ko cần cái nút kia nữa ah

Bài đã được tự động gộp: 15/5/20

như thế này à bác

trong macro nếu bỏ nút nàyđi thì sửa lại ntn vậy pro?

 

[tqthanhcong]

chuẩn quá pro ơi,nhưng nếu bỏ cái nút này View attachment 237437 thì cóảnh hường gì không bác,vìđã có sự kiện này rồi thì ko cần cái nút kia nữa ah

Bài đã được tự động gộp: 15/5/20

trong macro nếu bỏ View attachment 237438 nút nàyđi thì sửa lại ntn vậy pro?

Mình sẽ thay bằng 1 biến nào đó. Mà bác ko cần bỏ cũng được, bác có thể move nó tới chỗ ko ai nhìn thấy hoặc viết bebe.visible=false xem sao