[[20231211155710]]　『実行時エラー91』（121212）　ページの最後に飛ぶ

『実行時エラー91』（121212）

ここでエラーが出てしまいます

 Application.ActiveProtectedViewWindow.Edit
教えてください。

    Range("P1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.ActiveProtectedViewWindow.Edit
    Range("D3:P3").Select
    Selection.Copy
    Range("L6").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    Selection.Copy

＜使用 Excel：unknown、使用 OS：unknown ＞

ネットで検索して拾った解決方法

 If Not Application.ActiveProtectedViewWindow Is Noting Then
     Application.ActiveProtectedViewWindow.Edit
 End If

（通りすがり） 2023/12/11(月) 16:22:19

（通りすがり）さん

試してみたが、ダメでした。
ありがとうございます。
（121212） 2023/12/11(月) 16:56:15

何がどうダメなのか説明が無いから分からないけど、もし

 If Not Application.ActiveProtectedViewWindow Is Noting Then
で｢実行時エラー '424': オブジェクトが必要です。｣って出たなら、
Noting がスペルミスだから Nothing に変えて試してみて
（む） 2023/12/11(月) 17:12:40

むさん
ありがとうございます。
できました！！！！！！！
（121212） 2023/12/11(月) 17:36:18

コメント返信：

[ 一覧(最新更新順) ]

[[20231211155710]] 『実行時エラー91』（121212） ページの最後に飛ぶ

[[20231211155710]]　『実行時エラー91』（121212）　ページの最後に飛ぶ