Chèn hai đoạn code vào cùng một worksheet

[Never Gone]

Em mới bắt đầu học VBE cho excel. Em chỉ biết cách chèn một đoạn code vào trong workbook nhưng không biết làm thế nào để chèn 2 đoạn code vào chung một chổ:

Vd: em có 2 đoạn code này:

Giời em phải làm sau để chèn cùng lúc 2 đoạn code này vào luôn để tạo thành một file excel vừa không cho chèn thêm sheet mới và không cho lưu thành tập tin khác

Code 1: Không cho chèn thêm sheet mới

Option Explicit


Private Sub Workbook_NewSheet(ByVal Sh As Object)
 Application.DisplayAlerts = False
    MsgBox "Sorry, you cannot add any more sheets to this workbook", vbInformation
    Sh.Delete
 Application.DisplayAlerts = True
End Sub

Code 2: Không cho lưu thành tập tin khác.

Option Explicit

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
  If SaveAsUI = True Then
      lReply = MsgBox("Sorry, you are not allowed to save this workbook as another name. " _
                     & "Do you wish to save this workbook.", vbQuestion + vbOKCancel)
     Cancel = (lReply = vbCancel)
   If Cancel = False Then Me.Save
     Cancel = True
  End If
End Sub

Cảm ơn mọi người.

 

[viehoai]

Em mới bắt đầu học VBE cho excel. Em chỉ biết cách chèn một đoạn code vào trong workbook nhưng không biết làm thế nào để chèn 2 đoạn code vào chung một chổ:

Vd: em có 2 đoạn code này:

Giời em phải làm sau để chèn cùng lúc 2 đoạn code này vào luôn để tạo thành một file excel vừa không cho chèn thêm sheet mới và không cho lưu thành tập tin khác

Code 1: Không cho chèn thêm sheet mới

Option Explicit


Private Sub Workbook_NewSheet(ByVal Sh As Object)
 Application.DisplayAlerts = False
    MsgBox "Sorry, you cannot add any more sheets to this workbook", vbInformation
    Sh.Delete
 Application.DisplayAlerts = True
End Sub

Code 2: Không cho lưu thành tập tin khác.

Option Explicit

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
  If SaveAsUI = True Then
      lReply = MsgBox("Sorry, you are not allowed to save this workbook as another name. " _
                     & "Do you wish to save this workbook.", vbQuestion + vbOKCancel)
     Cancel = (lReply = vbCancel)
   If Cancel = False Then Me.Save
     Cancel = True
  End If
End Sub

Cảm ơn mọi người.

Ý bạn là sao?
Code để chèn 2 đoạn code trên vào Workbook hay sao? Chưa hiểu ý bạn lắm

 

[thanhlanh]

Bạn muốn chèn bao nhiêu thủ tục hoặc hàm (đoạn - theo cách nói của bạn) cũng được miễn sao đừng đụng hàng (trùng tên).
Câu lệnh Option Explicit đưa vào để bắt buộc ta phải khai báo cho tất cả các biến, nó được đưa lên trên cùng để dùng chung, vì vậy Bạn chỉ việc xoá bớt một câu Option Explicit ở trước thủ tục thứ hai là OK.
(Ở đây bạn chỉ có hai thủ tục là: Private Sub Workbook_NewSheet vàPrivate Sub workbook_BeforeSave)

 

[vu_tuan_manh_linh]

Option Explicit


Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
MsgBox "Sorry, you cannot add any more sheets to this workbook", vbInformation
Sh.Delete
Application.DisplayAlerts = True
End Sub
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
If SaveAsUI = True Then
lReply = MsgBox("Sorry, you are not allowed to save this workbook as another name. " _
& "Do you wish to save this workbook.", vbQuestion + vbOKCancel)
Cancel = (lReply = vbCancel)
If Cancel = False Then Me.Save
Cancel = True
End If
End Sub
---------
Bạn mở cửa sổ view code, kích đúp chuột vào mục thisworkbook rồi copy đoạn code của bạn vào thôi. Lưu ý dòng Option Explicit chỉ khai báo 1 lần ở trên cùng

 

[Never Gone]

Option Explicit


Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
MsgBox "Sorry, you cannot add any more sheets to this workbook", vbInformation
Sh.Delete
Application.DisplayAlerts = True
End Sub
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
If SaveAsUI = True Then
lReply = MsgBox("Sorry, you are not allowed to save this workbook as another name. " _
& "Do you wish to save this workbook.", vbQuestion + vbOKCancel)
Cancel = (lReply = vbCancel)
If Cancel = False Then Me.Save
Cancel = True
End If
End Sub
---------
Bạn mở cửa sổ view code, kích đúp chuột vào mục thisworkbook rồi copy đoạn code của bạn vào thôi. Lưu ý dòng Option Explicit chỉ khai báo 1 lần ở trên cùng

Cảm ơn bạn nhiều, mình đã làm được rồi.