
mansistemas escribió:Bueno... no hay peor diligencia que la que no se hace; como me imagino que todos acudimos el sitio a exponer nuestras dudas, pero no nos sentamos a esperar a que nos respondan sino que tambien seguimos investigando... pues bien fue mi caso y aca esta la respuesta por si alguien le puede servir
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel _
As Boolean)
If SaveAsUI Then
MsgBox "Opcion Guardar como desactivada", vbExclamation, "Exceluciones"
Cancel = True
Exit Sub
End If
MsgBox "Opcion Guardar desactivada", vbExclamation, "Exceluciones"
Cancel = True
End Sub
Hasta la vista.xls

Usuarios navegando por este Foro: Bing [Bot] y 8 invitados