Cấm không cho người sử dụng xóa các Sheet

[Blad01]

Tôi có một File Excell gồm rất nhiều sheet có cách nào để không cho người sử dụng xóa hoặc chèn thêm được sheet hay không (chuột phải lên sheet/Delete = không xóa được; chuột phải sheet/Insert ==> Không chèn được). Cảm ơn nhiều

 

[Po_Pikachu]

+Không Insert được: Bạn vào Tools -> Protection -> Protect Sheet -> nhập pass hai lần -> OK. +Không Delete sheet: Bạn vào Tools -> Protection -> Protect Workbook -> nhập pass hai lần -> OK.

 

[ndu96081631]

+Không Insert được:
Bạn vào Tools -> Protection -> Protect Sheet -> nhập pass hai lần -> OK.

Cái này chỉ có tác dụng bảo vệ nội dung trong sheet thôi, vẫn Insert sheet được mà

 

[Po_Pikachu]

Thì Protect Workbook thì khóa không cho Delete/Insert Sheet rồi đó! Còn Protect Sheet dùng để không cho làm ảnh hưởng các Cells trong Sheet đó!

 

[vumian]

Tôi có một File Excell gồm rất nhiều sheet có cách nào để không cho người sử dụng xóa hoặc chèn thêm được sheet hay không (chuột phải lên sheet/Delete = không xóa được; chuột phải sheet/Insert ==> Không chèn được). Cảm ơn nhiều

Bác xem như vậy đúng ý chưa

 

[mongto]

thanks kiu Pikachu !!!!! cái món này hay đấy ...
Tiện đây mình có 1 câu hỏi xin dc Pikachu hoặc ai đó giúp mình với :minh hay fai lam viec voi Excel , file Excel thì rất lớn (nếu dùng excel Xp thi nó khoảng 67MB) Mình đang dùng Excel 2007 .....thỉnh thoảng mình cũng gặp fải trường hợp chuối ơi là chuối .....làm xong đâu vào đấy khi lưu thì máy lại nhất định ko cho lưu ...chỉ được lưu với cái tên khác.....ko dc ghi đè lên file cũ.....đó là triệu chứng gì vậy ( Quên mất ...mình làm trên máy của mình ...trong khi file đang mở lại lưu ở máy người khác.....lúc ấy chỉ có mình làm việc .....máy bên kia vẫn bật , ko ai xử dụng và cũng đang ko mở file ấy )

 

[Po_Pikachu]

Vậy bạn copy file đó lên luôn máy mình xem rồi thử thực hiện lại 1 vài động tác, rồi save lại xem có được không! Nếu không được nữa thì xem nó có khóa User file đó lại không? Em không thấy file nên cũng đoán mò thôi! Nếu bác có file nào nhỏ hơn thì gửi lên diễn đàn thử xem mới cho kết quả chính xác được. Thân.

 

[cadafi]

.....thỉnh thoảng mình cũng gặp fải trường hợp chuối ơi là chuối .....làm xong đâu vào đấy khi lưu thì máy lại nhất định ko cho lưu ...chỉ được lưu với cái tên khác.....ko dc ghi đè lên file cũ.....đó là triệu chứng gì vậy ( Quên mất ...mình làm trên máy của mình ...trong khi file đang mở lại lưu ở máy người khác.....lúc ấy chỉ có mình làm việc .....máy bên kia vẫn bật , ko ai xử dụng và cũng đang ko mở file ấy )

Bác kiểm tra lại xem, mở file bên máy người khác bằng user nào, user đó có quyền trên file của máy người khác không? (vì như bác nói, bác đang ở máy mình, mở file ở máy người khác).

Biết đâu bác chỉ có quyền read only!

 

[chitnho]

Chính xác là chỉ có quyền Read only!

 

[adult]

file của bạn kô xóa sheet đc nhưng vẫn có thể insert sheet được bằng cách Insert/Worksheet.Nếu bạn có thể khóa luôn kô cho insert từ menu thì hướng dẫn mọi người luôn nhé
thanks sự đóng góp của bạn

 

[adult]

Bạn hãy copy đoạn code sau đây vào trong VBE thì khi mỡ fỉle ra sẽ vô hiệu hóa luôn thanh file,edit,view,insert...
chúc vui

auto_open()
sub test()
CommandBars("view").FindControl(ID:=30045).Enabled = False
CommandBars("Worksheet Menu Bar").Enabled = False
Set myControls = CommandBars.FindControls(Type:=msoControlButton, ID:=797)
For Each myct In myControls
myct.Enabled = True
Next
End Sub

 

[Trần Văn Bình]

Bổ sung thêm khi người dùng chạy thử bị vô hiệu hóa mà không biết các khác phục lại

Bạn hãy copy đoạn code sau đây vào trong VBE thì khi mỡ fỉle ra sẽ vô hiệu hóa luôn thanh file,edit,view,insert...
chúc vui

auto_open()
sub test()
CommandBars("view").FindControl(ID:=30045).Enabled = False
CommandBars("Worksheet Menu Bar").Enabled = False
Set myControls = CommandBars.FindControls(Type:=msoControlButton, ID:=797)
For Each myct In myControls
myct.Enabled = True
Next
End Sub

Bạn viết đoạn này cần phải bổ sung thêm chứ họ chạy thử xung thoát máy ra vẩn bị vô hiệu hóa file,edit,view,insert...

 

[Trần Văn Bình]

Bạn nào đã chạy thử rồi mà bị thì vào đây http://www.bluesofts.net/