Crear la copia de un libro sin sus macros
He creado un botón de Guardar en una hoja para que esta solo funcione como "plantilla", el problema es que cuando pulso el botón guardar si lo hace bien pero me di cuenta que también se pasaban las Macros, y lo que quisiera es que solo se creara la copia del libro sin sus Macros.
Espero haberme explicado me puedan ayudar, les dejo el código para que me digan que puedo hacer o que instrucción usar.
Gracias de antemano y Saludos!
Pd: Quisiera saber si estoy usando de manera correcta la aplicación ScreenUpdating, de lo contrario espero me puedan decir como colocarlo dentro de un código.
Private Sub CommandButton1_Click()
'BOTON DE GUARDAR
Dim ruta As String
Dim nbrlibro As String
Dim wb As Workbook
Application.ScreenUpdating = False
ruta = "\\fserverpm\Users\CarlosCQ1Cpt\Escritorio\"
nbrlibro = InputBox("¿NOMBRE DEL ARCHIVO?" & Chr(13) + Chr(13) & _
"(De preferencia el nombre de la empresa que hizo el pedido)", "NOMBRE DEL ARCHIVO")
If nbrlibro = "" Then
Exit Sub
End If
ActiveSheet.Copy
Set wb = ActiveWorkbook
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton2").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton3").Select
Selection.Delete
Sheets("Orden de busqueda y selección").Select
Sheets("Orden de busqueda y selección").Name = nbrlibro
With wb
.SaveAs ruta & nbrlibro & ".xls"
End With
ActiveWorkbook.Close
Set wb = Nothing
Application.ScreenUpdating = True
End Sub
Espero haberme explicado me puedan ayudar, les dejo el código para que me digan que puedo hacer o que instrucción usar.
Gracias de antemano y Saludos!
Pd: Quisiera saber si estoy usando de manera correcta la aplicación ScreenUpdating, de lo contrario espero me puedan decir como colocarlo dentro de un código.
Private Sub CommandButton1_Click()
'BOTON DE GUARDAR
Dim ruta As String
Dim nbrlibro As String
Dim wb As Workbook
Application.ScreenUpdating = False
ruta = "\\fserverpm\Users\CarlosCQ1Cpt\Escritorio\"
nbrlibro = InputBox("¿NOMBRE DEL ARCHIVO?" & Chr(13) + Chr(13) & _
"(De preferencia el nombre de la empresa que hizo el pedido)", "NOMBRE DEL ARCHIVO")
If nbrlibro = "" Then
Exit Sub
End If
ActiveSheet.Copy
Set wb = ActiveWorkbook
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton2").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton3").Select
Selection.Delete
Sheets("Orden de busqueda y selección").Select
Sheets("Orden de busqueda y selección").Name = nbrlibro
With wb
.SaveAs ruta & nbrlibro & ".xls"
End With
ActiveWorkbook.Close
Set wb = Nothing
Application.ScreenUpdating = True
End Sub
Respuesta de Abraham Valencia
1