Validations: provide the ability to format the fonts in the list

[Guest]

In MS Excel, I find that when the zoom is dropped to 50% the fonts in the
list become unreadable. Is there anyway that the fonts in the list have the
ability to have their own formats?

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/com...dg=microsoft.public.excel.worksheet.functions

 

[Max]

In MS Excel, I find that when the zoom is dropped to 50%
the fonts in the list become unreadable.
Is there anyway that the fonts in the list have the
ability to have their own formats?

Think Debra Dalgleish's page addresses this issue at:
http://www.contextures.com/xlDataVal08.html#Larger
Make the Dropdown List Appear Larger

 

[Guest]

Thanx Max
However once the worksheet had protection enabled, the feature did not work.
Also it enlarges the entire worksheet which I guess is the best workaround
without any such feature within Excel.

Homar

 

[Max]

.. However once the worksheet had protection enabled,
the feature did not work.

Think there should be a vba way to auto-unprotect & re-protect so that it'll
work, but my vba proficiency is insufficient to offer this to you. Do hang
around awhile for insights from others versed in vba.

 

[Rowan Drummond]

As promised by Max:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Unprotect Password:="thepassword"
If Target.Address = "$A$2" Then
ActiveWindow.Zoom = 120
Else
ActiveWindow.Zoom = 100
End If
Me.Protect Password:="thepassword"
End Sub

Regards
Rowan

 

[Max]

Thanks, Rowan !
I'm also benefiting from your step-in <g>
Cheers

 

[Rowan Drummond]

Likewise <bg>

 

[Guest]

Thanx Rowan. I'm not a vb expert but managed to figure out where to put the
password commands.
below is the script i've used and it works.
one last thing though-how do i protect the code from being viewed? as it
contains the password!!!

Cheers and thanx agains
Homar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Unprotect Password:="thepassword"
Dim rngDV As Range
Dim intZoom As Integer
Dim intZoomDV As Integer
intZoom = 60
intZoomDV = 85
Application.EnableEvents = False
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo errHandler
If rngDV Is Nothing Then GoTo errHandler
If Intersect(Target, rngDV) Is Nothing Then
With ActiveWindow
If .Zoom <> intZoom Then
.Zoom = intZoom
End If
End With
Else
With ActiveWindow
If .Zoom <> intZoomDV Then
.Zoom = intZoomDV
End If
End With
End If
exitHandler:
Application.EnableEvents = True
Me.Protect Password:="thepassword"
Exit Sub
errHandler:
GoTo exitHandler
Me.Protect Password:="thepassword"
End Sub

Likewise <bg>

 

[Max]

.. how do i protect the code from being viewed?
as it contains the password!!!

Think we could try, in VBE,
Click Tools > VBA Project Properties > Protection tab
(the option is there)

 

[Guest]

Thanx Max and Rowan.
It works well.

Cheers

 

[Max]

You're welcome, Homar !
Thanks for the feedback ..