If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Spell Check
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 |
#2
|
|||
|
|||
Spell Check
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 |
#3
|
|||
|
|||
Spell Check
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 |
#4
|
|||
|
|||
Spell Check
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? |
Thread Tools | |
Display Modes | |
|
|