Maheshには多数のExcelブックがあり、すべて同じフォルダーに保存されています。

彼は、すべてのブックを保護するために、フォルダー全体にパスワードを割り当てることができるかどうか疑問に思います。

簡単な答えはノーです。Excelではそれを行うことはできません。ただし、目的の結果を提供するために適用できるさまざまな手法がいくつかあります。最初の方法は、WinZipなどのプログラムを使用して、すべてのワークブックを1つのzipファイルに結合することです。このファイルは（WinZipで）パスワードで保護できるため、誰もが開くことができるわけではありません。次に、zipファイルを（パスワードを使用して）開き、Excelで変更するために、その中の任意のブックをダブルクリックします。その結果、すべての目的と目的で、保護されている「フォルダー」（zipファイル）がありますが、そこに含まれている個々のファイルは保護されていません。

もう1つの方法は、ワークブックフォルダーをネットワークドライブに配置してから、ネットワーク管理者にフォルダーを保護させることです。ほとんどのネットワークオペレーティングシステムでは、管理者が特定のフォルダとそのコンテンツにアクセスできるユーザーを制御できます。

3番目のアプローチは、サードパーティのプログラムを使用してフォルダを保護することです。

Webをすばやく検索すると、次のようないくつかの候補が見つかることは間違いありません。

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

Excelマクロを使用してブックを保護することもできます。真のフォルダレベルの保護は提供しませんが、フォルダ内のすべてのブックを可能な限り簡単な方法で保護できます。

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

コードの先頭近くにあるsPathSpec変数とsFileSpec変数を変更して、ブックを含むフォルダーと、保護するブックの名前のパターンを反映させてください。このマクロは、すべてのブックが保護されていないことを前提としています。そうでない場合、マクロはワークブックのパスワードの入力を求めます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2878）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkワークブックのフォルダ全体を保護する。