Mahesh tiene varios libros de Excel, todos almacenados en la misma carpeta.

Se pregunta si es posible asignar una contraseña a toda la carpeta para que todos los libros estén protegidos.

La respuesta corta es no, no puede hacer eso en Excel. Sin embargo, hay una serie de técnicas diferentes que puede aplicar que proporcionarán el resultado deseado. El primer método es utilizar un programa como WinZip para combinar todos los libros de trabajo en un solo archivo zip. Este archivo puede protegerse con contraseña (en WinZip) para que no todos puedan abrirlo. A continuación, puede abrir el archivo zip (con su contraseña) y hacer doble clic en cualquier libro de trabajo para modificarlo con Excel. El resultado, a todos los efectos, es que tiene una «carpeta» (el archivo zip) que está protegida, mientras que los archivos individuales que contiene no lo están.

Otro enfoque es colocar la carpeta del libro de trabajo en una unidad de red y luego hacer que el administrador de la red proteja la carpeta. La mayoría de los sistemas operativos de red permiten a los administradores controlar quién puede tener acceso a carpetas específicas y su contenido.

Un tercer enfoque consiste en utilizar un programa de terceros para proteger la carpeta.

Sin duda, una búsqueda rápida en la Web mostrará varios candidatos, como los siguientes:

http://www.folder-password-expert.com

También puede utilizar una macro de Excel para proteger los libros. Si bien no ofrece una verdadera protección a nivel de carpeta, le permite proteger todos los libros de trabajo de la carpeta de la manera más fácil posible.

Sub ProtectAll()

Dim wBk As Workbook     Dim sFileSpec As String     Dim sPathSpec As String     Dim sFoundFile As String

sPathSpec = "C:\MyPath\"

sFileSpec = "*.xls"



sFoundFile = Dir(sPathSpec & sFileSpec)

Do While sFoundFile <> ""

Set wBk = Workbooks.Open(sPathSpec & sFoundFile)

With wBk             Application.DisplayAlerts = False             wBk.SaveAs FileName:=.FullName, _               Password:="swordfish"

Application.DisplayAlerts = True         End With         Set wBk = Nothing         Workbooks(sFoundFile).Close False         sFoundFile = Dir     Loop End Sub

Asegúrese de cambiar las variables sPathSpec y sFileSpec, cerca del comienzo del código, para reflejar la carpeta que contiene los libros de trabajo y el patrón de los nombres de los libros de trabajo que desea proteger. La macro asume que todos los libros de trabajo están desprotegidos; si alguno no lo está, la macro solicitará la contraseña del libro.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2878) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posteriores) aquí:

link: / excelribbon-Protecting_an_Entire_Folder_of_Workbooks [Protección de una carpeta completa de libros de trabajo].