Excel VBA質問箱 IV

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

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


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

45727 / 76732

←次へ　｜　前へ→


	【35991】LANDISK上で動きません。

みーさん

- 06/3/17(金) 14:26 -


	引用なし

	パスワード

お世話になっています。
又疑問に突き当たりました。

WINXPpro　Ver.2002 SP２上で　エクセル2002を使っています。
ある表を操作するマクロを作り、動作確認も済ませました。そのエクセルをLAN上のLANDISKに移したところマクロボタンが動作しません。そこでLANDISK上のエクセルに対してもう一度同じマクロを登録し直しましたが、やはり動きません。エラーメッセージは「実行時エラー'1004'：アプリケーション定義またはオブジェクト定義のエラーです」となっています。
本で調べるのですが解決方法が載っていません。どうすれば動くのかお教え下さい。よろしくお願いします。

記録を転記すれば、

　　ActiveCell.Offset(16, -2).Range("A1:A2").Select
　　ActiveSheet.Unprotect
　　ActiveCell.Offset(-2, 0).Rows("1:3").EntireRow.Select
　　Selection.EntireRow.Hidden = False
　　ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
　　Selection.Copy
　　Selection.Insert Shift:=xlDown
　　ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
　　Selection.EntireRow.Hidden = True
　　ActiveWindow.SmallScroll ToRight:=14
　　ActiveCell.Offset(-1, 27).Range("A1:I1").Select
　　Application.CutCopyMode = False
　　Selection.Locked = False
　　Selection.FormulaHidden = False
　　ActiveCell.Offset(-1, 0).Range("A1:I1").Select
　　Selection.Locked = True
　　Selection.FormulaHidden = False
　　ActiveWindow.SmallScroll ToRight:=-4
　　ActiveWindow.LargeScroll ToRight:=-1
　　ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

ですが、この最初の行が黄色くなっています。

1 hits

▼

【35991】LANDISK上で動きません。 みーさん 06/3/17(金) 14:26

≪