| 
    
     |  | IROC さん >他に余分なマクロはなく、提示したコードだけで検証しましたか?
 シート1〜3に対してAUTO_OPENで保護をかけてます。
 '  Application.ScreenUpdating = False
 '  Set Ws1 = Worksheets("シート1")
 '  Set Ws2 = Worksheets("シート2")
 '  Set Ws3 = Worksheets("シート3")
 '  Ws1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 '  Ws2.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 '  Ws3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 '  Sheets("給与支払報告書").Select
 '  Range("k1").Select
 です。
 これをコメントにして試したところ上手く動作しました。
 なにがいけなかったんでしょうか。
 
 >Excelと、Windowsのバージョンもお教え下さい。
 EXCEL2000 WINDOWS ME です。
 
 
 |  |