エクセル シートを保護してる時のセル結合

質問

エクセル２０１０を使用しています。
仕事の成果を一定の様式に記入してもらいます。書式、関数などを変更してもらいたくないのでシートに保護をかけました。
記入してもらうところだけセルのロックをはずし入力OKに設定しました。
しかし、シートの保護をかけるとロックをはずしててもセルの結合はできないんですね。なので、過去の質問からシートの保護がかかっていてもマクロですべての操作をしようできるというマクロ↓を参考にしてみました。

Sub seru()
ActiveSheet.Protect UserInterFaceOnly:=True
End Sub

これと、セルを結合するマクロ↓を考えたのですが、どのように２つをくっつけたらいいのかがわかりません。

If TypeName(Selection)="Range"and Selection.Cells.Count>1 Then
Selection.Merge
ActiveSheet.Protect,AllowFormattingCells:=True
End If

何かぬけているのかマクロを実行しても全く働いてくれません。
どうかよろしくです。

回答No.1

keithin · ベストアンサー

sub macro1()
　ActiveSheet.Protect UserInterFaceOnly:=True
　If TypeName(Selection)="Range"and Selection.Cells.Count>1 and selection.locked = false Then
　Selection.Merge
　End If
end sub

のようなマクロにすると動きます。

#補足
あなたの書きかけマクロだと、保護されたセルまでセル結合できてしまうので、保護されていないセルだけを対象にするように書き足してあります。

お礼

ありがとうございました。
マクロももう少し勉強しようと思います。
うまく、思うように働いたので良かったです！