セルには入力できるけど、Shapeが触れないシートを作る方法です。 いや、まぁ、単純に"オブジェクト"のみをロックするだけのことなんですけどね。 Sub Macro1() ActiveSheet.Protect DrawingObjects:=True, Contents:=False End Sub これ↑で保護をかけると、…

シート上の図形を消したい！ってとき、どういうコードにしますか？ ActiveSheet.DrawingObjects.Delete が手っ取り早いけど、なんか事情(あるセル範囲内のものだけ消すとか)があってループさせたいって場合、以下のいずれかのようにするんじゃないかと思いま…

DrawingObjects 一族(Buttons や Lines とか)は、ループでちまちまと処理した場合とコレクションに対して一気に処理した場合で結果が違うことがあるようです。 Sub Macro1() Dim i As Object For Each i In ActiveSheet.DrawingObjects i.Delete Next i End …

キーボードから入力はできるけど、DELキーでクリアできないセル。 そんなのありえないだろ？と思いきや、実は可能なんですね〜。 （Excel 2003） 作り方は以下のとおりです。 1.A1セルのロックを外す。(B1セルはロックのまま) 2.A1:B1セルを結合する。 3.シ…