Excel VBA質問箱 IV

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

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


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

2789 / 76807

←次へ　｜　前へ→


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

ひなまつり - 18/3/1(木) 14:58 -


	引用なし

	パスワード

こんにちは。
お世話になります。

昨日EXCEL2007から2010へのバージョンアップがありました。
今朝EXCELを開いたところ『保護されたビュー』が表示され、
『編集を有効にする』と、下記のエラーメッセージが出てしまします。

<実行時エラー1004>
『WorksheetクラスのActivateメソッドが失敗しました』

このエラーを解除したいのですが、どのようにすれば良いのでしょうか。

Worksheets("ABC").Activateというコードを入れてみたのですが…

ご教授をいただければ助かります。
どうぞよろしくお願い申し上げます。

-----------------------------------------------------------

Private Sub Workbook_Open()
　

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

開始日 = 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").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").Activate
　　　Worksheets("XYZ").Range("A5:M10000") _
　　　　　　 .Sort Key1:=Range("D5"), order1:=xlAscending, _
　　　　　　　　　 Key2:=Range("F5"), order2:=xlAscending, _
　　　　　　　　　 Key3:=Range("B5"), order3:=xlAscending
　　　　　　　　　
　　　
End Sub

38 hits

▼

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