困っています。マイクロソフトoffice2010のEXCELについての質問です。
EXCELにおいて、ハイパーリンクを設定しました。今まで普通に開くことができていたのですが、
突然以下のメッセージが出て、ページを開くことができなくなってしまいました。
「このコンピューターに設定されている制約のため、この操作は中止されました。
システム管理者に問い合わせてください。」

特に設定変更等は行った覚えがないのですが、何か無意識にいじってしまったようです。
解決方法を教えてください。
なお、ブラウザはIE8です。ウィルス対策ソフトはウィルスバスターです。

よろしくおねがいします。

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

A 回答 (1件)

まだ見ているかわかりませんが、


以下のサイトで同症状を改善したと報告があります。
試してみては如何でしょうか?

http://pcclick.seesaa.net/article/125830476.html
    • good
    • 0

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

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

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

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

QVBA 固定セルから可変セルへのハイパーリンク

VBA、マクロの記述方法を教えてください
ハイパーリンク元:ワークシート1のA1セル
ハイパーリンク先:ワークシート2のcells(リンク先セルの行番号,リンク先セルの列番号)
リンク先セルの行番号、リンク先セルの列番号はいずれもINTEGERの変数名、でハイパーリンクを張ろうとする時点(段階)でマクロによって値が定義(付与)されているもの、とします

Aベストアンサー

これでいかがでしょうか?

Dim sCell As String
Dim iRow As Integer
Dim iCol As Integer

iRow = 2
iCol = 3
sCell = Cells(iRow, iCol).Address

Range("A1").Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Sheet2!" & sCell

QExcel2010:セル単位でハイパーリンクのオフ

Excel 2010 を使用しています。

お客様に記入していただく書類を作成しており、メールアドレス欄があります。
そのまま入れていただくと、ハイパーリンクが設定されます。
入力後にプリントしたものをFAXで送っていただくことも多いので、
大きいフォントで下線もない書式設定にしたいのですが方法がわかりません。

オートコレクトのオプションも見てみましたが、
これは入力する環境によるようなので、私のマシンでチェックをはずしても
他の人のマシンでオンになっていたらハイパーリンクされてしまいますよね?

セル単位で、何を入力してもハイパーリンクさせない設定があれば教えてください。

どうぞよろしくお願いいたします。

Aベストアンサー

2010 は持っていないので 2007 場合ですが

メールアドレスのセルの「セルの書式設定」で
 表示形式:文字列
 フォント:お好きな色、サイズ、下線ナシ
 保護:ロックをオフ
他の入力するセルも同様にロックをオフにする。

その上で「シートの保護」(セルの書式設定は許可しないのままで)。

2010 でも多少の違いはあっても同じようなことができるのでは?

QExcel VBA によるハイパーリンクセル挿入

よろしくお願い致します。
Excelで写真データの管理出来るシートを作成しようとしています。
基本項目として、5項目+今回のハイパーリンクパスです。
1データ横一行に入力を行い、必要条件に応じシートから抽出し行末のハイパーリンクをクリックし写真を確認出来る様な事を想定しています。
ネットにて調べたのですが、ハイパーリンクを入力したいセルを選択後マクロボタンを押し「msoFileDialogFilePicker」を使用して該当ファイルを選択した物のハイパーリンクパスをセルに納める様に出来ればと思っています。当ファイルの使用は私以外の者が使用する為、上記VBAのFileDialogのインターフェースを使いたいと思っています。
何分当方VBA初心者の為、皆様のお力を頂きたくよろしくお願い致します。

Aベストアンサー

Sub Hyperlink挿入()
Dim FLDname As String
Dim fname As String
FLDname = "E:\写真\*.jpg"
fname = ""
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = FLDname
.AllowMultiSelect = False
If .Show = True Then
fname = .SelectedItems(1)
End If
End With
if fname<>""
ActiveCell.Value = fname
ActiveSheet.Hyperlinks.Add ActiveCell, fname
end if
End Sub
こんな感じでいかがでしょう。

Sub Hyperlink挿入()
Dim FLDname As String
Dim fname As String
FLDname = "E:\写真\*.jpg"
fname = ""
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = FLDname
.AllowMultiSelect = False
If .Show = True Then
fname = .SelectedItems(1)
End If
End With
if fname<>""
ActiveCell.Value = fname
ActiveSheet.Hyperlinks.Add ActiveCell, fname
end if
End Sub...続きを読む

Qoffice2002でのハイパーリンク

恐れ入ります。エクセルにおいて同じbook内でsheet1のあるセルにsheet2へ飛ぶハイパーリンクをどうやれば作れるのでしょうか?
エクセルの達人様よろしくお願いいたします。

Aベストアンサー

sheet1をカレントにする
右クリックメニューを出す
メニュー中のハイパーリンクを選択する
ハイパーリンクの挿入ダイアログで、
 リンク先に【このドキュメント】
 セル参照に【sheet2】
を選択する
OKを押す

でどうでしょうか。

QWORD VBAでハイパーリンクの文字列色変更

最初の質問
VBAの初心者です。教えてください。
色々なWEBサイトより情報を集めてWORD文書を作成しています。フォント名、サイズ、色がバラバラで、それを統一するVBAは以下のように出来たのですが、ハイパーリンクされている文字の色も黒になっています。ハイパーリンクされている文字色だけは本来の青色で表示したいのですが、どのようにしたらいいのか分かりません。よろしくお願いします。 (WORD2007 Windows7)

早速keithinさんより以下のご回答をいただきました。新しいWORDファイルで例題(30行ぐらい)を作り実行したところ、希望通りの結果でした。 その後ハイパーリンクの全てが表の中にある本ファイルで実行したところ、ハイパーリンクスタイルを再設定する途中で止まってしまい(12-13は設定されている)、”指定されたプロパティはこのオブジェクトではサポートされません”として
h.Range.Style = wdStyleHyperlink
がハイライトされてしまいます。
どのような問題が考えられるのでしょうか?

問題解決したと云いながら申し訳ありません。 サポートよろしくお願いします。







Sub macro1()
 Dim h As Hyperlink

’全文のフォントを設定する
 With ActiveDocument.Range(0, ActiveDocument.Range.End).Font
  .Name = "MS Pゴシック"
  .Size = 10.5
  .Bold = False
  .Color = wdColorBlack
 End With

’ハイパーリンクスタイルを再設定する
 For Each h In ActiveDocument.Hyperlinks
  h.Range.Style = wdStyleHyperlink
 Next
End Sub

最初の質問
VBAの初心者です。教えてください。
色々なWEBサイトより情報を集めてWORD文書を作成しています。フォント名、サイズ、色がバラバラで、それを統一するVBAは以下のように出来たのですが、ハイパーリンクされている文字の色も黒になっています。ハイパーリンクされている文字色だけは本来の青色で表示したいのですが、どのようにしたらいいのか分かりません。よろしくお願いします。 (WORD2007 Windows7)

早速keithinさんより以下のご回答をいただきました。新しいWORDファイルで例題(...続きを読む

Aベストアンサー

ん~~~
とりあえず次のようにしてみて下さい。

変更前:
 h.Range.Style = wdStyleHyperlink

変更後:
 if h.type = msohyperlinkrange then
  h.Range.Style = wdStyleHyperlink
 end if


文章に埋め込まれたハイパーリンクではなく,ボタンなど図形等に取り付けたハイパーリンクを一緒にコピーしてきているのではないかと思います。




またはもっと安直に,

sub macro1()
の直下に

sub macro1()
on error resume next

のようにするのでも出来ます。

QMS Office2010でEnterで下に移動!

MS Office 2010
で、ファイル¥オプション¥詳細設定¥Enterキーを押した後にセルを移動する

で、Officeを起動するたびに”右”になってしまい、とても不便です。


通常、デフォルトで下になれば、問題ないのですが、記憶してくれないので、
何とか、なりませんか?会社のPCなので、再インストールする方法以外でお願いします。

以前、質問しましたが、再起動後に元に戻ってしまったため、解決しなかったです。

Aベストアンサー

> Enterキーを押した後にセルを移動するで、Officeを起動するたびに”右”になってしまい、とても不便です。
> 通常、デフォルトで下になれば、問題ないのですが、記憶してくれないので、
> 何とか、なりませんか?会社のPCなので、再インストールする方法以外でお願いします。

Office 2010の「修復」機能をお試し下さい。

「Office 2010で修復機能を利用する方法」
http://121ware.com/qasearch/1007/app/servlet/relatedqa?QID=012826

Qexcel2000vba ハイパーリンク

excel2000のVBAのプロシージャを教えてください。

写真にあるとおり、sheet1の A1からA200セルまでに、 フルパスのアドレス、0、空白 が入っています。
ここで、フルパスが入っているセルを 下記の条件でハイパーリンクに置きかえたい。

1.フルパスの入っているセルをハイパーリンクのセルに変更する。
2.ハイパーリンクは、ハイパーリンクでも、ハイパーリンク関数でもいい
3.そのフルパスをハイパーリンクのリンク先アドレスにする。
4.表示文字列を ★ としたいです。

また、0が入っているセルは、空白に変更させたい。

以上がやりたいことです。そして下記プロシージャでトライしてみましたがエラーとなりうまくいきません。
プロシージャの修正もしくは、最適なプロシージャがあれば教えて欲しいです。
よろしくお願いします。


Sub test()
Dim trange As Range
Dim i As Long
For i = 1 To 200
trange = ("A" & i)
If trange.Value = "" Or "0" Then
trange.Value = ""
Else
Worksheets("Sheet2").trange.Hyperlinks.Add anchor:="★", Address:=trange.Value
End If
Next i
End Sub

excel2000のVBAのプロシージャを教えてください。

写真にあるとおり、sheet1の A1からA200セルまでに、 フルパスのアドレス、0、空白 が入っています。
ここで、フルパスが入っているセルを 下記の条件でハイパーリンクに置きかえたい。

1.フルパスの入っているセルをハイパーリンクのセルに変更する。
2.ハイパーリンクは、ハイパーリンクでも、ハイパーリンク関数でもいい
3.そのフルパスをハイパーリンクのリンク先アドレスにする。
4.表示文字列を ★ としたいです。

また、0が...続きを読む

Aベストアンサー

模範解答はcj_moverさんが既にご提示下さっていますが、
せっかくですから勉強のために私はさらに原型を残して修正ってことで・・・

Sub test()
Dim trange As Range 
Dim i As Long
 For i = 1 To 200
  Set trange = Range("A" & i)
   If trange.Value = "" Or trange.Value = 0 Then
    trange.Value = ""
   Else
    trange.Hyperlinks.Add anchor:=trange.Cells, Address:=trange.Value, TextToDisplay:="★"
   End If
  Next i
Set trange = Nothing
End Sub

Range で宣言した変数に代入するときは Set が必要です。
If で複数条件を指定するときは And , Or の後ろにも式が必要です。
Hyperlinks の使い方はもう少し勉強が必要かもです。
処理が終わったら変数に Nothing を指定して空にしてやると良いかもしれません。


ご自身のと比較して、勉強のネタにでもしてやってくださいませ。

模範解答はcj_moverさんが既にご提示下さっていますが、
せっかくですから勉強のために私はさらに原型を残して修正ってことで・・・

Sub test()
Dim trange As Range 
Dim i As Long
 For i = 1 To 200
  Set trange = Range("A" & i)
   If trange.Value = "" Or trange.Value = 0 Then
    trange.Value = ""
   Else
    trange.Hyperlinks.Add anchor:=trange.Cells, Address:=trange.Value, TextToDisplay:="★"
   End If
  Next i
Set trange = Nothing
End Sub

Range で宣言した...続きを読む

QEXCELのハイパーリンク

以前も同じような質問がありますが…。
EXCELのハイパーリンクで開くと、Netscapeで起動してしまいます。
IE(インターネットエクスプローラー)にしたいのですが、方法はあるのでしょうか?

Aベストアンサー

URLの関連づけはどうなっていますか?

マイコンピュータ→ツール(T)→フォルダオプションでファイルの関連づけを確認してください。
また、必要がなければNetscapeは削除することをお奨めします。

QEXCEL VBA複数のハイパーリンク付き文書を保存について

EXCEL VBA複数のハイパーリンク付き文書を保存について

検索が下手なのか,参考となる情報がなかなか見つからなかったため,初めて投稿しました。
EXCEL VBAは超初心者です。Verは2000になります。どうぞ,宜しくお願いします。
下記のような動作はできますでしょうか?(超初心者のため,できるのかどうかも分かりません。)

データの状態は,TESTというファイル名でSheet1のみ使用しており,1行目~24行目は操作上のセル参照などや操作説明文に使用しています。
B25にオートフィルタ▼マークがあり,以下B26からB300ぐらいまで「レ」が入っています。(これは今後増えていきます。)また,C列D列はハイパーリンク付き文書(**.xlsと**.html)があります。
(ユーザにC列D列を見て必要ない文書はB列の「レ」を削除後,B25のオートフィルタ▼を実行してもらう。この後の動作をVBAで行いたいと思っています。)

行いたいこと)
(1)選ばれたC列D列のハイパーリンク付き文書(全て)をD10で指定された場所へ保存する
 補足)D10はユーザによって指定する場所が違う。(マイドキュメントとは限らない。)

Sub Macro5()
Dim sPath As String
Dim hwnd As Long
Dim iRet As Long
hwnd = FindWindow("XLMAIN", vbNullString)
iRet = GetFolderName(hwnd, "フォルダを選択してください。", sPath)
If iRet = 0 Then
If Len(sPath) > 3 Then sPath = sPath & "\"
Cells(10, 4).Value = sPath
ElseIf iRet = 1 Then
MsgBox "キャンセルされました。"
Else
MsgBox "エラーが発生しました。"
End If
End Sub

Web上で調べた上記コードを引用させていただいて,ユーザごとに希望保存場所が違うため,別ウィンドウからユーザに保存場所を指定してもらい,D10の値を参照するようにしました。

(2)(1)の時ファイル名を一部変更し保存する。(http://AAA.co.jp/BB/CC/DD/EE/○○-○○.xls → D10の値参照\○○-○○_C3の値参照.xls)○○-○○の部分を選ぶようにしたい。
補足)ファイル名は同じではない。

Sub Macro6()
Dim BookUrl As String
Dim BookName As String
BookUrl = Range("D10").Value
BookName = Range("C3").Value
Range("C28").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True←ここの部分がハイパーリンクと関係ありなのでわからない。(ユーザにより選ばれる文書数が違いので)
ActiveWorkbook.SaveAs Filename:= _
"" & BookUrl & "00-00" & "_" & BookName & ".xls" ←ここの「00-00」の部分がハイパーリンクと関係ありなのでわからない。(各階層各文書名が違うので)
ActiveWindow.Close
End Sub

分からないこと)
ユーザによって選ばれる文書(抽出結果)が違うため,B列でレが選ばれた場合C列D列を見る。→その文書をD10セルで指定されている場所へ保存としたいが,C列D列の文書にハイパーリンクが貼ってあり,その階層もファイル名も行ごとに違うのでどうしたらいいかわからない。現在,1文書ならば行もファイル名も指定できるのでマクロの実行で保存し,上記コードでD10セルに指定されている場所へ保存できている。

分からないこと)をまとめると,
「ユーザごとに選ばれるハイパーリンク付き文書が違うが,これをD10で指定した場所へ保存したい」
「選ばれたハイパーリンク付き文書のハイパーリングからファイル名を変更して保存する際,「○○-○○」.xls部分のみ引用したい。この部分のみまだクリアーしていません。どうもハイパーリンクが絡むと分からなくなってしまいます。

質問の書き方も長々となってしまい,分かり辛いと思います。すみません。
どうぞ宜しくお願い致します。m(_ _)m

EXCEL VBA複数のハイパーリンク付き文書を保存について

検索が下手なのか,参考となる情報がなかなか見つからなかったため,初めて投稿しました。
EXCEL VBAは超初心者です。Verは2000になります。どうぞ,宜しくお願いします。
下記のような動作はできますでしょうか?(超初心者のため,できるのかどうかも分かりません。)

データの状態は,TESTというファイル名でSheet1のみ使用しており,1行目~24行目は操作上のセル参照などや操作説明文に使用しています。
B25にオートフィルタ▼マークがあり,以下B26か...続きを読む

Aベストアンサー

>かなりの初心者なので原因がわかりませんが,本当に助かりました。
...とりあえずURLDownloadToFile関数の事は忘れてください。
VBE(VisualBaicEditor)画面で[Ctrl]+[g]キー同時押しで
[イミディエイト]ウィンドウが出ます。
Debug.Print というのは、
デバッグの為にイミディエイトウィンドウにデータを出力するメソッドです。
イミディエイトウィンドウに出力された文字列を確認してみてほしい
という意味が込められていました。
SaveAsメソッドは ' でコメントアウトしていましたので当然、実行されません。

■※1)画面がちらつくのはApplication.ScreenUpdatingプロパティで制御可能です。

■※2)既存ファイルを無視するならDir関数で存在を調べて、
あればKillステートメントで削除しておけば良いです。

Sub try_2()
  Dim BookUrl As String
  Dim BookName As String
  Dim n    As String
  Dim rng   As Range
  Dim h    As Hyperlink

  With Sheets("sheet1")
    'AutoFilterModeでなければ抜ける
    If Not .AutoFilterMode Then Exit Sub
    'とりあえずAutoFilter.RangeのC:D列をセット
    Set rng = Intersect(.AutoFilter.Range.EntireRow, .Columns("C:D"))
    BookUrl = .Range("D10").Value
    n = "_" & .Range("C3").Value
  End With
  'rngの可視セル(抽出セル)をセット
  Set rng = Intersect(rng, rng.Offset(1), rng.SpecialCells(xlCellTypeVisible))
  '抽出なければ抜ける
  If rng Is Nothing Then Exit Sub

  '■※1)画面更新停止
  Application.ScreenUpdating = False
  'rng.HyperlinksをLoop
  For Each h In rng.Hyperlinks
    'Excelファイルの処理
    If UCase(Right$(h.Address, 3)) = "XLS" Then
      h.Follow NewWindow:=False
      With ActiveWorkbook
        BookName = BookUrl & Replace$(.Name, ".xls", n & ".xls", , , vbTextCompare)
        '■※2)既存ファイルあれば削除しておく
        If Len(Dir(BookName)) > 0 Then Kill BookName
        .SaveAs Filename:=BookName
        .Close
      End With
    End If
  Next
  '■※1)画面更新再開
  Application.ScreenUpdating = True

  Set rng = Nothing
End Sub

もう少し、基礎も押さえておいたほうがよろしいかと思いますので
参考サイトを挙げておきます。
http://excelvba.pc-users.net/
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/index.html
http://www.asahi-net.or.jp/~ef2o-inue/top01.html
では。
がんばってください。

>かなりの初心者なので原因がわかりませんが,本当に助かりました。
...とりあえずURLDownloadToFile関数の事は忘れてください。
VBE(VisualBaicEditor)画面で[Ctrl]+[g]キー同時押しで
[イミディエイト]ウィンドウが出ます。
Debug.Print というのは、
デバッグの為にイミディエイトウィンドウにデータを出力するメソッドです。
イミディエイトウィンドウに出力された文字列を確認してみてほしい
という意味が込められていました。
SaveAsメソッドは ' でコメントアウトしていましたので当然、実行されません。...続きを読む

QExcel97のハイパーリンクについて

Excel97を使っています。
一覧表があり、ハイパーリンクを使って
同ブック・別シートの詳細へ飛ばしています。

詳細の内容、種類がたくさんある為、
シート分けをせず、1枚のシート内で
離れた場所に詳細内容を作成しておいて、
リンク先を指定する際に、
画面に表示されるセルの場所まで指定したいのですが、
可能でしょうか。

「参照」のセル番地で指定できるのかと思いましたが、
指定したセルがうまく左上にきてくれない為、
画面上にキレイに表示する事が出来ません。

何かいい方法はあるでしょうか?
宜しくお願い致します。

やはり、シーとをそれぞれ作成するしかないでしょうか。

Aベストアンサー

すみません、よくわかりませんが、次の書き方がまずいのかも。

ww_j = ActiveCell.Row()
ww_k = ActiveCell.Column()
 ↓
ww_j = ActiveCell.Row
ww_k = ActiveCell.Column

>また、このマクロは、ハイパーリンクで飛んだ時に
>勝手に起動してくれるのでしょうか

その通りです。
Sheet1に書き込めば、Sheet1のハイパーリンクで飛んだときに動きます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ・・・こちらは、セルをクリックしたときに、マクロが動きます。


人気Q&Aランキング

おすすめ情報