Loading
Cómo eliminar el historial de documentos recientes en la cinta de Excel con VBA.
Estoy utilizando el código de abajo, pero no parece funcionar.
Sub Button1_Click() For i = 1 To Application.RecentFiles.Count - 1 Application.RecentFiles(i).Delete Next i End Sub Gracias ...
Hola Sumanta,
No hay ningún mecanismo directo para ocultar la lista de archivos usados más recientemente. Se puede hacer, sin embargo, mediante el establecimiento de la Application.RecentFiles.Maximum a cero (0).
Para una discusión detallada, vea Cambiar la cinta de opciones en Excel 2007 por Ron de Bruin, y baje hasta la sección titulada "ejemplos dictador y ocultar el MRU ('utilizado más recientemente) la lista de archivos", con el código proporcionado por Jim Rech.
Esto también puede hacerse manualmente. Ver:Cómo Borrar y Eliminar lista de documentos recientes en Office 2007 (Word, Excel, PowerPoint).
- Mike
Para borrar la lista de archivos usados recientemente, y no meterse con la configuración del usuario, el código siguiente trabajo:
originalSetting = Application.RecentFiles.Maximum Application.RecentFiles.Maximum = 0 Application.RecentFiles.Maximum = originalSetting Esto eliminará los archivos recientes y luego reiniciar el número máximo de archivos recientes de vuelta a lo que el usuario había inicialmente.
Si lo que desea es eliminarlos de forma individual, usted puede caminar a través de ellos en el orden inverso a hacer el trabajo.
Dim i As Integer For i = Application.RecentFiles.Count To 1 Step -1 Application.RecentFiles.Item(i).Delete Next Tiene que ejecutar desde el fondo de la colección de arriba, porque tan pronto como se elimina una de las entradas de la colección RecentFiles, todos los índices del cambio de los archivos restantes. De esta manera, cada vez que a través del bucle, se elimina el último elemento de la colección.
Y también, ya que esta colección es la base 1 en lugar de la Base 0, el último elemento de la colección es más que Application.RecentFiles.Count. RecentFiles.Count-1.
Me encantan todas esas incoherencias poco en Excel .. :)
Este texto ha sido obtenida de esta fuente original en Stackoverflow.com