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

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

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

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

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

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

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

A 回答 (1件)

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



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

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

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

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

教えていただいたとおりいろいろやってみて、なんとかアクセスできるようになりました。
もう一度「簡易ファイルの共有」をオフにし、プロパティ→セキュリティ→詳細設定→所有者 をいじってみました。(一度Administratorにして、また今までのユーザに戻した)変えただけでは変わらなかったのですが、「サブコンテナとオブジェクトの所有者を置き換える」にチェックを入れたら、全てのファイルにアクセスできるようになりました。

ただ、他のパソコンからアクセスするためには、EveryoneだけではなくGuestsも登録しなければ見えなくなってしまったので、保安上は不安ですが、おいおい対応していきたいと思います。

おかげさまで助かりました。ありがとうございました。

お礼日時:2008/07/08 19:19

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

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

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

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

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

QExcelのファイルが開けない

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

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

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

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

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

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

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

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

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

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

Aベストアンサー

endorinさん、こんばんは。

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

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 の中からそのファイルを開くことはできますか。
(これ、以外と盲点)

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

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

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

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

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

Aベストアンサー

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

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

Qエクセルで数式の結果が反映されない(自動計算になっているのに)

すいません、教えてください。

エクセル(XP)で数式が自動計算されなくなって
しまいました。

  ※ツールのオプションはちゃんと自動計算に
   なっているのに全く反映されません。

今まで全く問題なく作業できていたので
原因が分からず困っています。

数式等のエラーだとは考えにくいです。
と言うのも数式のあるセルをダブルクリックして
選択し、そのままEnterキーを押すと計算結果が
反映されます。
ただ、今まで全て自動計算されていたのが
全く動かなくなってしまったんです。

同じようなトラブルを経験された方、又は
詳しい方、どうかよろしくお願いします。

Aベストアンサー

原因は分からずじまいになってしまいましたが
同じことがありました。

「Officeの救急隊」を試してみましょう。
ボタン一発で全ての設定が元に戻ります。
http://www.vector.co.jp/soft/win95/util/se247118.html
(ツールバーなども初期状態に戻ります)

私の場合はコレで直ってしまいました^^

参考URL:http://www.vector.co.jp/soft/win95/util/se247118.html

Qワードのアクセス権の解除の方法

ワード2003を使っています。ワードのアクセス権の解除の仕方がわかりません。

メニューから 挿入→オブジェクト→Microsoft数式3.0 といって数式をいれるのですが、完成した後に再び編集しようとすると 「アクセス権がありません」と表示され、編集することができません。説明を読んでも解除の仕方がわかりません。

アクセス権が勝手に設定されるのを解除する方法を教えてください。

Aベストアンサー

エラーについてはこちら↓

編集中に "アクセス権がありません" と表示される場合の対処方法
http://support.microsoft.com/default.aspx?scid=kb;ja;882145

こちら↓も

[OFF2003] 挿入されたグラフや数式 あるいは OLE オブジェクト等を再編集することができない
http://support.microsoft.com/kb/833681/JA/

Symantec 社の Norton AntiVirus の Office プラグイン機能を無効にして利用します。

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

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

Aベストアンサー

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

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

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


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

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

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

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

Qエクセル マクロで指定フォルダを開く

エクセルにて
指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。
よろしくお願いいたします。

Aベストアンサー

こんにちは。

こういうものですか?
開くフォルダを変えたいときは targ に与えるパスを変更します。

Sub OpenFolders()
Dim targ As String
targ = "C:\"
Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
End Sub

QVB上で実行中の無限ループの止め方

今まで、CUIベースのBASICでのプログラムの経験はあるのですが
Visual系のBASICは初心者です。
原因はわかっているのでプログラムの修正はできるのですが
VB上でコンパイルして実行したときに無限ループに陥ってしまって
どうにもプログラムをとめられなくなります。
そんなことがないように、実行前に全てのプロジェクトを保存して
いますので、そんなに実害はないのですが、どうすればとめられるのでしょう・・
今現在は、タスクマネージャーから強制終了させています。

Aベストアンサー

無限ループの一番内側に
DoEvents
を入れておくと、ウィンドウ切替え->デバッガ終了操作が出来ますよ

危なそうなとこにも入れておくと、何かと安心です。


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

人気Q&Aランキング