Workbook.ProtectSharing メソッド (Excel)

ブックを保存し、共用として保護します。

構文

式。ProtectSharing (FileName、 Password、 WriteResPassword、 ReadOnlyRecommended、 CreateBackup、 SharingPassword、 FileFormat)

式Workbook オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
FileName	省略可能	バリアント型 (Variant)	保存されたファイルの名前を示す文字列。 完全なパスを含めることができます。そうしないと、Microsoft Excel によって現在のフォルダーにファイルが保存されます。
Password	オプション	バリアント型 (Variant)	ファイルに指定する保護パスワードを示す大文字と小文字を区別する文字列。 15 文字以下にする必要があります。
WriteResPassword	オプション	バリアント型 (Variant)	このファイルの書き込みを制限するパスワードを示す文字列を指定します。 ファイルがパスワードで保存され、ファイルを開いたときにパスワードが指定されていない場合、ファイルは読み取り専用で開かれます。
ReadOnlyRecommended	省略可能	バリアント型 (Variant)	ファイルを開くとき、ファイルを読み取り専用として開くように勧めるメッセージを表示するには、 True を指定します。
CreateBackup	省略可能	バリアント型 (Variant)	バックアップ ファイルを作成するには、 True を指定します。
SharingPassword	省略可能	バリアント型 (Variant)	共用としてファイルを保護するときに使用するパスワードを示す文字列を指定します。
FileFormat	省略可能	バリアント型 (Variant)	ファイル形式を示す文字列を指定します。

注釈

パスワードを忘れると、シートまたはブックの保護を解除できなくなってしまうので注意してください。 これらの文字を混在させたものになっていないパスワードは強固とはいえません。

• 強力なパスワード: Y6dh!et5
• 脆弱なパスワード: House27

パスワードの長さは 8 文字以上にします。 14 文字以上を使用するパスフレーズの方がより優れています。 パスワードを覚えておくことが重要です。 パスワードを忘れた場合、Microsoft には回復できません。 パスワードをメモし、保護対象の情報から離れた、セキュリティで保護された場所に保管してください。

例

次の例では、ブック 1 を保存し、共用として保護します。

 
Sub ProtectWorkbook() 
 
    Dim wbAWB As Workbook 
    Dim strPwd As String 
    Dim strSharePwd As String 
 
    Set wbAWB = Application.ActiveWorkbook 
 
    strPwd = InputBox("Enter password for the file") 
    strSharePwd = InputBox("Enter password for sharing") 
 
    wbAWB.ProtectSharing Password:=strPwd, _ 
        SharingPassword:=strSharePwd 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。