2023-01-01から1年間の記事一覧

フォルダ内の個別にパスワードが設定されたエクセルのパスワードをリストに従って解除するマクロ

フォルダ内のパスワード付きエクセルを パスワードリストに沿って解除するマクロ コード 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…