I have searched help in excel and have not seen references to this. Is it
possible to set a password for a folder and not the individuals workbooks in
that folder in excel. Failing that, would it be possible to assign a
password via code to multiple workbooks in a folder
--
thanks as always for the help

Hi jer,

jer wrote:
I have searched help in excel and have not seen references to this.
Is it possible to set a password for a folder and not the individuals
workbooks in that folder in excel. Failing that, would it be
possible to assign a password via code to multiple workbooks in a
folder

The best way to do this, assuming you're in a networked environment, is to
use Windows-based security on the folder. That will protect the workbooks
better than any form of Excel protection. If you're not sure how to do that
(or don't have the necessary rights), check with your sys admin.

Here's an example that will protect all workbooks within the folder C:\test
with the password "test":

Private Const msFOLDER_PATH As String = "C:\test"

Sub demo()
Dim fso As Object
Dim fil As Object

Set fso = CreateObject("Scripting.FileSystemObject")

For Each fil In fso.GetFolder(msFOLDER_PATH).Files
If fil.Type = "Microsoft Excel Worksheet" Then
With Workbooks.Open(fil.Path, False)
Application.DisplayAlerts = False
.SaveAs Filename:=.FullName, Password:="test"
Application.DisplayAlerts = True
.Close False
End With
End If
Next fil

Set fso = Nothing
End Sub

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]

Thanks Jake. We are using windows based security however supervisors are
requesting greater security for the files in particular folders. One thing
though, I notice that when the password is assigned unprotecting the workbook
is not possible. Can somebody manually unprotect the workbook when the
password is assigned via code
--
thanks as always for the help
jer


"Jake Marx" wrote:

Hi jer,

jer wrote:
I have searched help in excel and have not seen references to this.
Is it possible to set a password for a folder and not the individuals
workbooks in that folder in excel. Failing that, would it be
possible to assign a password via code to multiple workbooks in a
folder

The best way to do this, assuming you're in a networked environment, is to
use Windows-based security on the folder. That will protect the workbooks
better than any form of Excel protection. If you're not sure how to do that
(or don't have the necessary rights), check with your sys admin.

Here's an example that will protect all workbooks within the folder C:\test
with the password "test":

Private Const msFOLDER_PATH As String = "C:\test"

Sub demo()
Dim fso As Object
Dim fil As Object

Set fso = CreateObject("Scripting.FileSystemObject")

For Each fil In fso.GetFolder(msFOLDER_PATH).Files
If fil.Type = "Microsoft Excel Worksheet" Then
With Workbooks.Open(fil.Path, False)
Application.DisplayAlerts = False
.SaveAs Filename:=.FullName, Password:="test"
Application.DisplayAlerts = True
.Close False
End With
End If
Next fil

Set fso = Nothing
End Sub

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]

Hi jer,

jer wrote:
Thanks Jake. We are using windows based security however supervisors
are requesting greater security for the files in particular folders.
One thing though, I notice that when the password is assigned
unprotecting the workbook is not possible. Can somebody manually
unprotect the workbook when the password is assigned via code

It works for me. When I run the routine below, I can then open all
workbooks in the C:\test folder using the password "test". So whatever you
passed in the Password argument should work when opening them manually.

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]


Private Const msFOLDER_PATH As String = "C:\test"

Sub demo()
Dim fso As Object
Dim fil As Object

Set fso = CreateObject("Scripting.FileSystemObject")

For Each fil In fso.GetFolder(msFOLDER_PATH).Files
If fil.Type = "Microsoft Excel Worksheet" Then
With Workbooks.Open(fil.Path, False)
Application.DisplayAlerts = False
.SaveAs Filename:=.FullName, Password:="test"
Application.DisplayAlerts = True
.Close False
End With
End If
Next fil

Set fso = Nothing
End Sub