Excel VBA質問箱 IV

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

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


52882 / 76732 ←次へ | 前へ→

【28677】Re:シートの保護をした後にセルの書式設定
回答  りん E-MAIL  - 05/9/12(月) 19:31 -

引用なし
パスワード
   pio さん、こんばんわ。

>現在、入力制限を行ったシートを作成しています。
>入力制限の方法(保護のロックを解除後、シートを保護)は分かったのですが
>保護の解除を行ったセルの書式設定が行えなくなりました。
>マウスの右クリックをしても「セルの書式設定」が押せない状態です。
>セルの入力制限を行ってもセルの書式設定の方法を知ってる方がいらっしゃいましたら、教えてください。よろしくお願いします。

 セルの書式設定のダイアログには、保護に関するタブがあるので、それで表示できなくしてあるのかなあ?とさっき思いました。

 ただ、個々のダイアログを表示することが可能なので、たとえばフォントを変えたい場合は、フォントの設定のダイアログを呼び出せばいいです。

Sub test()
  Dim r1 As Range, r2 As Range
  '選択範囲をチェック(図形等が選択されている時はエラーになるので無視)
  If TypeName(Selection) = "Range" Then
   For Each r1 In Selection
     If r1.Locked = False Then
      If r2 Is Nothing Then
        Set r2 = r1
      Else
        Set r2 = Application.Union(r2, r1)
      End If
     End If
   Next
   If Not r2 Is Nothing Then
     r2.Select '再選択
     'セルの書式設定のフォントダイアログを表示
     Application.Dialogs(xlDialogFontProperties).Show
   End If
  End If
End Sub
 こんな感じです。

 なぜかUserInterfaceOnlyをTrueにしていなくても、保護のかかった部分のフォントを変えることができてしまったので、保護の状態をチェックして保護のかかってない部分のみ選択しなおしてフォントを適用可能にしています。

 右クリックメニューに追加しておくと便利です。追加の仕方は過去ログにたくさんあると思うのでよかったら探してみてください。
0 hits

【28671】シートの保護をした後にセルの書式設定 pio 05/9/12(月) 16:44 発言
【28677】Re:シートの保護をした後にセルの書式設定 りん 05/9/12(月) 19:31 回答
【28704】Re:シートの保護をした後にセルの書式設定 pio 05/9/13(火) 9:56 質問
【28737】Re:シートの保護をした後にセルの書式設定 りん 05/9/13(火) 21:04 発言
【28768】Re:シートの保護をした後にセルの書式設定 pio 05/9/14(水) 10:46 お礼
【28792】Re:シートの保護をした後にセルの書式設定 りん 05/9/14(水) 20:22 発言
【28859】Re:シートの保護をした後にセルの書式設定 pio 05/9/16(金) 15:52 お礼
【28897】Re:シートの保護をした後にセルの書式設定 りん 05/9/17(土) 17:18 発言
【28957】Re:シートの保護をした後にセルの書式設定 pio 05/9/19(月) 16:21 お礼
【28967】Re:シートの保護をした後にセルの書式設定 りん 05/9/19(月) 20:19 発言
【29015】Re:シートの保護をした後にセルの書式設定 pio 05/9/21(水) 15:25 お礼

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