Không cho insert thêm sheet làm như nào?

[Tường_Vi]

Nếu không dùng protect. Có cách nào không cho add thêm sheet không?
Muội đang tìm thử sự kiện add new worksheet nhưng không thấy? nếu có chỉ cần set là false là ok các Huynh nhỉ?

 

[ndu96081631]

Nếu không dùng protect. Có cách nào không cho add thêm sheet không?
Muội đang tìm thử sự kiện add new worksheet nhưng không thấy? nếu có chỉ cần set là false là ok các Huynh nhỉ?

Tôi nghĩ nó là vầy

Private Sub Workbook_NewSheet(ByVal Sh As Object)
  Application.DisplayAlerts = False
    Sh.Delete
  Application.DisplayAlerts = True
End Sub

Code đặt trong Thisworkbook nhé

 

[Tường_Vi]

Tôi nghĩ nó là vầy

Private Sub Workbook_NewSheet(ByVal Sh As Object)
  Application.DisplayAlerts = False
    Sh.Delete
  Application.DisplayAlerts = True
End Sub

Code đặt trong Thisworkbook nhé

Cám ơn Huynh NDU

to: Phugiant
bạn spam bài rồi. Mà theo mình không nên đặt pass làm gì cả (mọi người học hỏi được công thức, giúp nhau tiến bộ)

 

[truongthikt]

Tôi nghĩ nó là vầy

Private Sub Workbook_NewSheet(ByVal Sh As Object)
  Application.DisplayAlerts = False
    Sh.Delete
  Application.DisplayAlerts = True
End Sub

Thank bác , đúng cái em đang cần

 

[Hoàng Trọng Nghĩa]

Nếu không dùng protect. Có cách nào không cho add thêm sheet không?
Muội đang tìm thử sự kiện add new worksheet nhưng không thấy? nếu có chỉ cần set là false là ok các Huynh nhỉ?

Khi dùng code là đụng tới Securities Macro Setting đúng không? Vậy nếu người ta chọn High thì phải làm sao đây? Bạn nên chọn phương pháp Protect Workbook! Chọn Tools > Protection > Protect Workbook... Check vào Structure, đặt Password rồi OK. Bảo đảm không bao giờ thêm/ xóa/ đổi tên/ ẩn sheet được. Dĩ nhiên vẫn có code để gỡ password, tuy nhiên chỉ có gặp cao thủ!