Hi,

I'm trying to write something backward compatible with Excel 2000 and
need cell formatting capability for unlocked cells in a protected
worksheet. I figure that if I use the selection change event, I can
toggle the format cells menu pick to use or not use (Depending on cell
locked status) a sub routine wherein I can unprotect, invoke the Dg, &
reprotect the worksheet.

So far I have not found the Dialog box constant to use Like:
Application.Dialogs(xlDialogFont).Show
, but for the same DG as produced by picking from the menu normally.

Help appreciated.

Thanks,
Walt Weber

Hi,

I don't know the constant. but this shows the "Format Cells" dialog box.

Application.CommandBars.FindControl(ID:=855).Execu te

--
HTH,

okaizawa


Walt wrote:
Hi,

I'm trying to write something backward compatible with Excel 2000 and
need cell formatting capability for unlocked cells in a protected
worksheet. I figure that if I use the selection change event, I can
toggle the format cells menu pick to use or not use (Depending on cell
locked status) a sub routine wherein I can unprotect, invoke the Dg, &
reprotect the worksheet.

So far I have not found the Dialog box constant to use Like:
Application.Dialogs(xlDialogFont).Show
, but for the same DG as produced by picking from the menu normally.

Help appreciated.

Thanks,
Walt Weber

Hi okaizawa,

That works nicely for Excel 2000 through 2003 (Tested) -- THANK YOU!!!

With 'Application.CommandBars.FindControls.Count' I find there are more
than 2300 of these. Is there a published table of the ID codes?
I've constructed the following partial list, but the mechanism I used
is tedious:
AlphaSort ID Caption
Align Left 120 Align &Left
Align Right 121 Align &Right
Bold 113 &Bold
Bring Forward 170 Bring &Forward
Bring to Front 166 Bring to Fron&t
Can't Repeat 37 Can't &Repeat
Center 122 &Center
Clear 47 Clear
Close 106 &Close
Copy 19 &Copy
Cut 21 Cu&t
File 0 &File
Flip Horizontal 196 Flip &Horizontal
Flip Vertical 197 Flip &Vertical
Format Painter 108 &Format Painter
Freeform 200 &Freeform
Full Screen 178 F&ull Screen
Group 164 &Group
Italic 114 &Italic
Line 130 &Line
Macros... 186 &Macros...
New... 18 &New...
Open 23 Open
Paste 22 &Paste
Print Preview 109 Print Pre&view
Print... 4 &Print...
Record New Macro... 184 &Record New Macro...
Redo 129 &Redo
Rotate Left 90? 199 Rotate &Left 90?
Rotate Right 90?198 Rotate &Right 90?
Save 3 &Save
Select Objects 182 &Select Objects
Send Backward 171 Send &Backward
Send to Back 167 Send to Bac&k
Spelling... 2 &Spelling...
Text Box 139 Te&xt Box
Underline 115 &Underline
Undo 128 &Undo
Ungroup 165 &Ungroup

You've truly helped a lot.

Best Regards,
Walt Weber

Walt wrote:
With 'Application.CommandBars.FindControls.Count' I find there are more
than 2300 of these. Is there a published table of the ID codes?

here is IDs (but not all)

List of ID numbers for built-in CommandBar controls in Excel 2000
http://support.microsoft.com/kb/213552/EN-US/

Sample macros to return ID for a CommandBar control
http://support.microsoft.com/kb/162814/EN-US/

--
HTH,

okaizawa

Hi okaizawa,

THANK YOU - it's now in my reference folder!! That's perfect & will
help me avoid asking questions for which I should know the answer.

Best Regards,
Walt Weber


okaizawa wrote:
Walt wrote:
With 'Application.CommandBars.FindControls.Count' I find there are more
than 2300 of these. Is there a published table of the ID codes?

here is IDs (but not all)

List of ID numbers for built-in CommandBar controls in Excel 2000
http://support.microsoft.com/kb/213552/EN-US/

Sample macros to return ID for a CommandBar control
http://support.microsoft.com/kb/162814/EN-US/

--
HTH,

okaizawa