Hi,

can someone please explain why this proction macro does not allow the spell
check function to work when the 'userinterfaceonly' option is in it?!

Sub ProtectAll()

Dim sPassword As String
sPassword = "LMW5487"

If Application.InputBox( _
Prompt:="Please enter the password", _
Title:="Password", _
Type:=2) < sPassword Then

MsgBox "Wrong password!"
Exit Sub

End If

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:="sPassword", AllowFormattingCells:=True, _
Contents:=True, Scenarios:=True, userinterfaceonly:=True

Next ws

End Sub
--
Warm

Hi,

using userinterfaceonly simply means that you can change a protected sheet
using VB and if you want to spell check using code you can but won't be able
to do it from the worksheet menu.

To check using code do something like

Cells.CheckSpelling SpellLang:=1033

Mike

"Warm" wrote:

Hi,

can someone please explain why this proction macro does not allow the spell
check function to work when the 'userinterfaceonly' option is in it?!

Sub ProtectAll()

Dim sPassword As String
sPassword = "LMW5487"

If Application.InputBox( _
Prompt:="Please enter the password", _
Title:="Password", _
Type:=2) < sPassword Then

MsgBox "Wrong password!"
Exit Sub

End If

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:="sPassword", AllowFormattingCells:=True, _
Contents:=True, Scenarios:=True, userinterfaceonly:=True

Next ws

End Sub
--
Warm

Hi,
it still does not check the spelling, is there any particular place i need
to add it in?
--
Warm


"Mike H" wrote:

Hi,

using userinterfaceonly simply means that you can change a protected sheet
using VB and if you want to spell check using code you can but won't be able
to do it from the worksheet menu.

To check using code do something like

Cells.CheckSpelling SpellLang:=1033

Mike

"Warm" wrote:

Hi,

can someone please explain why this proction macro does not allow the spell
check function to work when the 'userinterfaceonly' option is in it?!

Sub ProtectAll()

Dim sPassword As String
sPassword = "LMW5487"

If Application.InputBox( _
Prompt:="Please enter the password", _
Title:="Password", _
Type:=2) < sPassword Then

MsgBox "Wrong password!"
Exit Sub

End If

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:="sPassword", AllowFormattingCells:=True, _
Contents:=True, Scenarios:=True, userinterfaceonly:=True

Next ws

End Sub
--
Warm

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:="sPassword", AllowFormattingCells:=True, _
Contents:=True, Scenarios:=True, userinterfaceonly:=True
Cells.CheckSpelling SpellLang:=1033

Next ws



Gord Dibben MS Excel MVP


On Mon, 15 Jun 2009 04:08:04 -0700, Warm
wrote:

Hi,
it still does not check the spelling, is there any particular place i need
to add it in?