Alerta de guardar, archivo ya existente
Cuando mando a guardar mi archivo por una macro, me sale la alerta de que el archivo ya existe, puesto que el archivo ya existe en la carpeta donde lo guardo, y lo quiero remplazar. ¿Cómo hago para aceptar la alerta por la macro?
1 Respuesta
Respuesta de Victor Perdomo
1
Solo pon este código para desactivar las alertas
Application.DisplayAlerts = False
para restaurar las alertas pon de nuevo true
Application.DisplayAlerts = False
para restaurar las alertas pon de nuevo true
No funciona.
Private Sub botoncerrar_Click()
Unload Me
Sheets(1).Protect Password:="lacami85"
Sheets(2).Protect Password:="lacami85"
Sheets(3).Protect Password:="lacami85"
ActiveWorkbook.SaveAs FileFormat:=52
Application.DisplayAlerts = False
End Sub
Me sale, si deseo remplazar el archivo ya existente
Private Sub botoncerrar_Click()
Unload Me
Sheets(1).Protect Password:="lacami85"
Sheets(2).Protect Password:="lacami85"
Sheets(3).Protect Password:="lacami85"
ActiveWorkbook.SaveAs FileFormat:=52
Application.DisplayAlerts = False
End Sub
Me sale, si deseo remplazar el archivo ya existente
Ponlo antes de salvar
Private Sub botoncerrar_Click()
Unload Me
Sheets(1).Protect Password:="lacami85"
Sheets(2).Protect Password:="lacami85"
Sheets(3).Protect Password:="lacami85"
Application.DisplayAlerts = False ' de aqui en adelante no se mostraran alertas
ActiveWorkbook.SaveAs FileFormat:=52
Application.DisplayAlerts = true ' restauras las alertas, para o tener problemas con otras hojas
End
Private Sub botoncerrar_Click()
Unload Me
Sheets(1).Protect Password:="lacami85"
Sheets(2).Protect Password:="lacami85"
Sheets(3).Protect Password:="lacami85"
Application.DisplayAlerts = False ' de aqui en adelante no se mostraran alertas
ActiveWorkbook.SaveAs FileFormat:=52
Application.DisplayAlerts = true ' restauras las alertas, para o tener problemas con otras hojas
End
