怎样将2组代码合在一起

Private Sub Workbook_BeforeClose(Cancel As Boolean)
一是：
Application.ScreenUpdating = False
Sheets(1).Visible = 1
For i = 2 To Sheets.Count
Sheets(i).Visible = 2
Next
ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_Open()
Application.Visible = False
frmDengLu.Show
End Sub

二是：
Option Explicit

Private Sub Workbook_Open()
Worksheets("sheet3").Protect Password:="pwd", userinterfaceonly:=True
Worksheets("sheet3").EnableOutlining = True
End Sub

一.要手工合并的吧，复制内容，再粘贴。二.使用方法：1、新建一个工作薄，将其命名为你合并后的名字。2、打开此工作薄。3、在其下任一个工作表标签上点击右键，选择“查看代码”。4、在打开的VBA编辑窗口中粘贴以下代码：Sub工作薄间工作表合并

我。。知。。道 加。。我。。私。。聊