|
En un Módulo coloca lo siguiente:
Public Sub Guardar_Libro()
Dim Nombre As String
Nombre = InputBox("Entre el nombre con el que guardará su libro", "Guardar Como...")
If Nombre = "" Then
MsgBox "Nombre Invalido." & Chr(13) & "Su libro no se guardará", vbOKOnly, "Error!!!"
Exit Sub
End If
ActiveWorkbook.SaveAs "C:\" & Nombre, xlWorkbookNormal
End Sub
Ahora solo tienes que llamar la rutina Guardar_Libro desde cualquier parte por ejemplo:
Private Sub CommandButton1_Click()
Guardar_Libro
End Sub
Este código ya lo ensayé y me funcionó. De todas maneras si tienes problemas me avisas.
Saludos
|
