Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2711 / 76735

←次へ　｜　前へ→


	【79665】Re:実行時エラー1004-Activeメソッドが失敗しました

ひなまつり - 18/3/2(金) 10:14 -


	引用なし

	パスワード

亀マスターさん
おはようございます。回答をいただき、ありがとうございました。

ご指摘の通りファイルはネットワーク上にあります。
『インタネットから取得したファイルに対して保護されたビューを
　有効にする』のチェックを外したいところですが、セキュリティに
対して非常に厳しい会社のため、保護ビューの状態で使わざるを得ません。

ご教授いただいたコードを入れてみましたが、エラーが出ました。
お手数ですが、ご確認をお願いいたします。

Private Sub Workbook_Open()
　

Dim 開始日 As String
Dim 終了日 As String

Application.ProtectedViewWindows(1).Workbook←ご教授いただいたコード　

開始日 = Format(Worksheets("ABC").Range("F3"), "yyyy/mm/dd")
終了日 = Format(Worksheets("ABC").Range("G3"), "yyyy/mm/dd")

Worksheets("ABC").Activate

Worksheets("ABC").Range("A5:M10000").AutoFilter Field:=4, _
Criteria1:=">=" & 開始日, _
Operator:=xlAnd, _
Criteria2:="<=" & 終了日

Worksheets("ABC").Activate
　　　Worksheets("ABC").Range("A5:M10000") _
　　　　　　 .Sort Key1:=Range("D5"), order1:=xlAscending, _
　　　　　　　　　 Key2:=Range("F5"), order2:=xlAscending, _
　　　　　　　　　 Key3:=Range("B5"), order3:=xlAscending

開始日 = Format(Worksheets("XYZ").Range("F3"), "yyyy/mm/dd")
終了日 = Format(Worksheets("XYZ").Range("G3"), "yyyy/mm/dd")

Worksheets("XYZ").Activate

Worksheets("XYZ").Range("A5:M10000").AutoFilter Field:=4, _
Criteria1:=">=" & 開始日, _
Operator:=xlAnd, _
Criteria2:="<=" & 終了日

　　　Worksheets("XYZ").Range("A5:M10000") _
　　　　　　 .Sort Key1:=Range("D5"), order1:=xlAscending, _
　　　　　　　　　 Key2:=Range("F5"), order2:=xlAscending, _
　　　　　　　　　 Key3:=Range("B5"), order3:=xlAscending
　　　　　　　　　
　　　
End Sub

48 hits

▼

【79659】実行時エラー1004-Activeメソッドが失敗しました ひなまつり 18/3/1(木) 14:58