Como guardar archivo y que permanezcan bloqueadas las celdas

Dante buenas tardes

Sigo con mi planilla. Lo que ahora me pasa lo siguiente, cuando ejecuto la MACRO que abajo te copio, el archivo de EXCEL que se genera no se mantienen las propiedades de las celdas bloqueadas de la planilla de ORIGEN, esto es importante para evitar que se borren por accidente más allá de que también genero un PDF, pero necesito el registro en EXCEL

Sub Guardar()
' Guardar Macro
' Acceso directo: CTRL+h
'
Dim nombre As String, Ruta As String
Ruta = "C:\Users\forense\Desktop\PLANILLA CARLOS\INFORMES\"
nombre = Range("E2").Value
worient = ActiveSheet.PageSetup.Orientation
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Ruta & nombre & ".xlsx"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Ruta & nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close False
Windows("PLANILLA PARA GENERAR ARCHIVO A GUARDAR").Activate
End Sub