Proteger de nuevo, via macro

Hola a todos,
Debe seguir por aqui mi amigo Hector (saludos!) porque he visto que esto
sigue movido y hay temas realmente interesantes.

Estoy queriendo proteger un libro por medio de una macro de excel, he
creado una caja de venta diaria y esta protegida, solo permite ingresar
datos en ciertas celdas, el tema es que despues de probar este codigo:

Private Sub Workbook_Open()
Dim Ruta As String, Hoja As String, Fecha As String, TC As String, SI As
String, NomCajero As String, HA As Date
Ruta = "D:\"
Hoja = "Ayacucho"
Fecha = Format(Date, "_yy-mm-dd")
With Me.Worksheets(Hoja)
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,
Password:="oki", UserInterfaceOnly:=True
TC = InputBox("Porfavor, ingrese la TC de hoy", "Tasa de Cambio")
SI = InputBox("Porfavor, ingrese su saldo incial", "Saldo Inicial")
NomCajero = InputBox("PorFavor Ingrese el nombre del Cajero Asignado",
"Nombre Cajero")
.Range("G6") = TC
.Range("F36") = SI
.Range("G4") = Now()
.Range("G7") = NomCajero
.Range("G5") = Now
End With
Me.Sheets.Copy
'Me.Sheets(Array("hoja1", "hoja2")).Copy
ActiveWorkbook.SaveAs Filename:=Ruta & Hoja & Fecha,
FileFormat:=xlWorkbookNormal
Me.Close False
End Sub

el libro resultante no contiene codigo y al parecer por ahi falla la cosa,
alguien me puede decir como puedo volver a proteger el libro resultante
como lo estaba el original? (bloquear celdas para evitar su edicion, no
proteger el libro).

Espero sugerencias, gracias.

Javier A.