ブック・シート操作

フォルダ内にある同じパスワードが設定されている複数のブックのパスワードをまとめて解除しています。処理中に指定外のパスワード、もしくはパスワードが設定されていないブックがあった場合は、そのファイルは無視して処理を継続させています。実行結果はイミディエイトウィンドウに表示されるようにしています。

フォルダ内の複数のブックに異なるパスワードをまとめて設定しています。ただし処理中に元からブックにパスワードが設定されているブックがあった場合は、そのファイルは無視して処理を継続させています。サンプルコードではパスワードには8桁のランダムな文字列を作成し、その文字列をパスワードとして設定しています。

VBAで指定したフォルダ内のブックファイルにパスワード設定がされているかを順番に確認してその結果を一覧で返しています。パスワード設定の有無チェックにはWorkbooks.OpenメソッドでExcelファイルを開き、その戻り値で判定しています。

VBAで指定したブックファイルにパスワード設定がされているかを確認します。パスワード設定の有無チェックにはWorkbooks.Openメソッドの引数(Password)にブランクを指定した状態でExcelファイルを開き、その戻り値がNothingであればパスワードの設定ありと判定しています。

保護されているシートにマクロからの操作のみを許可する方法になります。ProtectメソッドのUserinterfaceOnlyオプションを利用することで保護されている状態でもマクロからの操作だけは反映されるようになります。

VBAでシートの保護を設定するにはProtectメソッド、保護の解除にはUnprotectメソッドを利用します。また保護する際のパスワードの設定もPasswordオプションを利用することで設定することができます。解除も同様にパスワードが掛かったシートの保護解除にはPasswordオプションを利用することで解除ができるようになります。

別のブックにシートを移動、コピーさせるにはMoveメソッド、Copyメソッドを利用します。シートを指定した位置に配置したい場合はMoveメソッド、Copyメソッドの引数でBefore、またはAfterで指定します。ブックの指定しない場合は新しいブックにシートが移動、コピーされます。

ブック内のすべてシート名を取得するには、For EachステートメントとSheetsコレクションのNameプロパティを利用することで取得できます。シート名の取得では、Sheetsコレクションに対して繰り返し処理をすることでブック内のシート名を取得させます。

指定したシートを非表示、または表示さえるにはWorksheets コレクション、またはSheetsコレクションのVisibleプロパティを利用します。シートの非表示、表示を切り替えるにはSheetsオブジェクトのVisibleプロパティに Trueまたは Falseを指定、もしくは定数を設定することができます。

複数シート追加と同時に追加されたシート名を変更するには、追加したいシート分だけループ処理でシート追加とシート名設定をすることになります。ループ処理で順次設定させている理由としてはAddメソッドの引数であるCountを利用した場合、最後に追加されたシートだけがActiveな状態となるので追加と同時にシート名を設定するには、その状態で名称を設定する必要があります。