|
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 です。
|
|