- ベストアンサー
エクセル(excel)のパスワード解除について
パスワードがかかっているエクセルのファイルが大量にあり、 パスワードもなにかわかっていてるのですが、いちいち開くときにパスワードを入力するのが大変です。 (ちなみに、パスワードはすべて同じです。) そこで、一括してパスワードを解除するファイルがあれば教えて頂きたいです。 よろしくお願いします。
- zwast9999
- お礼率100% (2/2)
- その他MS Office製品
- 回答数2
- ありがとう数7
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
> 一括してパスワードを解除するファイルがあれば教えて頂きたいです。 そのようなものは作らなければありませんよ。 作るための確認です。 パスワードとは読み取りパスワードのことですね? すべて同じ読み取りパスワードが設定されたエクセルのファイルが特定のフォルダー内に大量にあるのですね? それらのファイルの読み取りパスワードをすべて無しにしたいのですね? 以上の前提が正しければ以下のVBAを標準モジュールに記載したエクセルファイルを、必ず解除したいファイルがあるフォルダー内に保存してください。 標準モジュールに記載する方法は 1.新しいエクセルを開き、AltキーとF11キー同時に押し(以下Alt+F11キーと記述)て Visual Basic Editor を呼び出します。 2.Visual Basic Editor のメニューから「挿入」、「標準モジュール」で出てきたコードウィンド(右側の白い広い部分)に以下のコード(Sub~End Sub)をコピペします。 Sub TEST01() Dim myFn As String Dim pw As String Dim wb As Workbook '以上変数宣言 pw = InputBox("解除する読み取りパスワードを入力してね。") Application.ScreenUpdating = False '画面更新一時停止 myFn = Dir(ThisWorkbook.Path & "\*.xls?") 'エクセルBOOK検索 Do While myFn <> "" '対象が存在する限り続行 If myFn <> ThisWorkbook.Name Then 'ファイル名が自分の名と違っていれば Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & myFn, Password:=pw) '開く With wb Application.DisplayAlerts = False '警告一時停止 .SaveAs Filename:=wb.FullName, Password:="" 'パスワードなしで上書保存 .Close False '閉じる Application.DisplayAlerts = True '警告停止解除 End With End If myFn = Dir() '次検索 Loop '繰り返し Application.ScreenUpdating = True '画面更新停止解除 MsgBox "終了しました。" End Sub 3.Alt+F11キーでワークシートへもどります。 4.解除対象となるファイルがある一フォルダー内に名前を付けて保存する。(パス取得のためマクロ実行前に必ず一度は「保存」してあることが必要です。) 5.Alt+F8キーで出てきたマクロ名(TEST01)を選択して実行します。
その他の回答 (1)
- ukiyoneko
- ベストアンサー率26% (12/45)
そこまで分かっているなら、ツールをつくってしまいなさい。 そこまでわかっているなら、簡単に作れます。
お礼
作成できました。 ありがとうございました。
関連するQ&A
- エクセルのパスワード解除
パスワードを入力しないと開かないエクセルのファイルがあるのですが、開くたびにパスワードを入力するのが面倒なので、パスワードを 解除したいのですが、方法がわかりません。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL2003 パスワードの解除のしかた
初心者です。 よろしくお願いします。 EXCELのファイルにあるパスワードを一度解除したい。そして再びパスワードを設定したい。 EXCEL2003です。 ある「ファイル」を開こうとしてクリックすると 「パスワードを入力してください」と表示されます。 この「パスワードを入力してください」がでないようにするためには どのようにすればよいでしょうか。 (パスワードが設定されていない状態に戻すためにはどのようにすればよいでしょうか。) パスワードを知っている場合とわからない場合の対応をお願いします。 また逆にファイルにパスワード設定するためにはどうするよいでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelのパスワードを自動入力にしたい。
エクセルで30個のファイルがあります。 すべてのファイルにパスワードを付けているのですが、 同じパスワードになります。 そこで、いちいち入力するのが面倒なので、 自動入力かショートカットキーのようなもので 入力できないかと、フリーソフトを探しています。 なにかご存知の方、いらっしゃたらお教えください。
- ベストアンサー
- オフィス系ソフト
- エクセルファイルでのパスワード設定の解除法
非常に困っています。 開く際にパスワード入力が必要という設定になっているエクセルファイルなのですが、 パスワード入力設定を解除したいです。 方法がわかりません。 どうか教えていただけませんでしょうか。 宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- Excelのファイルパスワードの解除について
Excelのファイルパスワードの解除について、以前の2007年のデーターなのです。パスワードを忘れてしまって、開けなくなりました。シートにかけたものでしたら、開く方法が色々あるようですが、ファイルにかけたものは難しいようです。解除したいのですが、お教えください。色々なフリーソフトもためしましたが、現在解除できていません。よろしくお願い致します。
- 締切済み
- その他MS Office製品
- エクセルブックのパスワード解除について
シートのパスワード解除は見当たるのですが、ブックのパスワード解除は可能なのでしょうか。 OpenOfficeだと開けるような書き込みを見かけたので試してみたのですが、やはりパスワード入力を求められました。 実は秘匿性の高い文書はエクセルブックのパスワードを掛けて保存しているのですが、もしこれが簡単に解除されるようなら、保存方法を検討したいと思います。
- 締切済み
- オフィス系ソフト
- excelでパスワードがわからなくなった保護を解除する方法は
だいぶ以前ですが、Excelで作ったファイルを人に配布する際、入力の際に誤って計算式を削除したりしないように保護しておこうといろいろ試しているうちいい加減なパスワードを入力して保護をかけて上書き保存してしまいました。どうあがいても、パスワードが解除できないのであきらめていましたが、教えてGooなら策が見つかるかもと質問してみました。当時使っていたのは、excel97か 98だったと思います。 自分で作ったファイルなのでイレギュラーな方法で保護を解除しても違法性はないと思うのですが。
- ベストアンサー
- オフィス系ソフト
- Excelのパスワードを忘れてしまい、解除したい
タイトルの通り、Excelにかけたパスワードを忘れてしまい 非常に困っています。 解除や削除できる方法や (出来ればフリーの)ソフトをご存知の方はぜひ教えてください。 環境はWindows10でExcel2013です。 解除したいファイルは.xlsm形式なので作成した際は Excel2013以前のものかもしれません。 どうか、よろしくお願いします。
- 締切済み
- Windows 10
- EXCEL パスワード解除の件
いつも大変お世話になります。 表題の件に関し、EXCELのファイルを開こうとクリックすると、パスワードがかかっており、ファイルを開くことができません。 以前、かけたパスワードを忘れてしまったために起きたトラブルですが、どなたかパスワードの解除方法を教えてください。 どうしても開きたいです。何かよい方法はないでしょうか?
- 締切済み
- その他MS Office製品
- エクセルの各シートの保護パスワードの一斉解除法は?
エクセルの各シートにかけられた保護パスワードを一つ一つ開かずに、全シート一斉に解除する方法はありませんか? エクセル2003でシートにデータを記入し、各シートごとにに保護パスワードをかけたのですが、すべてのシートに訂正が発覚しました。 36シートもあるエクセルファイルが8つもあり、シートを一つずつパスワードを解除しては修正し、またパスワードをかけるという気の遠くなるような事態になってしまいました。 全シートを一斉に解除できる方法はありませんか?なお、パスワードはすべて同じです。
- 締切済み
- その他MS Office製品
お礼
無事解除することができました。 詳しく説明して頂きありがとうございました。