Borrado de datos

[emiaj61]

tengo el siguiente codigo que trabaja bien, efectua el borrado del rango en la fecha indicada.Pero al cerrar el archivo pide confirmar si se desea guardar los cambios.
Hay manera de guardar los cambios en automatico ( el Borrado del rango ) con codigo vb, tal que el programa no solicite confirmacion.

Sub Auto_Open()
  Dim deadline As Date
  deadline = "05/31/07"
  If Date > deadline Then
    With Activesheet.Range("Mi Rango")
    .Clear
    End With
  End If
End Sub

 

[galileogali]

En el módulo Thisworkbook, podrias poner esto:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = False
Application.DisplayAlerts = False
ThisWorkbook.Save

Application.DisplayAlerts = True

End Sub

GALILEOGALI

 

[emiaj61]

muchas gracias

 

[emiaj61]

una vez mas gracias Don Gali, funciona perfecto.

 

[Greg Truby]

Bueno, a mí, no me gusta poner un SAVE automático en el _BeforeClose() por lo que llamo el "factor oops". Si el usuario hace un cambio grande y malo que no quiere guardar, esto le quita la opción de cerrar el cuaderno sin daño. Mejor poner el SAVE en el lugar despuesito del cambio que desea guardar:

'//Sub Auto_Open() 
'// cambie del viejo (auto_open) al nuevo (workbook_open)
Private Sub Workbook_Open()
      Dim deadline As Date 
      deadline = "05/31/07" 
      If Date > deadline Then
     '// si hay más de una hoja esto es débil.  
     '// sería mejor usar el nombre o el codename de la hoja 
     '// si es un rango nombrado entonces lo más probable
     '// es que pertenece al cuaderno y no la hoja entonces 
     '// nombrar la hoja sobra.
      Activesheet.Range("Mi Rango") .Clear 
    End If 
    me.save
End Sub

<hr />
Saludos, Gali.

 

[galileogali]

Greg:
Comparto plenamente tu objeción: pero "en la mesa 6 pidieron Conejo al chocolate arriba de una pizza... yo traté de cumplir con lo solicitado" (jejejejeje)

GALI