エクセルファイルに設定したパスワードを忘れてしまいました。

Aベストアンサー

「書き込みパスワード」を行なった場合ならば、
文章を読み取り専用で開くことは出来ます。
「読み取りパスワード」を行なった場合ならば、
心当たりのあるパスワードで、総当りするしか
文章を開くことは出来ません。

Aベストアンサー

ツールに頼らなくても、シートを全て選択（行列番号表示された左上の[ ]をクリック）してコピーし、新しいシートに貼付けすれば保護は解除されます。

Aベストアンサー

名前を付けて保存⇒左下にあるツールクリック⇒全般オプションクリック

読み取りパスワードのところに****があると思います。
それを消して保存すれば次回からはパスワードを聞かれることなく開けます。

Aベストアンサー

パスワードを知っている場合は、以下で解除できます。

(1)パスワードを入力し、Excelファイルを開く
(2)ファイル⇒名前を付けて保存を選択
(3)表示されたファイル名入力画面の右上のツール⇒
　全般オプション⇒入力されている読み取りパスワードを消して保存

また、パスワードを設定する場合は、(3)でパスワードを入力して
保存すればOKです。

忘れてしまったパスワードを解析するフリーソフトがあるようです。
http://www.vector.co.jp/soft/win95/business/se178861.html
これ以外にもあるようですので、ご自分に合うものを
探してみてください。

Aベストアンサー

http://www.vector.co.jp/soft/win95/util/se393783.html

Aベストアンサー

解除はできないと思いますので、

[Ctrl]+[a]で全選択→別のシートにコピー

としてみてはどうでしょうか？

Aベストアンサー

> 一括してパスワードを解除するファイルがあれば教えて頂きたいです。

そのようなものは作らなければありませんよ。
作るための確認です。
パスワードとは読み取りパスワードのことですね？
すべて同じ読み取りパスワードが設定されたエクセルのファイルが特定のフォルダー内に大量にあるのですね？
それらのファイルの読み取りパスワードをすべて無しにしたいのですね？
以上の前提が正しければ以下の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）を選択して実行します。

> 一括してパスワードを解除するファイルがあれば教えて頂きたいです。

そのようなものは作らなければありませんよ。
作るための確認です。
パスワードとは読み取りパスワードのことですね？
すべて同じ読み取りパスワードが設定されたエクセルのファイルが特定のフォルダー内に大量にあるのですね？
それらのファイルの読み取りパスワードをすべて無しにしたいのですね？
以上の前提が正しければ以下のVBAを標準モジュールに記載したエクセルファイルを、必ず解除したいファイルがあるフォルダー内に保存してく...続きを読む

Aベストアンサー

ヘルプくらいは見ましょう。

---------------------------------------------------------
Open メソッド
ブックを開きます。

構文
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended,
Origin, Delimiter, Editable, Notify, Converter, AddToMRU)

expression 必ず指定します。対象となる Workbooks コレクションまたは RecentFile オブジェクトを表すオブジェクト式を指定します。

FileName 必ず指定します。文字列型 (String) の値を使用します。開くブックのファイル名を指定します。

（中略）
Password 省略可能です。バリアント型 (Variant) の値を使用します。パスワード保護されたブックを開くのに必要なパスワードを指定します。パスワードが必要な場合にこの引数を省略すると、パスワードの入力を促すダイアログ ボックスが表示されます。

ヘルプくらいは見ましょう。

---------------------------------------------------------
Open メソッド
ブックを開きます。

構文
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended,
Origin, Delimiter, Editable, Notify, Converter, AddToMRU)

expression 必ず指定します。対象となる Workbooks コレクションまたは RecentFile オブジェクトを表すオブジェクト式を指定します。

FileName 必ず指定します。文字列型 (Str...続きを読む

Aベストアンサー

ハッカーごころをくすぐる面白い質問をありがとうございます。

Excelに、コマンドラインで値は渡せないので、VBScriptとか使わないと無理でしょう。前提としてここに
pass というパスワードがBookに設定されたExcel（C:\temp\sample.xls）があるとすると、

(1)以下のコードをメモ帳に貼り付けて、auto_input_pw.vbs　という名前で保存。


Option Explicit
Dim objParam
Dim strFilename
Dim strPassword
Dim objExcel
Dim objOpendExcel
Set objParam = WScript.Arguments
strFilename = objParam(0)
strPassword = objParam(1)
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objOpendExcel = objExcel.Workbooks.Open(strFilename,,,,strPassword)
Set objExcel = Nothing


(2)コマンドプロンプトで、

>cscript auto_input_pw.vbs C:\temp\sample.xls pass

でどうでしょう。Excelのパスはフルパスである必要があります。
あと、一回ごとにExcelが起動しますので、あまり大量にはやらないほうがよいでしょう。

Windowsのバッチファイル（たとえば run.bat というファイルに、

cscript auto_input_pw.vbs C:\temp\sample1.xls pass1
cscript auto_input_pw.vbs C:\temp\sample2.xls pass2
cscript auto_input_pw.vbs C:\temp\sample3.xls pass3
　:
　:
のように1行ずつ書いておいて、run.bat をダブルクリックすれば、
どかどかっと、楽しげにExcelが開かれるハズです。

えーと。一応動作確認はしましたが、
実行にあたっては、あくまで自己責任において使ってください。
私はVBScriptは専門じゃないので(笑)

ハッカーごころをくすぐる面白い質問をありがとうございます。

Excelに、コマンドラインで値は渡せないので、VBScriptとか使わないと無理でしょう。前提としてここに
pass というパスワードがBookに設定されたExcel（C:\temp\sample.xls）があるとすると、

(1)以下のコードをメモ帳に貼り付けて、auto_input_pw.vbs　という名前で保存。


Option Explicit
Dim objParam
Dim strFilename
Dim strPassword
Dim objExcel
Dim objOpendExcel
Set objParam = WScript.Arguments
strFilename = objPa...続きを読む

Aベストアンサー

問題はファイルサーバに潜んでいるのかもしれませんね。
ファイルサーバのOSが不明なのと権限も不明ですが、Windows であれば
このような解決策もあります。
共有ファイルを現在使用しているユーザーを特定する方法
http://www.atmarkit.co.jp/fwin2k/win2ktips/083opened_net_file/083opened_net_file.html
↑の方法でで強制的に接続を切れば削除可能となるかもしれません。
あるいはサーバーの再起動。
またファイルサーバで軽微なディスクエラーが発生している可能性も有ります。
いずれにしても権限に左右されますので、
サーバの『管理者』に相談されるのが一番の近道と思います。