忙しい現代人の腰&肩のお悩み対策!

 Excelのファイルが突然開けなくなりました。

 「アクセスできません。読み取り専用または暗号化されています」と出ます。
 読み取り専用にも暗号化もしていないのに開けません。
 Microsoft Excel 2000、2002、2003に変えて開きましたが、このエラーメッセージが 出て開けま
 せん。
  Microsoftサポートには、次のように書かれています。    
◆ ファイルが破損しているか確認する。
 フォルダ内には、さらに複数のフォルダ、及びエクセル、ワード、パワーポイントのファイルが入って
 います。それぞれ開くものと開かないものがあります。
◆ 例えばエクセルの場合は「"ファイル名"にアクセスできません。読み取り専用また は暗号化され
 ています。」の後再度「"ファイル名"にアクセスできません。」というエラーメッセージが出ます。 ◆ Microsoftサポートに従い、やってみましたが、解決しません。
 Internetサイトにも色々問い合わせがありますが、解決しません。

 本当にどうなっているんだろう、突然エクセルエラーが出たのです。
 しかも出るのと出ないのが入り混じっているのです!! 

 何とか解決方法が無いものでしょうか????
 ご存知の方教えてください。

 WindowsOSはXPです。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

こんにちは。


過去の事例ですが参考にしてみてください。
http://oshiete1.goo.ne.jp/qa4160980.html

この回答への補足

回答ありがとうございます。

このパソコンやファイルは共有しておりませんので、
この方法では解決しないのです。

補足日時:2010/01/15 09:55
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q一部のファイルにアクセスできなくなり、困っています

XPproSP3を使用しています。
フォルダを共有にし、今までは何事もなく使用できていたのですが、アクセス制限をかけようといじっていたら、いくつかのファイルが開かなくなってしまいました。

共有フォルダ内には、さらに複数のフォルダ、及びエクセル、ワード、パワーポイントの各ファイルが入っています。
それぞれ開くものと開かないものがあります。
例えばエクセルの場合は「"ファイル名"にアクセスできません。読み取り専用または暗号化されています。」の後再度「"ファイル名"にアクセスできません。」というエラーメッセージが出ます。パワーポイントなら「(前略)書き込みの権限があるかどうか、および暗号化されていないことを確認してください。」ワードなら「文書を開くことができません。アクセス権がありません」と出ます。フォルダの場合は「(前略)このネットワークリソースを使用するアクセス許可がない可能性があります(後略)」となります。

共有及びセキュリティをEveryoneフルコントロールに戻しても、また共有を外して直接開こうともしましたが状況は変わりません。

全てが開かないわけではなく、普通に開くファイルやフォルダもあります。また、エクセルファイル自体にパスワードをかけていたものについては、通常通りパスワードを聞くダイアログが出て入力したら開きます。

仕事で使用しているため非常に困っております。お知恵を貸していただけないでしょうか。

XPproSP3を使用しています。
フォルダを共有にし、今までは何事もなく使用できていたのですが、アクセス制限をかけようといじっていたら、いくつかのファイルが開かなくなってしまいました。

共有フォルダ内には、さらに複数のフォルダ、及びエクセル、ワード、パワーポイントの各ファイルが入っています。
それぞれ開くものと開かないものがあります。
例えばエクセルの場合は「"ファイル名"にアクセスできません。読み取り専用または暗号化されています。」の後再度「"ファイル名"にアクセスできません。...続きを読む

Aベストアンサー

共有フォルダのアクセス権と共有のアクセス許可それぞれを見直してください。

ローカルのアクセス権に関しては、見直しよりも手っ取り早い方法として、Administrator権限のあるユーザーでフォルダの所有権を強制的に取得してみてください。
所有権取得後に正常化されたか確認をしてみてください。

アクセス権を変更する際ですが、下位への継承をどのようにするかなど、全体に管理の設計を行うようにしてみてください。

共有のアクセス許可見直しを行っても問題が解決しない場合ですが、ユーザーIDとPasswordが正しく設定されているか確認ください。

PasswordがブランクだとNetworkからのアクセスで拒否されるポリシーに抵触している可能性があります。

QExcelのファイルが開けない

同じような質問が既にいくつかあることを承知して再度質問させていただきます。

会社のネットワーク上にあるExcelファイルをWクリックで開こうとすると、
「(ファイル名)にアクセスできません。読み取り専用または暗号化されています。」と表示され、
このメッセージボックスのOKボタンを押すと、さらに「(ファイル名)にアクセスできません。」とのメッセージ・・・(1)が表示され、ファイルを開くことができません。同じディレクトリの中に、開くことができるファイルとまったく開けないファイルがあります。(開けなくなってしまったファイルの方が多い)

ちなみに、おもに次のような方法をいくつか試してみましたがいずれも駄目でした。

☆Excel2003で「ファイルを開く」ダイアログボックスから
 「ファイルを開いて修復」で開く・・・(1)と同じ

☆ローカルPCにコピーして開く
 貼り付けをおこなうと、次のエラーメッセージが表示される。
 「(ファイル名)をコピーできません。アクセスできません。送り側のファイルが使用中の可能性があります。」

☆エクセルを空で起動し、ワークシート上にファイルをドラッグ
 (1)と同じメッセージ

☆ワードから開く
 「文書を開くことができません。アクセス権がありません。」とのメッセージ。

やはり、ファイル自体が壊れてしまっているのでしょうか?
どなたかよろしくお願いします。

同じような質問が既にいくつかあることを承知して再度質問させていただきます。

会社のネットワーク上にあるExcelファイルをWクリックで開こうとすると、
「(ファイル名)にアクセスできません。読み取り専用または暗号化されています。」と表示され、
このメッセージボックスのOKボタンを押すと、さらに「(ファイル名)にアクセスできません。」とのメッセージ・・・(1)が表示され、ファイルを開くことができません。同じディレクトリの中に、開くことができるファイルとまったく開けないファイルがありま...続きを読む

Aベストアンサー

endorinさん、こんばんは。

もしかしたら、ファイル自体がどうこうという問題でなく、アクセス権の問題かなという気がします。
一度ネットワーク管理者にご相談されてはいかがでしょうか。

QEXCEL VBA で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

>現在開いているブックのファイル名
 ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

 しかし、
>VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

Q【至急】暗号化されたエクセルファイルが開けなく

お忙しいところ申し訳ありませんが解決方法を教えてくださいますようお願いします。
暗号化しLAN内で共有しているエクセルファイルがあるPCでだけ開けなくなりました。

【症状詳細】
1)ファイルをダブルクリックするとエクセルのソフトは立ち上がりますが
ファイル自体は開かれないしエラーメッセージもパスワード入力ボックスも表示されません。
2)他のPCでは今まで通りそのファイルを開くことができます。
なお、ほかのPCがそのファイルを参照していない時に今回の症状が発生しています。

ファイル形式:xlsx
暗号化の方法:下記URLの方法を利用
   http://is702.jp/column/543/
ファイルが開けないPCのOS:Windows7 HomePremium

お忙しいところ申し訳ありませんが
原因と解決方法を教えてくださいますよう
よろしくお願いします


備考
問題が起きているPCでは先日までOffice2010(試作版)を使用し、
今日2010をアンインストールして2007(製品版)をインストールしました
なお、この2007でほかの暗号化されていないエクセルファイルを開くことはできます
また、2010をインストールしていた時は上記のファイルを開くことができました。

お忙しいところ申し訳ありませんが解決方法を教えてくださいますようお願いします。
暗号化しLAN内で共有しているエクセルファイルがあるPCでだけ開けなくなりました。

【症状詳細】
1)ファイルをダブルクリックするとエクセルのソフトは立ち上がりますが
ファイル自体は開かれないしエラーメッセージもパスワード入力ボックスも表示されません。
2)他のPCでは今まで通りそのファイルを開くことができます。
なお、ほかのPCがそのファイルを参照していない時に今回の症状が発生しています。

ファイル形式:xlsx
...続きを読む

Aベストアンサー

ファイルをダブルクリックして Excel を起動するのではなく
Excel の中からそのファイルを開くことはできますか。
(これ、以外と盲点)

それでも開けないのでしたら、他の開くことができるというパソコンで暗号化を解除して保存したファイルを使用しましょう。

QExcelVBAでBookを開く時にファイル名の一部だけを指定で

VBA初心者です。
ExcelVBAで決まったフォルダーのファイルを開きたいのですが、ファイル名が固定した文字+日付になっているため、この固定した文字だけでこのファイルを開く方法を教えて下さい。このフォルダーには2つファイルがありますが、もう1つは全く違うファイル名です。

Aベストアンサー

> ワイルドカード"*"はどんな時に使えるのですか

Dir関数を使用時の"*" (アスタリスク) および "?" (疑問符) のワイルドカード文字については、
VBAのヘルプを参照し、特に「使用例」のコードを理解してください。

その他 VBAでの ワイルドカード使用に関しては、ヘルプで Like で検索して、
Like 演算子 を参照し、同じく「使用例」のコードを理解されたら宜しいかと思います。


> 通常のOPENメソッドでの> ファイル名指定では使えないと思うのですが。

Workbooks.Openメソッドの1番目の引数は、ファイルが特定出来るように指定する必要が
ありますので、当然 ワイルドカード文字は、使用出来ません。

殆ど、フルバスで指定します。 もし、パス名を省略すると カレントホルダ内のファイルを
指定したことになります。([メニュー]-->[オプション]-->[全般]タブの中で指定)

Qフォルダ内の全てのBookに同じ処理を繰り返す

フォルダ内にエクセルファイルが約3,000個あります。
この全てのBookに同じ処理をしたいのですが、マクロで繰り返す方法がわからないので教えて下さい。
処理をする内容は簡単なもので、マクロで作りました。

・ 各Bookには1つのシートしか存在せず、シート名は重要ではないので全て「Sheet1」になっています。
・ 各Bookのデータの配置や表形式は同じです。
・ レコードの行数がBookによって異なります。

処理の内容をマクロで作るところまではできましたが、知識がないためタイムアウトです。

ご教示宜しくお願い致します。

Aベストアンサー

だいたいこんな流れで。

sub macro1()
 dim myPath as string
 dim myFile as string

 mypath = "C:\test\"

’指定フォルダのブックを順繰り拾う
 myfile = dir(mypath & "*.xls*")
 do until myfile = ""

 ’ブックを開いて処理を行い保存して閉じる
  workbooks.open mypath & myfile
  activesheet.range("A1") = "DONE"
  activeworkbook.close true

  myfile = dir()
 loop
end sub


必要に応じて
・画面の表示を抑制する
・再計算を手動にする
といった手管を追加して高速化を図ります。

QEXCELファイルのカレントフォルダを取得するには?

EXCELファイルのカレントフォルダを取得するには?

C:\経理\予算.xls

D:\2005年度\予算.xls

EXCEL97ファイルがあります。

VBAで
  カレントフォルダ名
(C:\経理\,D:\2005年度\)
を取得する事は可能でしょうか?

CURDIRでは上手い方法が見つかりませんでした。

Aベストアンサー

こんばんは。
Excel97 でも、同じですね。以下で試してみてください。

Sub test()
'このブックのパス
a = ThisWorkbook.Path
'アクティブブックのパス
b = ActiveWorkbook.Path
'Excelで設定されたデフォルトパス
c = Application.DefaultFilePath
'カレントディレクトリ
d = CurDir
MsgBox "このブックのパス   : " & a & Chr(13) & _
   "アクティブブックのパス: " & b & Chr(13) & _
   "デフォルトパス    : " & c & Chr(13) & _
   "カレントディレクトリ : " & d & Chr(13)
End Sub

QEXCEL VBAマクロ作成で、他のEXCELからデータを取り込みたい

メインプログラム(EXCEL VBA)より、
他のフォルダーにあるEXCELの項目の内容を取り込みたいです。
たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。

・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(?)は、表示はできてます。
・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。

・となると次はOPEN,INPUTですか?
テキストデータの取り込みですと、Inputでそのバッファを定義してるのですが、なんか違うような。。。

よろしくお願いします!

Aベストアンサー

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Cells(2, 2).Value ' 相手シートの B2 の値を自分自身の A1 に書き込む

readBook.Close False ' 相手ブックを閉じる
Set readSheet = Nothing
Set readBook = Nothing

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Ce...続きを読む

Q「Excel VBA」 Webクエリ マクロ「実行時エラー"1004"ファイルにアクセスできませんでした」

Webクエリを使って、「Yahooファイナンス」から日経平均株価の時系列データを取得したいのですが、うまくいきません。(TT)
下記に全コードを記載しますので、ご回答よろしくお願いします。

Dim url As String
Dim lastrow As Integer
Dim i As Integer

Sub Calc()
'価格データを取得するマクロ

'このマクロ内で用いる各変数を宣言
Dim code As String
Dim day_s As Integer, month_s As Integer, year_s As Integer
Dim day_e As Integer, month_e As Integer, year_e As Integer
Dim row_length As Integer

'変数に各値を代入
code = "998407.o" '株価コード
day_e = 31 '取得終了日
month_e = 12 '取得終了月
year_e = 2005 '取得終了年
day_s = 1 '取得開始日
month_s = 1 '取得開始月
year_s = 2005 '取得開始年

'価格データを取得
For i = 0 To 365 * 0.65 Step 50

'変数にURLを代入
url = "URL;http://table.yahoo.co.jp/t?s=" & code & "&a=" & month_s & "&b=" & day_s & "&c=" & year_s & "&d=" & month_e & "&e=" & day_e & "&f=" & year_e & "&g=d&q=t&y=" & i & "&z=" & code & "&x=.csv"

'1回目の繰り返しの場合
If i = 0 Then
lastrow = "4"
Call Get_Data

'価格データが取得できなかった場合、マクロを終了させる
    If Range("B4") = "" Then
Exit Sub
End If

'2回目以降の繰り返しの場合
Else
lastrow = Range("B4").End(xlDown).Row + 1
Call Get_Data

'見出しのセルを削除
Range("B" & lastrow, "H" & lastrow).Delete
row_length = Range("B4").End(xlDown).Row

'価格データが取得期間分存在していなかった場合、その時点で繰り返しを終了させる
If row_length - lastrow < 49 Then
Exit For
End If
End If
Next
End Sub

Sub Get_Data()

With ActiveSheet.QueryTables.Add(Connection:=url, Destination:=Cells(lastrow, 2))
.Name = "t?s=998407.o&g=d"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "22"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

Range("B5:F54").Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub

Calcマクロを実行すると、 
「実行時エラー"1004"ファイルにアクセスできませんでした。次のいずれかを行ってください。」 というエラーが出て止まってしまいます。

デバッグをすると、「Get_Dataマクロ」内の、
.Refresh BackgroundQuery:=False が黄色になります。

ステップインしても、やっぱり、
.Refresh BackgroundQuery:=False の所でエラーが出ます。(TT)

どうしても解決したい内容なので、
少しでも「解決の可能性」があれば、なんでも試してみたいと思っていますので、どうぞお気軽に回答お願いします。

力を貸しください。よろしくお願いします。

Webクエリを使って、「Yahooファイナンス」から日経平均株価の時系列データを取得したいのですが、うまくいきません。(TT)
下記に全コードを記載しますので、ご回答よろしくお願いします。

Dim url As String
Dim lastrow As Integer
Dim i As Integer

Sub Calc()
'価格データを取得するマクロ

'このマクロ内で用いる各変数を宣言
Dim code As String
Dim day_s As Integer, month_s As Integer, year_s As Integer
Dim day_e As Integer, month_e As Integer, year_e As Integer...続きを読む

Aベストアンサー

試したところ、ちゃんと動作しましたのでコードの問題ではないでしょう。

で、検索したところ同じような質問があり、
インターネット一時ファイル、履歴を削除したら解決したようです。
下記URLを覗いてみてください。

http://okwave.jp/qa2884378.html

外しましたらご容赦願います。
 

Qエクセルマクロでエラーの原因がわかりません。

 クエリーテーブルを使って、インターネットのサイトから情報をエクセルシートに書き込むエクセルマクロがあるのですが、急にエラーが生じることがあります。エラー内容は以下の通りです。

~~~~~~~~~~
 実行時エラー"1004"
  ファイルにアクセスできませんでした。次のいずれかを行ってみてください。
  ・指定したフォルダがあることを確認します。
  ・ファイルを含むフォルダが読み取り専用になっていないことを確認します。
  ・指定したファイルの名前にいずれかの文字も含まれていないことを確認します。<>?[]:
  ・ファイル名およびパス名が半角で、218文字より長くないことを確認します。

~~~~~~~~
 
 上記内容もよくわからず、エラーを生じず問題なく処理できることもあったりして、原因がよくわかりません。何かインターネットの接続上の問題なのでしょうか?また時間帯によってエラーになってりするのでしょうか??
 詳しい方、解決策を教えて下さい!!よろしくお願いします。

Aベストアンサー

数日前も同じような質問がありました。

下記が参考になるやも知れません。

http://oshiete1.goo.ne.jp/qa3501069.html

外しましたらご容赦願います。
 

 


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング