フォルダ内のパスワード付きエクセルを パスワードリストに沿って解除するマクロ コード Sub 個別パスワード一括解除() Dim FolderPath As String Dim wb As Workbook Dim ws As Worksheet Dim lastrow As Long Dim i As Long Dim FilePath As String ' フォ…

マクロエクセルと同じフォルダにあるエクセルファイルに リストに沿ってそれぞれ個別のパスワードを付与するマクロ コード Sub 個別パスワード一括設定() Dim FolderPath As String Dim wb As Workbook Dim response As VbMsgBoxResult Dim ws As Worksheet …

同じフォルダの中にあるパスワードが同じエクセルのパスワードを インプットボックスに一回入力するだけで一括して解除するマクロ Sub パスワード一括解除() Dim FolderPath As String Dim Password As String Dim Filename As String Dim wb As Workbook ' …

フォルダ内にあるエクセル（拡張子がxlsxのもの）に インプットボックスで入力したパスワードを 一括で設定するマクロ コード Sub パスワード一括設定() Dim FolderPath As String Dim Password As String Dim Filename As String Dim wb As Workbook Dim re…

複数のワークシートがタブごとに分けられてるブックで それぞれのワークシートをコピーして分割して 新しいブックとして保存するマクロ コード Sub 各ワークシートをコピーして新しいブックに保存する() Dim SourceWorkbook As Workbook Dim SourceWorksheet…

こういう名簿から リストシートに記入された部署名に従って 部署ごとの ワークシートに 分割するマクロ コード Sub 名簿をリストに沿って分割する() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim listlastrow As Long Dim filterColumn As Range Dim filt…

こういう全社員が載ってる名簿から、いらない行を削除して こんな感じに必要な部署の社員だけのリストを作るマクロ コード Sub 必要な部署だけの名簿にする() Dim ws As Worksheet Dim filterColumn As Range Dim filterValue As String Dim lastRow As Long…