
同一のフォルダにある複数のファイル(600個位)に同一の書き込みパスワードを設定したいのですが、まとめてやれる方法はないでしょうか?どうもそういうソフトウェアがありそうなことはわかったのですが、有料のものしか見つけられませんでした(会社のインターネットにブロックがかかっているせいかもしれません)。できればフリーソフトで手に入れたいのですが、何かよいものをご存知の方いらっしゃいますか?
もちろん、フリーソフト以外でもマクロやその他の方法でも何かいい方法があれば教えて欲しいです。
はじめは1個1個設定していたのですが、100個を越したあたりで吐き気がしてきて、もう少し楽な方法があるかもと思い探しております。お知恵を貸してください。
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分くらいで終わりました。
今回はコピーしてすぐに使ってしまいましたが、後でじっくりコードを見て勉強します。回答ありがとうございました。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【教えて!goo ウォッチ 人気記事】風水師直伝!住まいに幸運を呼び込む三つのポイント
記事を読む>>
-
フォルダ内のブック全部にパスワードを設定したい
Excel(エクセル)
-
複数ファイルへの一括パスワード入力&パスワード解除について
PowerPoint(パワーポイント)
-
エクセル(excel)のパスワード解除について
その他(Microsoft Office)
-
-
4
フォルダ内の複数ブック・シートを一括保護/解除する
PowerPoint(パワーポイント)
-
5
ワード、エクセルに自動的にパスワード設定したい
フリーソフト
-
6
フォルダにパスワードをかける方法
その他(ソフトウェア)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
VBAからPDFファイルにパスワードを設定したい
Visual Basic(VBA)
-
9
複数PDFファイルの一括セキュリティ設定
その他(ソフトウェア)
-
10
EXCELで複数のシートを一度に「シートの保護」することはできますか?
Excel(エクセル)
-
11
大量のフォルダからひとつのフォルダにファイルをまとめたい!
その他(ソフトウェア)
-
12
すべてのワード・エクセルファイルに一度に同じパスワードを設定する方法?
Word(ワード)
-
13
受信メールの添付ファイル忘れの指摘方法
Yahoo!メール
-
14
フォルダ内の全ブックのシート名を変更したいです。
Excel(エクセル)
-
15
女性はマンコ舐めてほしいんですか???
その他(性の悩み)
-
16
[Excel VBA] フォルダ内の複数のパスワード付ブックを全て読み取り専用で開くには?
Visual Basic(VBA)
-
17
ACCESS側からEXCELの書式を設定するには?
Visual Basic(VBA)
-
18
長いURLをメールで送った際に途中でリンクがかかっていない。
Yahoo!メール
-
19
Excelのグレーの部分を戻したい
Excel(エクセル)
-
20
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
大学定期試験過去問サイト「過...
-
5
メールアドレス 上バーの入力...
-
6
Excelのセルにユーザー名...
-
7
Apple IDの関連付け
-
8
http://ntt.setup/へログインし...
-
9
メールアドレスで上付きのハイフン
-
10
u torrent webをアンインストー...
-
11
CSVファイルを添付するときにパ...
-
12
メールを返信したら、英語のメ...
-
13
インターネットカフェでCD書き...
-
14
Returned mail: see transcript...
-
15
コスモ石油のアプリの機種変後...
-
16
「@」(アットマーク)の無いメ...
-
17
loerneeという販売会社は詐欺で...
-
18
Instagramについて
-
19
一つのパソコンに複数のメール...
-
20
存在しないアドレスにメールを...
おすすめ情報
公式facebook
公式twitter