I think you guys have it right. MS does not want you changing the number of
controls that appear in their built-in groups. And no way to enable a
button Excel has disabled. So you've got to have duplicate spellcheck
buttons, Walt.

--
Jim
"Walt" wrote in message
...
| Hi Ron,
|
| So, I think you must have found the same result. Excel's disabling
| of the Spelling control on the Ribbon and Quick Access Toolbar when a
| worksheet is protected cannot be managed.
|
| I was able to load your posted code and it works OK. But when I
| tried to make it look cleaner and substitute visible for enabled in
| <command idMso="Spelling" enabled = "false" /, I saw the error
| message "The 'visible' attribute is not declared". Also, as I
| suspected, the Quick Access Toolbar shows the Spelling button as
| visible but not enabled. Managing the Built-In control would be a
| nicer solution if possible.
|
| I appreciate your thoughts on this Ron.
|
| Best Regards,
| Walt
|
|
| On Feb 19, 12:17 pm, "Ron de Bruin" wrote:
| Not looked very good but I think I go for this (Easy I think)
| And in Macro1 add your unprotect/spelling/protect
|
| 'Callback for customButton1 onAction
| Sub Macro1(control As IRibbonControl)
| ActiveSheet.Unprotect
| Cells.CheckSpelling SpellLang:=1033
| ActiveSheet.Protect
| End Sub
|
| And this is the xml to disable the normal spelling and add a new button
|
| <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
|
| <commands
|
| <!-- Example to disable Spelling--
| <command idMso="Spelling" enabled = "false" /
|
| </commands
|
| <ribbon
| <tabs
|
| <tab idMso="TabReview"
| <group id="customGroup1" label="My Spelling"
insertBeforeMso="GroupProofing"
| <button id="customButton1" label="Spelling" size="large"
onAction="Macro1" imageMso="Spelling" /
| </group
| </tab
|
| </tabs
| </ribbon
| </customUI
|
| --
|
| Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm
|

Hi Ron & Jim,

I may not like the answer, but I understand and I thank you both for
the consideration.

An instance where I've enabled and intercepted the spell checker in
the past has been:

Sub UnlockedSpellCK() 'PROTECTED SHEET UNLOCKED CELLS SPELL CHECKER
Dim TstRng As Range, CL As Range
On Error GoTo UnlockedSpellCKERROR
With ActiveSheet
Set TstRng = .Range("AB1") 'ANY KNOWN EMPTY CELL JUST TO
GET STARTED
For Each CL In .UsedRange.Cells
If CL.Locked = False Then Set TstRng =
Application.Union(TstRng, CL)
Next
.Unprotect
TstRng.CheckSpelling
.Protect DrawingObjects:=False, Contents:=True,
Scenarios:=True
End With
Set TstRng = Nothing: Set CL = Nothing
Exit Sub
UnlockedSpellCKERROR:
Set TstRng = Nothing: Set CL = Nothing
ActiveSheet.Protect DrawingObjects:=False, Contents:=True,
Scenarios:=True
MsgBox "Error in 'UnlockedSpellCK' routine."
End Sub

In it, I only spell check the UnLocked cells that the user has access
to change. An even nicer solution would be if Excel, by default,
didn't completely disable the spell checker when a protected sheet is
active, but would just check any UnLocked cells.

Best Regards,
Walt

On Feb 20, 7:45�am, "Jim Rech" wrote:
I think you guys have it right. �MS does not want you changing the number of
controls that appear in their built-in groups. �And no way to enable a
button Excel has disabled. �So you've got to have duplicate spellcheck
buttons, Walt.

--
Jim

Hi Walt

You can hide the group

<tab idMso="TabReview"
<group idMso="GroupProofing" visible="false"/
</tab

And make a new one with the same buttons and your own spelling button
Nicer then two spelling buttons

But if the use have it in the QAT you still have the problem that the user can't use that option


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Walt" wrote in message ...
Hi Ron & Jim,

I may not like the answer, but I understand and I thank you both for
the consideration.

An instance where I've enabled and intercepted the spell checker in
the past has been:

Sub UnlockedSpellCK() 'PROTECTED SHEET UNLOCKED CELLS SPELL CHECKER
Dim TstRng As Range, CL As Range
On Error GoTo UnlockedSpellCKERROR
With ActiveSheet
Set TstRng = .Range("AB1") 'ANY KNOWN EMPTY CELL JUST TO
GET STARTED
For Each CL In .UsedRange.Cells
If CL.Locked = False Then Set TstRng =
Application.Union(TstRng, CL)
Next
.Unprotect
TstRng.CheckSpelling
.Protect DrawingObjects:=False, Contents:=True,
Scenarios:=True
End With
Set TstRng = Nothing: Set CL = Nothing
Exit Sub
UnlockedSpellCKERROR:
Set TstRng = Nothing: Set CL = Nothing
ActiveSheet.Protect DrawingObjects:=False, Contents:=True,
Scenarios:=True
MsgBox "Error in 'UnlockedSpellCK' routine."
End Sub

In it, I only spell check the UnLocked cells that the user has access
to change. An even nicer solution would be if Excel, by default,
didn't completely disable the spell checker when a protected sheet is
active, but would just check any UnLocked cells.

Best Regards,
Walt

On Feb 20, 7:45�am, "Jim Rech" wrote:
I think you guys have it right. �MS does not want you changing the number of
controls that appear in their built-in groups. �And no way to enable a
button Excel has disabled. �So you've got to have duplicate spellcheck
buttons, Walt.

--
Jim