[[20140408110446]]　『何故、実行時エラー　'1004':になるのですか？』（花見大好き）　ページの最後に飛ぶ

『何故、実行時エラー　'1004':になるのですか？』（花見大好き）

ご相談申し上げます。
下のコードを実行すると見出しのエラーになってしまいます。
最初から保護解除していると一度だけ動きますがその後は動きません。
エラーにならない方法を教えていただけませんか？、よろしくお願いします。
Private Sub Workbook_Open()

    Application.Goto Worksheets("Sheet1").Range("A1"), Scroll:=True      
　　ActiveSheet.Unprotect
    If Not ActiveSheet.Name = "Sheet1" Then Sheets(Sheet1).Select
　　　       ActiveSheet.ScrollArea = "A1"                                
    With ActiveSheet
        .EnableSelection = xlUnlockedCells
        .Protect
    End With    
    Call EnterkeySet
End Sub

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

    Worksheets("Sheet1").Unprotect
    Application.Goto Worksheets("Sheet1").Range("A1"), Scroll:=True
    With Worksheets("Sheet1")
        .ScrollArea = "A1"
        .EnableSelection = xlUnlockedCells
        .Protect
    End With
 たぶん。
 エクセル2007がくそみたいに使いづらいので、検証できなかったけど。
 BJ

お忙しい中すんませんでした。
きちんとWorksheets("Sheet1").にしなくてはいけないのですね。
どうもありがとう。
（花見大好き） 2014/04/08(火) 13:41

 いや問題は、Goto を書けるときに Protect が掛かっていたからでは？
 最初に解除すればというお話だと思いますが。

 2003 から 2007 へ移るときはみんな不満を持つみたいですね。
 慣れでしょうか。今や 2003 が使いづらい・・・。
（Mook） 2014/04/08(火) 13:44

コメント返信：

[ 一覧(最新更新順) ]

[[20140408110446]] 『何故、実行時エラー '1004':になるのですか？』（花見大好き） ページの最後に飛ぶ

[[20140408110446]]　『何故、実行時エラー　'1004':になるのですか？』（花見大好き）　ページの最後に飛ぶ