|
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にしていなくても、保護のかかった部分のフォントを変えることができてしまったので、保護の状態をチェックして保護のかかってない部分のみ選択しなおしてフォントを適用可能にしています。
右クリックメニューに追加しておくと便利です。追加の仕方は過去ログにたくさんあると思うのでよかったら探してみてください。
|
|