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

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 ý.

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

Code làm "Liệt" lệnh xóa khi click chuột phải vào tên Sheet.
Còn nếu muốn xóa sheet thì dùng Edit – Delete Sheet hoặc dùng code này trong Module rồi xóa;
Public Sub XoaSh()
Application.DisplayAlerts = False
Sheet3.Delete
Application.DisplayAlerts = True
End Sub

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học