同一のフォルダにある複数のファイル(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も見ています
-
準・究極の選択
「年収1000万円で一生カレーライス」か 「年収180万円で毎日何でも食べ放題」 あなたはどちらを選びますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
フォルダ内のブック全部にパスワードを設定したい
Excel(エクセル)
-
複数ファイルへの一括パスワード入力&パスワード解除について
PowerPoint(パワーポイント)
-
エクセル(excel)のパスワード解除について
その他(Microsoft Office)
-
-
4
フォルダ内の複数ブック・シートを一括保護/解除する
PowerPoint(パワーポイント)
-
5
[Excel VBA] フォルダ内の複数のパスワード付ブックを全て読み取り専用で開くには?
Visual Basic(VBA)
-
6
勤続年数の平均を求めたい時の関数
Windows Vista・XP
-
7
官公庁へのあいさつ文の書き方を教えてください。
日本語
-
8
パスワード付きzip圧縮を連続処理したい
その他(プログラミング・Web制作)
-
9
EXCELで複数のシートを一度に「シートの保護」することはできますか?
Excel(エクセル)
-
10
「管理」「運用」「保守」の意味の違いを教えてください。
ネットワーク
-
11
複数ファイルにある特定のシートを一度に印刷したい
Excel(エクセル)
-
12
個別に違う添付ファイルを付けて一括でメール配信をしたいのですが、EXC
Visual Basic(VBA)
-
13
エクセルで条件に一致したセルの隣のセルを取得したい
その他(Microsoft Office)
-
14
VBA フォルダ内の全ブック、さらに全シートの一括保護、解除(パスワードはなし)
Excel(エクセル)
-
15
VBAからPDFファイルにパスワードを設定したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユニクロやGUのシフト管理アプ...
-
Excelのセルにユーザー名...
-
iPhoneのiCloudメールなよです...
-
YouTubeが毎回ログインしないと...
-
インスタの捨て垢で友達のスト...
-
インスタの乗っ取り解除につい...
-
LINE TCBというところからLINE...
-
「@」(アットマーク)の無いメ...
-
メールを返信したら、英語のメ...
-
メールのマナー編
-
携帯電話を解約してもSMSの受信...
-
verify@twitter.comから、メー...
-
メールをパスワードつきで送る方法
-
エクセルで複数ファイルに同一...
-
メールアドレスで上付きのハイフン
-
インスタのアイコンについてるN...
-
メールアドレスを人に教えるの...
-
星の王子さまというアプリで、 ...
-
runas実行した時にきかれるパス...
-
存在しないアドレスにメールを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのセルにユーザー名...
-
YouTubeが毎回ログインしないと...
-
YahooIDをパスワード形式にした...
-
インスタの捨て垢で友達のスト...
-
iPhoneのiCloudメールなよです...
-
携帯電話を解約してもSMSの受信...
-
インスタの乗っ取り解除につい...
-
「@」(アットマーク)の無いメ...
-
メールを返信したら、英語のメ...
-
メールアドレスで上付きのハイフン
-
verify@twitter.comから、メー...
-
星の王子さまというアプリで、 ...
-
CSVファイルを添付するときにパ...
-
LINE TCBというところからLINE...
-
メールアドレス 上バーの入力...
-
ユニクロやGUのシフト管理アプ...
-
インスタのアイコンについてるN...
-
インスタのアカウントの消し方...
-
高一男子です 僕が絶対に悪いん...
-
メールをパスワードつきで送る方法
おすすめ情報