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.

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: [...]
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).

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

hola, Javier !

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: [...]
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).

1) con la instruccion que usas en el evento '_open': -> Me.Sheets.Copy
las hojas se copian a un libro 'nuevo/limpio/desde ceros_...' [pero]
SIN modulos de codigo NI codigo en sus eventos ;)
[sin embargo] las hojas copiadas 'van con todo' [incluyendo la
proteccion si alguna la tuviera] :))

2) no creo que fuera necesario 'repetir' el codigo del evento '_open' en
cada copia nueva de tu 'caja diaria' [o si ???]
de ser necesario, lo que tendrias que hacer es [en lugar de copiar las
hojas a un libro nuevo y el ActiveWorkbook.SaveAs]...
-> usar una instruccion del tipo: -> Me.SaveAs Filename:=Ruta & Hoja &
Fecha, FileFormat:=xlWorkbookNormal
[espero que no tengas objetos incrustados en las hojas CON macros
asignadas a ellos] -?-

si cualquier duda [o informcion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __

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

... tuve que "suspender" la instruccion:
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="oki", UserInterfaceOnly:=True
con un apostrofe para que no me "desbloquee" la hoja resultante, y ahora funciona.

... hay algunos office '97 y 2000 por ahi, y se me hace que no va a funcionar como espero
... alguna referencia con respecto a esa compatibilidad?