两段代码合并出现错误

冬雨泪

第一段代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wkst As Worksheet
For Each wkst In Worksheets
    If wkst.Name <> "首页" Then
        wkst.Visible = xlSheetVeryHidden
    End If
Next
ThisWorkbook.Save
End Sub

第二段代码 ：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim name$
     name = Left(ThisWorkbook.name, InStrRev(ThisWorkbook.name, ".") - 1) '取出纯文件名
    name = Replace(ThisWorkbook.name, name, name & Format(Now, "-yymmddhhmm") & "")
     Debug.Print name
     ActiveWorkbook.SaveAs Filename:="d:\备份\" & name
      End Sub


以上两段代码如何合并，试了很多次，都失败了，请教大家

冬雨泪

有没有人能帮帮我

冬雨泪

在线等，请大家帮助