VBA Excel

Buscando en Internet me encontré con otras macros interesantes de varias formas de Cerrar un Libro de Excel, cada una tiene un botón diferente. Cerrar Excel con un botón: Private Sub CommandButton1_Click() Application.Quit End Sub Cerrar Excel sin Notificaciones: Private Sub CommandButton2_Click() Application.DisplayAlerts = False Application.Quit End Sub Guardar Libro Activo y Cerrarlo: Private Sub CommandButton3_Click() ActiveWorkbook.Save Application.Quit End Sub Guardar Todos los Libros Abiertos y Cerrar Excel: Private Sub CommandButton4_Click() Dim wb As Workbook For Each wb In Workbooks     wb.Save Next Application.Quit End Sub Esta es un macro que cierra el libro en un tiempo, este código esta para que el libro se cierre en 2 horas 30 minutos, el tiempo se lo pueden modificar, si lo quieren en 1 minuto solo ponen  ("00:01:00") , por 10 minutos  ("00:10:00") , a si sucesivamente. Este código va en los eventos del libro (This...

Una macro interesante que a varios les puede interesar, esta macro no necesita códigos ascii. La primera es para que en un textbox solo sean letras Mayúsculas al escribir sobre esté. Private Sub TextBox1_Change() Dim I As Integer TextBox1.Text = UCase(TextBox1.Text) I = Len(TextBox1.Text) TextBox1.SelStart = I End Sub y esta otra es para letras Minúsculas aunque en el teclado este activado la letra de Mayúsculas Private Sub TextBox2_Change() Dim I As Integer TextBox2.Text = LCase(TextBox2.Text) I = Len(TextBox2.Text) TextBox2.SelStart = I End Sub Espero y les sirva, Saludos.

Macros interesantes en Excel que buscando por Internet me parecen interesantes y las comparto haber si a alguien mas le sirven.