archivos guardado con contraseña

Prueba con el siguiente código, que está escrito por Jim Rech (yo me he limitado a traducir los comentarios, y también he añadido el que sigue a la instrucción .LookIn...):


Sub ListProtectedFiles()
Dim Counter As Long, ListCounter As Long
Application.ScreenUpdating = False
Application.EnableEvents = False 'Bloquear el evento Workbook del libro
Hoja1.Columns(1).Clear
With Application.FileSearch
.NewSearch
.LookIn = "C:\" 'Directorio en que comenzará la búsqueda
.SearchSubFolders = False 'cambiar a True para buscar en todos los subdirectorios
.Filename = "*.xls"
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For Counter = 1 To .FoundFiles.Count
If FileProtected(.FoundFiles(Counter)) Then
ListCounter = ListCounter + 1
Hoja1.Cells(ListCounter, 1).Value = .FoundFiles(Counter)
End If
Next Counter
Else
MsgBox "There were no Excel files found."
End If
End With
Application.EnableEvents = True
End Sub

Function FileProtected(FName As String) As Boolean
On Error GoTo HasPass
''Se entiende que "XXXX" no es la contraseña de ningún libro...
Workbooks.Open Filename:=FName, Password:="XXXX"
ActiveWorkbook.Close False
Exit Function
HasPass:
FileProtected = True
End Function


Ten en cuenta que si los libros son muchos, especialmente los no protegidos, el código puede "tomarse su tiempo" ya que los abre.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Fernando Di Bernardo" escribió en el mensaje news:

Necesito una lista de los archivos que fueron grabados con contraseña.

Como lo puede lograr ??

Existe algun metodo o programa para ello.


Gracias.


Fernando

Fernando

Donde deberia poner este codigo ??

Gracias



"Fernando Arroyo" escribió en el mensaje
Prueba con el siguiente código, que está escrito por Jim Rech (yo me he
limitado a traducir los comentarios, y también he añadido el que sigue a la
instrucción .LookIn...):


Sub ListProtectedFiles()
Dim Counter As Long, ListCounter As Long
Application.ScreenUpdating = False
Application.EnableEvents = False 'Bloquear el evento Workbook del libro
Hoja1.Columns(1).Clear
With Application.FileSearch
.NewSearch
.LookIn = "C:\" 'Directorio en que comenzará la búsqueda
.SearchSubFolders = False 'cambiar a True para buscar en todos los
subdirectorios
.Filename = "*.xls"
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For Counter = 1 To .FoundFiles.Count
If FileProtected(.FoundFiles(Counter)) Then
ListCounter = ListCounter + 1
Hoja1.Cells(ListCounter, 1).Value = .FoundFiles(Counter)
End If
Next Counter
Else
MsgBox "There were no Excel files found."
End If
End With
Application.EnableEvents = True
End Sub

Function FileProtected(FName As String) As Boolean
On Error GoTo HasPass
''Se entiende que "XXXX" no es la contraseña de ningún libro...
Workbooks.Open Filename:=FName, Password:="XXXX"
ActiveWorkbook.Close False
Exit Function
HasPass:
FileProtected = True
End Function

- crea un libro nuevo
- pulsa Alt + F11
- ya en el editor de VBA, haz Insertar->Módulo
- pega el código en la ventana Código (la más grande)

Para ejecutarlo, puedes hacer F5 directamente desde el editor de VBA, o si prefieres ejecutarlo desde la hoja, sal del editor y haz Herramientas->Macro->Macros->Ejecutar.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Fernando Di Bernardo" escribió en el mensaje news:

Fernando

Donde deberia poner este codigo ??

Gracias