Crear copia de libro con distintas macros

Hola tengo este código el cual me guarda una copia de mi libro

Sub GuardarCopiaFechada() ' Guarda una copia del archivo en la misma carpeta con la fecha y el nombre y su extensión
'On Error Resume Next
Dim GUARDAR As Variant
GUARDAR = MsgBox("¿CREAR RESPALDO?", vbYesNo + vbApplicationModal, "AVISO")
If GUARDAR = vbYes Then
Application.ScreenUpdating = False
DatoFechador = Format(Date, "dd-mm-yyyy")
FilePath = ThisWorkbook.Path & "/" & DatoFechador & "-" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs (FilePath)
MsgBox "RESPALDO CREADO CON EXITO", vbInformation, "EXCELENTE"

end sub

Entonces lo que necesito es que al crear la copia (backup) este me muestre las pestañas ya que en el "original" están ocultas las pestañas al igual que si se pudiese ocultar userform además que me pida contraseña al abrir el libro

Espero su ayuda