Bảo vệ bảng tính

[htclub]

Pác nào chỉ hộ cái làm sao để sau khi save bảng tính lại thì lần sau mở không sửa được những ô đã có dữ liệu được nữa

 

[Davidsy]

Còn các ô không có dữ liệu bạn có cho phép sửa không?
- Không : thì vào tool/Protection/ Protect Sheet
- Có : thì vào tool/ Protection / Allow User to Edit range ... Rồi chọn range cho phép sửa. Tiếp theo tool/protection/protect sheet
Have fun

 

[htclub]

Còn các ô không có dữ liệu bạn có cho phép sửa không?
- Không : thì vào tool/Protection/ Protect Sheet
- Có : thì vào tool/ Protection / Allow User to Edit range ... Rồi chọn range cho phép sửa. Tiếp theo tool/protection/protect sheet
Have fun

ý tui muốn hỏi là tự động cơ chứ không phải làm thủ công. ô có dữ liệu tự động được bảo vệ

 

[lachinhan]

Cách đơn giản nhất là làm như bạn davidsy chỉ nhưng sử dụng thêm chức năng record Macro, bạn sẽ được 1 hàm tự động ngay

 

[Davidsy]

Ban tạo một cái này trong Visual Editor ...

Public Function Auto_Close()
Dim nReply
nReply = MsgBox("Xin loi, toi Protect worksheet cua ban nhe!" & vbCr & "Neu dong y chon OK, khong thi Cancel.", vbOKCancel, "Thu Nghiem")
If nReply = vbOk Then
ActiveSheet.Protect Password:= "mypassword", DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
MsgBox "Ban tu chiu trach nhiem ve tinh bao mat cua Sheet nay nhe ...!"
End If
End Function

Cái này chỉ áp dụng cho Sheet đang chọn, bạn có thể mở rộng ra cho nhiều sheet bằng For each Sheet in ... next sheet!
Have fun

 

[ltmcustoms]

Tạo giúp file bảo vệ data nhiều sheets

Ban tạo một cái này trong Visual Editor ...

Public Function Auto_Close()
Dim nReply
nReply = MsgBox("Xin loi, toi Protect worksheet cua ban nhe!" & vbCr & "Neu dong y chon OK, khong thi Cancel.", vbOKCancel, "Thu Nghiem")
If nReply = vbOk Then
ActiveSheet.Protect Password:= "mypassword", DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
MsgBox "Ban tu chiu trach nhiem ve tinh bao mat cua Sheet nay nhe ...!"
End If
End Function

Cái này chỉ áp dụng cho Sheet đang chọn, bạn có thể mở rộng ra cho nhiều sheet bằng For each Sheet in ... next sheet!
Have fun

Tôi đang cần cái ni - Code bảo vệ data nhiều sheetsáp dụng cho nhiều Sheets ! Bạn tạo giúp 1 file VD nhé!
Thanks !

 

[ongtrungducmx25]

cái này vào đâu chọn "Ban tạo một cái này trong Visual Editor ..." viết trong VBA (Atl+F11) có được không!thank, hình như viết vào form đúng không.

 

[ltmcustoms]

cái này vào đâu chọn "Ban tạo một cái này trong Visual Editor ..." viết trong VBA (Atl+F11) có được không!thank, hình như viết vào form đúng không.

Copy "code" Mở 1 file mới, right click trên sheet1 tab, chọn View code... Paste
"code" đó vào

 

[ongtrungducmx25]

Copy "code" Mở 1 file mới, right click trên sheet1 tab, chọn View code... Paste
"code" đó vào

trời đất rồi sao mở khóa đây cái này khóa lập tứ khi mình nhấn F5 thì nó cho quá trời luôn mình bó tay rồi không sửa được nữa bạn ơi! thank

 

[ltmcustoms]

trời đất rồi sao mở khóa đây cái này khóa lập tứ khi mình nhấn F5 thì nó cho quá trời luôn mình bó tay rồi không sửa được nữa bạn ơi! thank

Lần sau thử ngiệm trước đã nhé ! hi hi
Bạn có đặt Pass ở mục Protect Sheet... không!? nếu có thì mở ra -OK!
Hoặc gửi trả lời kèm File của bạn lên GPE!
Mến chào !

 

[ltmcustoms]

"...gửi trả lời kèm File lên GPE" ý là nếu bạn chưa mở đc file của bạn thì gửi kèm vào trả lời của bạn ! để mở giúp bạn thui ! GPE là www.Giaiphapexcel.com đó đó ! hi hi _ diễn đàn này đầy lòng nhiệt huyết _ ko lo gì đâu!
Chúc bạn may măn !