Excel VBA質問箱 IV

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

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


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

14135 / 76734

←次へ　｜　前へ→


	【68098】Re:結合セルの保護を全てのシートに反映させる

UO3 - 11/2/1(火) 11:57 -


	引用なし

	パスワード

▼紗織さん：

追加説明ありがとうございます。
まだ誤解していたら言ってください。

Sub Sample()
　　Dim sh As Worksheet
　　Dim c As Range
　　For Each sh In Worksheets
　　　　sh.Unprotect
　　　　sh.Cells.Locked = False
　　　　For Each c In sh.Range("B1:B10")
　　　　　　If c.MergeCells Then
　　　　　　　　If Split(c.MergeArea.Address, ":")(0) = c.Address Then _
　　　　　　　　　　　　　　　　　　　　　　　　c.MergeArea.Locked = True
　　　　　　End If
　　　　Next
　　　　sh.Protect
　　Next
　 MsgBox "完了です"
End Sub

0 hits

▼

【68095】結合セルの保護を全てのシートに反映させる 紗織 11/2/1(火) 10:48