Cách nào để khóa không cho xóa sheet theo chỉ định?

[nqdn2010]

Xin mọi người giúp tôi vấn đề sau: Ví dụ trong một Workbook có từ Sheet1 đến Sheet7, tôi muốn cấm không cho xóa Sheet1, Sheet3, và sheet4. những sheet còn lại thì có thể xóa tùy ý.

 

[Quang_Hải]

Cái vụ này đơn giản mà, tùy biến thêm nha (True)

Private Sub Worksheet_Activate()
Application.CommandBars("Ply").Controls("Delete").Enabled = False
End Sub

 

[Ba Tê]

Cái vụ này đơn giản mà, tùy biến thêm nha (True)

Private Sub Worksheet_Activate()
Application.CommandBars("Ply").Controls("Delete").Enabled = False
End Sub

Quang Hải dùng code làm "Liệt" lệnh xóa khi click chuột phải vào tên Sheet?
Còn Edit - Delete Sheet nữa?
Nếu tôi dùng code này trong Module rồi xóa thì sao ta?

Public Sub XoaSh()
Application.DisplayAlerts = False
Sheet3.Delete
Application.DisplayAlerts = True
End Sub

 

[Quang_Hải]

Quang Hải dùng code làm "Liệt" lệnh xóa khi click chuột phải vào tên Sheet?
Còn Edit - Delete Sheet nữa?
Nếu tôi dùng code này trong Module rồi xóa thì sao ta?

Public Sub XoaSh()
Application.DisplayAlerts = False
Sheet3.Delete
Application.DisplayAlerts = True
End Sub

Anh làm khó em nha, nếu mà muốn xóa thì kiểu nào mà không xóa được chứ.