cuagrar hoja a nombre de una celda

hola, KM !

... la celda (G1) es una formula de texto contiene una fecha
... asi sale (VENTAS CONTROL MENSUAL 11-2005)
... un macro para que me guarde el libro completo en este nombre
... y cuando ejecuto el macro me pide un clave que yo lo establezco.

[p.e.] en un modulo de codigo 'normal' ==Sub MiMacroParaGuardar()
If InputBox("", "") <> "mi ClaVe SecrEta" Then Exit Sub
ThisWorkbook.SaveAs Range("g1"), xlWorkbookNormal
End Sub

-> la 'clave' debera coincidir EXACTAMENTE con la del codigo ;) [ojo entre mayusculas/minusculas]
-> [probablemente] habria que agregar agun 'directorio' [de lo contrario se tomara el directorio 'activo']

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

hola Hectro gracias por la ayuda pero no se donde coloco la clave para que
el macro cuando le ejecuto que me lo acepta si es corecta la clave que yo
quiero.

y el archivo quero que guarda en una carpeta espesifica.

Gracias

"Héctor Miguel" escribió en el mensaje
news:

hola, KM !

... la celda (G1) es una formula de texto contiene una fecha
... asi sale (VENTAS CONTROL MENSUAL 11-2005)
... un macro para que me guarde el libro completo en este nombre
... y cuando ejecuto el macro me pide un clave que yo lo establezco.

[p.e.] en un modulo de codigo 'normal' ==> Sub MiMacroParaGuardar()
If InputBox("", "") <> "mi ClaVe SecrEta" Then Exit Sub
ThisWorkbook.SaveAs Range("g1"), xlWorkbookNormal
End Sub

-> la 'clave' debera coincidir EXACTAMENTE con la del codigo ;) [ojo entre
mayusculas/minusculas]
-> [probablemente] habria que agregar agun 'directorio' [de lo contrario
se tomara el directorio 'activo']

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

hola, KM !

... no se donde coloco la clave para que... cuando le ejecuto... acepta si es corecta la clave que yo quiero
y el archivo quero que guarda en una carpeta espesifica.

una forma es declarar una variable de tipo 'String' que contenta la clave 'aprobada' [si se trata de una o pocas claves]
al presentarse por codigo el 'InputBox' [o cuadro de entradas], la macro comprueba la entrada del usuario con la clave
si no es la 'aprobada'... la ejecucion de esa macro se termina, si es la clave 'buena', la macro continua
[un ejemplo de lo anterior te lo expone KL, yo lo unico que he 'omitido' es el titulo y la 'pregunta' en el InputBox] :D

para especificar la carpeta especifica [a reserva de que comentes algun otro dato] prueba con las siguientes modificaciones...
en un modulo de codigo 'normal' ==Sub MiMacroParaGuardar()
If InputBox("", "") <> "aqui VA la cLavE" Then Exit Sub
ThisWorkbook.SaveAs "C:\Ruta y\Subcarpetas\" & Range("g1"), xlWorkbookNormal
End Sub

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