Excel VBA質問箱 IV

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

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


14139 / 76738 ←次へ | 前へ→

【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

4 hits

【68095】結合セルの保護を全てのシートに反映させる 紗織 11/2/1(火) 10:48 質問
【68096】Re:結合セルの保護を全てのシートに反映さ... UO3 11/2/1(火) 11:32 発言
【68097】Re:結合セルの保護を全てのシートに反映さ... 紗織 11/2/1(火) 11:45 発言
【68098】Re:結合セルの保護を全てのシートに反映さ... UO3 11/2/1(火) 11:57 回答
【68101】Re:結合セルの保護を全てのシートに反映さ... 紗織 11/2/1(火) 13:29 発言
【68103】Re:結合セルの保護を全てのシートに反映さ... UO3 11/2/1(火) 13:43 発言
【68104】Re:結合セルの保護を全てのシートに反映さ... 紗織 11/2/1(火) 14:02 お礼

14139 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free