Ayuda en este macro que no Funciono

Hola amigos aquМ le mando el macro que nunca me funcionС y le explicС por cada paso cual es la funciСn de este macro.



Gracias

KM**VE



Lo que hace el macro tiene la opciСn que envМa la hoja por e mail o guardar la hoja bajo el nombre que tiene celda (C12) y lo
protege por una clave es (5599) y guarda la hoja en una ruta en el disco duro, la ruta esta en la celda (P1) y que copia solamente
la hoja que esta a la vista desde las celdas (A1; M1) (A62; M62)



Lo que cesecito que haga el macro eso lo que dice allМ en las dos Lina


Sub GuardarEnviarHojaEspecial()
Dim Clave As String
Clave = "5599"
Worksheets("especial").Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Range("C12").Select
Application.CutCopyMode = False
ActiveSheet.Protect Clave, True, True, True, False
With ActiveWorkbook
.Protect Clave, True, True
.SaveAs Range("P1"), xlWorkbookNormal
.SendMail "", "aqui esta el resumen'"
.Close
End With
End Sub

Hola K.M. *Ve,

Lo que has olvidado es comentar en que consiste el "...nunca me
funcionó...". Algun error especifico? Algo que hace mal? No hace algo
concretamente? No hace nada?

Comentas?

Saludos,
KL


"K.M. *Ve" wrote in message
news:
Mostrar la cita

Hola amigos aqu? le mando el macro que nunca me funcion? y le explic? por
cada paso cual es la funci?n de este macro.



Gracias

KM**VE



Lo que hace el macro tiene la opci?n que env?a la hoja por e mail o
guardar la hoja bajo el nombre que tiene celda (C12) y lo protege por una
clave es (5599) y guarda la hoja en una ruta en el disco duro, la ruta
esta en la celda (P1) y que copia solamente la hoja que esta a la vista
desde las celdas (A1; M1) (A62; M62)



Lo que cesecito que haga el macro eso lo que dice all? en las dos Lina


Sub GuardarEnviarHojaEspecial()
Dim Clave As String
Clave = "5599"
Worksheets("especial").Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Range("C12").Select
Application.CutCopyMode = False
ActiveSheet.Protect Clave, True, True, True, False
With ActiveWorkbook
.Protect Clave, True, True
.SaveAs Range("P1"), xlWorkbookNormal
.SendMail "", "aqui esta el resumen'"
.Close
End With
End Sub