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