エクセルのインサートが出来ない。

質問

下記のコマンドの　インサートが　fundata　シートへはＯＫ　ＡＢＣシートが　出来ません。

Worksheets("fundata").Activate
fundata.Range("A2").EntireRow.Insert
orgdata.Range("a4:h4").Copy Destination:=fundata.Range("A2")

Worksheets("ABC").Activate
ABC.Range("A3").Select
endrh = ABC.Cells(600, 1).End(xlUp).Row
ABC.Range("A498:" & "A" & endrh).EntireRow.Delete

Application.CutCopyMode = False
Range("A3").Select
ABC.Range("A3").EntireRow.Insert
orgdata.Range("a4:h4").Copy Destination:=ABC.Range("A3")

そこで、ＡＢＣのシートを開いて　メニューバーの挿入コマンドが　グレーです。

で、コマンドで　挿入コマンドを許可、可能にするコマンドは無いのでしょうか？

出来ないＡＢＣシートには、ダブルクリックで　グラフの表示、消す仕掛けがあります。
fundata　には　そうした、使い方はしていません。
この辺が　原因かと推察するのですが

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Rows("2:2").RowHeight < 300 Then
ActiveSheet.Unprotect
Call ＡＢＣグラフ
Else
ActiveSheet.Unprotect

' 旧グラフ削除
For Each ZU In ActiveSheet.Shapes
ZU.Delete
Next
Rows("2:2").RowHeight = Rows("1:1").RowHeight
End If
Exit Sub
End Sub

Sub MACDグラフ()
Application.ScreenUpdating = False

ActiveSheet.Unprotect
'チャート幅を確保
Rows("2:2").RowHeight = 360

' 旧グラフ削除
For Each ZU In ActiveSheet.Shapes
ZU.Delete
Next

shname = ActiveSheet.Name
'グラフ目盛り最小値
以下

ActiveSheet.Protect DrawingObjects:=False
Range("G1").Select

回答No.1

mt2008 · ベストアンサー

Worksheet_BeforeDoubleClick()とMACDグラフ()では「ActiveSheet.Unprotect」を実行して保護を外してから処理を行っていますので、シート「ABC」にはシートの保護が掛っています。
だから行の挿入ができません。

保護を外して挿入を行い、終わったら保護をかけなおしてください。
ただし、今現在そのシートに保護をかけているという事は、行や列を挿入させたくない理由があるのかもしれません。ご自身で作ったシートでないなら、その辺りも気を付けて下さい。

お礼

お手数でした。

そこらあたりのようでした。