インターネットのサイトに接続したさいに たとえば住所などの選択画面で▽をクリックすると一覧が出てきますが突然▽をクリックしても「使用できません」と出てきてしまいます どのサイトでも同じです 復旧の方法を教えて下さい

A 回答 (4件)

アプリケーションの追加・削除でインターネットエクスプローラーを選択して


Okするといくつか選択肢が出てきますのでその中でIEの修復が出来ますがどう
でしょうか。
    • good
    • 0
この回答へのお礼

ありがとうございました おかげで無事に復旧しました

お礼日時:2001/11/03 14:53

NO3 です 補足です



Cookie が無効になっていたらの場合ですので
頑張ってください
    • good
    • 0

コントロールパネルのインターネットオプション(IEアイコンの右クリックの


プロパティと同じ)..セキュリティ、タブの
このゾーンのセキュリティのレベルの
レベルのカスタマイズを開けて
☆Cookie 内の
コンピュータに保存されているCookie の使用許可
の有効にするにチェックを・・・・
    • good
    • 0
この回答へのお礼

ありがとうございました おかげで無事に復旧しました

お礼日時:2001/11/03 14:54

プルダウンメニューのツール>インタネットオプションを選択し、詳細設定を標準に戻すボタンをクリック>OKボタンを押す。

    • good
    • 0
この回答へのお礼

ありがとうございました おかげで無事に復旧しました

お礼日時:2001/11/03 14:54

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

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

Qieの右クリックポップアップで「リンク一覧」を表示させるには?

ieで右クリックのポップアップメニューに「リンクの一覧」を
追加したいのですが、
windows updateでどの更新をすればいいのでしょうか?

Web Accessoriesを追加させるとできるようですが、
windows updateのサイトへ行ってもどれを更新すれば
いいのか分かりません。

Aベストアンサー

日本語版Windows UpdateからはWeb Accessoriesが無くなりました。
詳しくはリンクの質問の私の回答をご覧ください。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=42952

Qエクセルでサイズ名の一覧を出したい

現在、下記のコードでフォルダ内のデータベースを作成しています。
これに、『ファイルのサイズ』を加えたいのですが、何処に何を入れれば良いかがよくわかりません。
どなたか回答出来る方がいらっしゃれば、宜しくお願いします。

《現在使用しているコード》

Sub MakeFileList()

Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "C:\Windows")

Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkbook.Sheets("一覧").UsedRange.Delete

'見出しを付ける
ThisWorkbook.Sheets(1).Range("B2") = "ファイル名"
ThisWorkbook.Sheets(1).Range("C2") = "ファイル種別"
ThisWorkbook.Sheets(1).Range("D2") = "最終更新日"
ThisWorkbook.Sheets(1).Range("E2") = "説明"
ThisWorkbook.Sheets(1).Range("B2:E2").Interior.Color = RGB(0, 0, 0)
ThisWorkbook.Sheets(1).Range("B2:E2").Font.Color = RGB(255, 255, 255)
ThisWorkbook.Sheets(1).Range("B2:Es2").HorizontalAlignment = xlCenter

i = 3
For Each Fx In Fil
'ファイル名
sFile = Fx.Name
'ファイル名の書き出し
ThisWorkbook.Sheets(1).Cells(i, 2) = sFile
'ファイル種別
sFType = Fx.Type
'最終更新日時の書き出し
ThisWorkbook.Sheets(1).Cells(i, 3) = sFType
'最終更新日
sLMod = Fx.DateLastModified

ThisWorkbook.Sheets(1).Cells(i, 4) = sLMod
i = i + 1
Next
End Sub

現在、下記のコードでフォルダ内のデータベースを作成しています。
これに、『ファイルのサイズ』を加えたいのですが、何処に何を入れれば良いかがよくわかりません。
どなたか回答出来る方がいらっしゃれば、宜しくお願いします。

《現在使用しているコード》

Sub MakeFileList()

Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "C:\Windows")

Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkboo...続きを読む

Aベストアンサー

一例です。
名前の直後に挿入してみました。(若干、ソースを変更しました)

Sub MakeFileList()
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "C:\Windows")
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fil = FS.GetFolder(Target).Files

'見出しを付ける
With ThisWorkbook.Sheets(1)
.Range("B2") = "名前"
.Range("C2") = "サイズ"
.Range("D2") = "種別"
.Range("E2") = "最終更新日"
.Range("F2") = "説明"
.Range("B2:F2").Interior.Color = RGB(0, 0, 0)
.Range("B2:F2").Font.Color = RGB(255, 255, 255)
.Range("B2:F2").HorizontalAlignment = xlCenter

i = 3
For Each Fx In Fil
.Cells(i, 2) = Fx.Name '名前
.Cells(i, 3).NumberFormatLocal = "#,##0"" KB"""
.Cells(i, 3) = Fx.Size 'サイズ
.Cells(i, 4) = Fx.Type '種別
.Cells(i, 5) = Fx.DateLastModified '最終更新日
i = i + 1
Next
End With
End Sub

一例です。
名前の直後に挿入してみました。(若干、ソースを変更しました)

Sub MakeFileList()
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "C:\Windows")
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fil = FS.GetFolder(Target).Files

'見出しを付ける
With ThisWorkbook.Sheets(1)
.Range("B2") = "名前"
.Range("C2") = "サイズ"
.Range("D2") = "種別"
.Range("E2") = "最終更新日"
.Range("F2") = "説明"
.Range("B2:F2").Interior.Color = RGB(0, 0, 0)
.Range("B...続きを読む

Qフォルダ階層・ファイル名・ページ数の一覧を出したい

複数あるフォルダ内に入っている、全てのサブフォルダ及びファイルの名前、ページ数をリストにする方法はないでしょうか。出来ればエクセルに出力したいと考えています。
ページ数を表記したいものはPDFファイルのみで、PDFファイル以外はファイルの名前のみを表記したいと思っています。

現在は、ページ数を除き、
http://q.hatena.ne.jp/1176949723
にあります「調査.vbs」という名前で保存する方法を元に作成したファイルを使用して、
調査したいフォルダをファイルに移動したら勝手に一覧になる方法で行っています。


使用するPC環境では、フリーソフト等がダウンロード・インストールができないため、
それ以外の方法でと考えています。


よろしくお願いいたします。

Aベストアンサー

何をキーワードにして、Googleったのか忘れてしまいました。。
とりあえず、acrobat PDF pagecount で行ったところで発見したもので
作ってみましたが? 当方 Acrovat は持ち合わせておりません (^^ゞ

Function PDFPages(sPDFPath As String) As Long
'http://forums.adobe.com/message/2696593 ←オリジナル
  Dim oAcro As Object
  Dim AVDoc As Object
  Dim PDDoc As Object
  
  Set oAcro = CreateObject("Acroexch.app")
  oAcro.Show '可視・不可視切り替え
  Set AVDoc = CreateObject("AcroExch.AVDoc")
  
  If AVDoc.Open(sPDFPath, "") Then
    Set PDDoc = AVDoc.GetPDDoc()
    PDFPages = PDDoc.GetNumPages
  End If
  
  Set PDDoc = Nothing
  Set AVDoc = Nothing
  Set oAcro = Nothing
End Function

参照設定にチェックを入れられば、処理速度も改善されるかも?
私からは、ここまでです。<m(__)m>

何をキーワードにして、Googleったのか忘れてしまいました。。
とりあえず、acrobat PDF pagecount で行ったところで発見したもので
作ってみましたが? 当方 Acrovat は持ち合わせておりません (^^ゞ

Function PDFPages(sPDFPath As String) As Long
'http://forums.adobe.com/message/2696593 ←オリジナル
  Dim oAcro As Object
  Dim AVDoc As Object
  Dim PDDoc As Object
  
  Set oAcro = CreateObject("Acroexch.app")
  oAcro.Show '可視・不可視切り替え
  Set AVDoc = CreateObject(...続きを読む

QOutlookでハイパーリンクをクリックしてもエラーメッセージがでてサイトへ飛ばない

メールのURLをクリックしても「このコンピューターに設定されている制約のためこの操作は中止されました。システム管理者に問い合わせてください。」とでてサイトへ飛ぶことができません。
自分なりに調べてIEのリセットやレジストリキーのインポートなどいろいろ試したのですが、どれもだめでした。
ほかに試したのは
1)インターネットオプションを開きます
IEを起動して、 ツール>インターネットオプション と開くか?
スタート>コントロールパネル からインターネットオプションを開くか? などなどとりあえず開きます
2)プログラムタブ>インターネットプログラムのプログラムの設定(IE7) と開きます
3)"プログラムのアクセスとコンピューターの既定の設定" をクリックして開きます
4)"カスタム"をクリック
5)"既定のWebブラウザを選択してください"のところで、"InternetExplorer"を選択して"OK"で閉じます
6)インターネットオプションの画面もOKで閉じた上で、一旦PCを再起動

というやつですが、やはりできませんでした。
なんとか解決する方法はないものでしょうか?

メールのURLをクリックしても「このコンピューターに設定されている制約のためこの操作は中止されました。システム管理者に問い合わせてください。」とでてサイトへ飛ぶことができません。
自分なりに調べてIEのリセットやレジストリキーのインポートなどいろいろ試したのですが、どれもだめでした。
ほかに試したのは
1)インターネットオプションを開きます
IEを起動して、 ツール>インターネットオプション と開くか?
スタート>コントロールパネル からインターネットオプションを開くか? な...続きを読む

Aベストアンサー

このへんでしょうか。参考までに。

1.Internet Explorer 7 を起動します。
2.[ツール] メニューの [インターネット オプション] をクリックします。
3.[詳細設定] タブをクリックし、[リセット] をクリックします。
4.[プログラム] タブをクリックし、[プログラムの設定] をクリックします。
5.[既定のプログラムの設定] をクリックします。
6.[Microsoft Outlook] チェック ボックスをオンにし、[このプログラムを既定として設定する] をクリックします。
7.[OK] をクリックして [既定のプログラム] ダイアログ ボックスを閉じます。
8.[インターネット オプション] ダイアログ ボックスで [プログラム] タブをクリックし、[既定の Web ブラウザ] の下の [既定とする] をクリックします。
9.[OK] をクリックします。

または、

1.インターネットオプション-プログラム-[プログラムの設定]で規定のプログラムを開く
2.「プログラムのアクセスとコンピュータの規定の設定」をクリック
3.Microsoft Windows を選択し、[OK]ボタンをクリック

このへんでしょうか。参考までに。

1.Internet Explorer 7 を起動します。
2.[ツール] メニューの [インターネット オプション] をクリックします。
3.[詳細設定] タブをクリックし、[リセット] をクリックします。
4.[プログラム] タブをクリックし、[プログラムの設定] をクリックします。
5.[既定のプログラムの設定] をクリックします。
6.[Microsoft Outlook] チェック ボックスをオンにし、[このプログラムを既定として設定する] をクリックします。
7.[OK] をクリックして [既定のプログラム] ダ...続きを読む

QVBA を使用してexcel起動時に 右クリックメニューの行削除や列削除を無効にしようとするとエラーが出ることがある。

お世話になります。
VBA を使用してexcel起動時に 右クリックメニューの行削除や列削除を無効して、下記VBAを作成しました。
しかしながら、起動時(実行時)に
「実行時エラー 5 プロシージャの呼び出し、または引数が不正です。」が出ることがあります。
でないときもあるのですが、

デバック時にとまるところは、毎回変わり(1)~(5)のどれかで止まります。
使用したい環境はexcel2007,excel2003で正常に動くようにしたいのですが、何卒よろしくお願いします。

*************ソース*********************
Private Sub Workbook_Open()
InsertEnabled False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
InsertEnabled True
End Sub

Private Sub InsertEnabled(flg As Boolean)
With Application
(1) Application.CommandBars("Worksheet Menu Bar").Controls("挿入(&I)").Enabled = flg
(2) Application.CommandBars("Cell").Controls("挿入(&I)...").Enabled = flg
(3)Application.CommandBars("Cell").Controls("削除(&D)...").Enabled = flg
(4)Application.CommandBars("Row").Controls("挿入(&I)").Enabled = flg

(5)Application.CommandBars("Row").Controls("削除(&D)").Enabled = flg

.CommandBars.FindControl(, 296).Enabled = flg
.CommandBars.FindControl(, 293).Enabled = flg

End With
End Sub

お世話になります。
VBA を使用してexcel起動時に 右クリックメニューの行削除や列削除を無効して、下記VBAを作成しました。
しかしながら、起動時(実行時)に
「実行時エラー 5 プロシージャの呼び出し、または引数が不正です。」が出ることがあります。
でないときもあるのですが、

デバック時にとまるところは、毎回変わり(1)~(5)のどれかで止まります。
使用したい環境はexcel2007,excel2003で正常に動くようにしたいのですが、何卒よろしくお願いします。

*************ソース************...続きを読む

Aベストアンサー

とりあえず、私の環境(2003)では
Application.CommandBars("Row")のコントロールに
挿入はありませんでした・・・
削除(&D)も削除(&D)...となっていましたし。

そこで、ちょっと無駄の多い処理になるかもしれませんがこうしてみては?

Private Sub Workbook_Open()
InsertEnabled False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
InsertEnabled True
End Sub

Private Sub InsertEnabled(flg As Boolean)
Call ControlEnabled(flg, "Worksheet Menu Bar")
Call ControlEnabled(flg, "Cell")
Call ControlEnabled(flg, "Row")

With Application.CommandBars
.FindControl(, 296).Enabled = flg
.FindControl(, 293).Enabled = flg
End With
End Sub

Private Sub ControlEnabled(flg As Boolean, BarName As String)

Dim i As Integer
'指定コマンドバーのコントロールの数だけループし、挿入もしくは削除から
'始まるコントロールを有効/無効化する
With Application.CommandBars(BarName)
For i = 1 To .Controls.Count
If .Controls(i).Caption Like "挿入*" Or .Controls(i).Caption Like "削除*" Then
.Controls(i).Enabled = flg
End If
Next i
End With

とりあえず、私の環境(2003)では
Application.CommandBars("Row")のコントロールに
挿入はありませんでした・・・
削除(&D)も削除(&D)...となっていましたし。

そこで、ちょっと無駄の多い処理になるかもしれませんがこうしてみては?

Private Sub Workbook_Open()
InsertEnabled False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
InsertEnabled True
End Sub

Private Sub InsertEnabled(flg As Boolean)
Call ControlEnabled(flg, "Worksheet Menu Bar")
Call Con...続きを読む


このカテゴリの人気Q&Aランキング

おすすめ情報