ブックを保存し、共用として保護します。
構文
式。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 のサポートおよびフィードバックを参照してください。