質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.02%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

実行時エラー1004の回避方法

VBABeginner1
VBABeginner1

総合スコア13

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

2回答

0グッド

0クリップ

10198閲覧

投稿2019/01/28 06:04

前提・実現したいこと

エクセルでA列のセルに入力をすると、B列に入力した日時が表示(A1に入力するとB1に日時が表示)するようにVBAでコードを入れてあります。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r As Range
For Each r In Target
If r.Column = 1 Then
r.Offset(0, 1).Value = Format(Now, "mm月dd日(aaa)hh:mm")
End If
Next r
End Sub
またA列のセルに入力後、B列に表示されたセルの日時が変更されないように、B列のセルをロックして、シートの保護をしました。

発生している問題・エラーメッセージ

シートの保護をしている状態でA1セルに入力すると、実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーですと表示されます。

該当のソースコード

デバックを表示すると
r.Offset(0, 1).Value = Format(Now, "mm月dd日(aaa)hh:mm")
の部分が黄色に表示されています

試したこと

ネットでVBAとシートの保護の関係をいろいろ調べましたが、どのようにコードを改善すればいいのか分かりません。上記のコードもネットで調べて作成したもので、私自身VBAの知識があさいため、解決策が見つからない状態です。解決策をご教授いただけるとたいへんありがたいです。宜しくお願い致します。

補足情報(FW/ツールのバージョンなど)

ここにより詳細な情報を記載してください。打ち消し線

以下のような質問にはグッドを送りましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

グッドが多くついた質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

m.ts10806

2019/01/28 06:11

コードはマークダウンのcode機能を利用してご提示ください。
VBABeginner1

2019/01/28 06:33

大変わかりやすい方法をご提示いただきありがとうございました。 無事に解決できました。これからもっとVBAを勉強していきたいと思います。
m.ts10806

2019/01/28 06:48

いえ、これは私へではなく回答者へ、では。 私のは質問の編集依頼です。質問は編集できます

回答2

0

シートの保護がかかっている時点で仕方が無い、という現象ですが、1点だけ突破法が。

Excelの画面上から保護をかけると、人間が使った場合もVBAが処理した場合も書き換え不能になりますが、プログラム内で保護設定すると「人間が使うときだけ保護」という設定ができるようです。

VBAの「ThisWorkbook」のところをダブルクリックして、コード画面で

Private Sub Workbook_Open() Worksheets("Sheet1").Protect Password:="", UserInterfaceOnly:=True End Sub

のようなコードを追加してみてください。「Sheet1」に保護を改めてかけているのですが、「UserInterfaceOnly」という設定をつけることで、人間が使う場合だけ保護して、プログラムからは保護しないようになります。

投稿2019/01/28 06:22

編集2019/01/28 06:42
backyard

総合スコア534

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

下記のような回答は推奨されていません。

  • 間違っている回答
  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

回答へのコメント

VBABeginner1

2019/01/28 06:36

ご回答ありがとうございました。こちらの方法でも対応可能を確認できました。 いろんな解決方法を学べてたいへん光栄です。

0

ベストアンサー

シートの保護を解除してから更新すればよろしいかと。

VBA

1Private Sub Worksheet_Change(ByVal Target As Excel.Range) 2 Dim r As Range 3 Me.Unprotect ' 保護解除 4 For Each r In Target 5 If r.Column = 1 Then 6 r.Offset(0, 1).Value = Format(Now, "mm月dd日(aaa)hh:mm") 7 End If 8 Next r 9 Me.Protect ' 保護 10End Sub

投稿2019/01/28 06:16

ttyp03

総合スコア16988

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

下記のような回答は推奨されていません。

  • 間違っている回答
  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

回答へのコメント

VBABeginner1

2019/01/28 06:37

大変わかりやすい方法をご提示いただきありがとうございました。 無事に解決できました。これからもっとVBAを勉強していきたいと思います。

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.02%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。