同一のフォルダにある複数のファイル(600個位)に同一の書き込みパスワードを設定したいのですが、まとめてやれる方法はないでしょうか?どうもそういうソフトウェアがありそうなことはわかったのですが、有料のものしか見つけられませんでした(会社のインターネットにブロックがかかっているせいかもしれません)。できればフリーソフトで手に入れたいのですが、何かよいものをご存知の方いらっしゃいますか?
もちろん、フリーソフト以外でもマクロやその他の方法でも何かいい方法があれば教えて欲しいです。
はじめは1個1個設定していたのですが、100個を越したあたりで吐き気がしてきて、もう少し楽な方法があるかもと思い探しております。お知恵を貸してください。
No.2
- 回答日時:
安直ですが、圧縮ツール(仮にZIP)でパスワード設定する方法は如何でしょうか。
仮にWin-XPなら右クリックメニューの「送る」から圧縮(ZIP)フォルダ作成後、パスワード追加(同一パスワードになる)で一括設定が可能です。
No.3
- 回答日時:
ためしに作って見ました。
このマクロを実装したブックを対象とするフォルダー内に保存してから実行してみてください。ただし既に読取専用に設定されたBOOKがあると失敗しますのでフォルダー内は設定されていないブックだけにしてください。
Sub TEST01()
Application.ScreenUpdating = False '画面更新を停止
On Error GoTo line 'エラーの場合エラー処理へ飛ぶ
myfdr = ThisWorkbook.Path 'このBOOKのフォルダー名取得
fname = Dir(myfdr & "\*.xls") 'フォルダ内のExcelブックを検索
Do Until fname = Empty '全てを検索
If fname <> ThisWorkbook.Name Then 'ブック名がこのブックの名前でなければ
Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのブックを開きwbとする。
Application.DisplayAlerts = False '警告停止
wb.SaveAs Filename:=fname, WriteResPassword:="pass" '書き込みパスワード設定
wb.Close '閉じる
Application.DisplayAlerts = True '警告停止解除
n = n + 1 'ブック数をカウント
End If
fname = Dir 'フォルダ内の次のExcelブックを検索
Loop '繰り返す
Application.ScreenUpdating = True '画面更新停止を解除
MsgBox n & "件のブックを処理しましました。", vbInformation, " ( ̄ー ̄)v "
Exit Sub
line: 'エラー処理
Application.ScreenUpdating = True '安全策
Application.DisplayAlerts = True '安全策
MsgBox "予期せぬ事由により" & n + 1 & "件目で失敗し、中断しました。", vbCritical, " Σ( ̄ロ ̄lll) "
End Sub
No.4ベストアンサー
- 回答日時:
No3のmerlionXXです。
よく考えたらもう100個も同一の書き込みパスワードを設定しているのですよね。
だったら、いまさらフォルダーを分けるのも大変でしょうから、同一であれば書き込みパスワードが設定されたBOOKがあってもOKのように変えてみました。
Const myPass = "pass" の部分で "" の中のpassをほんとのパスワードに換えて実行してみてください。
Sub TEST02()
Const myPass = "pass"
Application.ScreenUpdating = False '画面更新を停止
On Error GoTo line 'エラーの場合エラー処理へ飛ぶ
myfdr = ThisWorkbook.Path 'このBOOKのフォルダー名取得
fname = Dir(myfdr & "\*.xls") 'フォルダ内のExcelブックを検索
Do Until fname = Empty '全てを検索
If fname <> ThisWorkbook.Name Then 'ブック名がこのブックの名前でなければ
Set wb = Workbooks.Open(myfdr & "\" & fname, WriteResPassword:=myPass) 'そのブックを開き、wbとする。
Application.DisplayAlerts = False '警告停止
wb.SaveAs Filename:=fname, WriteResPassword:=myPass '書き込みパスワード設定
wb.Close '閉じる
Application.DisplayAlerts = True '警告停止解除
n = n + 1 'ブック数をカウント
End If
fname = Dir 'フォルダ内の次のExcelブックを検索
Loop '繰り返す
Application.ScreenUpdating = True '画面更新停止を解除
MsgBox n & "件のブックを処理しましました。", vbInformation, " ( ̄ー ̄)v "
Exit Sub
line: 'エラー処理
Application.ScreenUpdating = True '安全策
Application.DisplayAlerts = True '安全策
MsgBox "予期せぬ事由により" & n + 1 & "件目で失敗し、中断しました。", vbCritical, " Σ( ̄ロ ̄lll) "
End Sub
できました!!!
感謝、感謝、感謝です。
助かりました。あんなに苦労してたのに15分くらいで終わりました。
今回はコピーしてすぐに使ってしまいましたが、後でじっくりコードを見て勉強します。回答ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Windows 10 外部ドライブにマウントできない問題について 9 2022/03/22 18:08
- Windows 10 windowsの起動パスワードについて 1 2022/08/15 10:19
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- 統計学 t検定について教えてください 2 2023/02/23 16:35
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
- サーバー WIN10のファイル又はフォルダを社内LAN上HDDで共有する場合、特定の人だけが見えるようにしたい 3 2023/04/18 00:32
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
フォルダ内のブック全部にパスワードを設定したい
Excel(エクセル)
-
複数ファイルへの一括パスワード入力&パスワード解除について
PowerPoint(パワーポイント)
-
フォルダ内の複数ブック・シートを一括保護/解除する
PowerPoint(パワーポイント)
-
-
4
エクセル(excel)のパスワード解除について
その他(Microsoft Office)
-
5
[Excel VBA] フォルダ内の複数のパスワード付ブックを全て読み取り専用で開くには?
Visual Basic(VBA)
-
6
Wordでこのような三角が出てくるようになってしまったのですがどうやったら消せますか?
Word(ワード)
-
7
差し込み印刷の元データファイルの探し方
Excel(エクセル)
-
8
エクセルで条件に一致したセルの隣のセルを取得したい
その他(Microsoft Office)
-
9
エクセルの複数シートの保護を一括でする方法を教えてください(編集したいセルあり)
Excel(エクセル)
-
10
1項しかない条文の表示の仕方教えて下さい。
その他(法律)
-
11
大量のフォルダからひとつのフォルダにファイルをまとめたい!
その他(ソフトウェア)
-
12
Excelにメールを添付する
Yahoo!メール
-
13
Excelで複数ブックの同一セルに同じ値を入力するにはどうすればよいですか?
Excel(エクセル)
-
14
EXCELファイルに誰がアクセスしたかを見たい
Access(アクセス)
-
15
エクセル 数字をすべて○などの記号に置換するには
Excel(エクセル)
-
16
マクロ 自動でパスワード及び指定のセル内文字列をパスにする方法を教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メールをパスワードつきで送る方法
-
Excelのセルにユーザー名...
-
YouTubeが毎回ログインしないと...
-
大学定期試験過去問サイト「過...
-
メールを返信したら、英語のメ...
-
LINE TCBというところからLINE...
-
メールのマナー編
-
インスタの捨て垢で友達のスト...
-
メールアドレスで上付きのハイフン
-
エクセルで複数ファイルに同一...
-
「@」(アットマーク)の無いメ...
-
メールアドレス 上バーの入力...
-
CSVファイルを添付するときにパ...
-
URLとメールアドレス
-
メールエラー
-
メールアドレスから個人を特定...
-
高一男子です 僕が絶対に悪いん...
-
Outlookで、メールを他...
-
インスタグラムでブロックされ...
-
ワードに入力したメールアドレ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのセルにユーザー名...
-
メールをパスワードつきで送る方法
-
LINE TCBというところからLINE...
-
メールアドレス 上バーの入力...
-
大学定期試験過去問サイト「過...
-
メールエラー
-
メールのマナー編
-
メールアドレスで上付きのハイフン
-
インスタの捨て垢で友達のスト...
-
インスタのアイコンについてるN...
-
メールを返信したら、英語のメ...
-
steam版 apexのログアウト方法...
-
ビーリアルのユーザー名を変え...
-
メールアドレスから個人を特定...
-
携帯電話を解約してもSMSの受信...
-
「@」(アットマーク)の無いメ...
-
YouTubeが毎回ログインしないと...
-
解約済みの iPadについて 解約...
-
カカオで退会せずに、アプリだ...
-
CSVファイルを添付するときにパ...
おすすめ情報