Change Options under ToolsOptioonsView Tab When User Opens Workbook
 

Greetings

I need to make sure that some of the options under ToolsOptionsView
tab are unchecked.

Is there anyway to do this when the workbook is opened?

Any help would be appreciated.

TIA

-Minitman

Change Options under ToolsOptioonsView Tab When User Opens Workbook
 

Minitman,
Sure, record a macro whilst you change the options.
You'll see some are members of Application whilst others are window or sheet
specific.

It's a good idea to save the initial settings so when you WS closes it can
reset them to the user-desired setup.
It is very annoying otherwise.

NickHK

"Minitman" wrote in message
...
Greetings

I need to make sure that some of the options under ToolsOptionsView
tab are unchecked.

Is there anyway to do this when the workbook is opened?

Any help would be appreciated.

TIA

-Minitman

Change Options under ToolsOptioonsView Tab When User Opens Workbook
 

Hey NickHK,

Thanks for the reply. I tried that and found that what I wanted to
change was grayed out when I had the recorder on.

The part about recording the current setting is a good idea. How do I
do that?

TIA

-Minitman



On Wed, 28 Sep 2005 15:08:10 +0800, "NickHK"
wrote:

Minitman,
Sure, record a macro whilst you change the options.
You'll see some are members of Application whilst others are window or sheet
specific.

It's a good idea to save the initial settings so when you WS closes it can
reset them to the user-desired setup.
It is very annoying otherwise.

NickHK

"Minitman" wrote in message
.. .
Greetings

I need to make sure that some of the options under ToolsOptionsView
tab are unchecked.

Is there anyway to do this when the workbook is opened?

Any help would be appreciated.

TIA

-Minitman

Change Options under ToolsOptioonsView Tab When User Opens Workbook
 

Hey NickHK,

I stand corrected. The recorder did work (I accidentally hid the
thing and it kept on recording and then crashed Excel. I cleared out
the module and tried again. This time it worked)

I am still wondering as to how and where to record the original
settings.

Any help on this would be most appreciated.

TIA

-Minitman

On Wed, 28 Sep 2005 05:51:38 -0500, Minitman
wrote:

Hey NickHK,

Thanks for the reply. I tried that and found that what I wanted to
change was grayed out when I had the recorder on.

The part about recording the current setting is a good idea. How do I
do that?

TIA

-Minitman



On Wed, 28 Sep 2005 15:08:10 +0800, "NickHK"
wrote:

Minitman,
Sure, record a macro whilst you change the options.
You'll see some are members of Application whilst others are window or sheet
specific.

It's a good idea to save the initial settings so when you WS closes it can
reset them to the user-desired setup.
It is very annoying otherwise.

NickHK

"Minitman" wrote in message
. ..
Greetings

I need to make sure that some of the options under ToolsOptionsView
tab are unchecked.

Is there anyway to do this when the workbook is opened?

Any help would be appreciated.

TIA

-Minitman

Change Options under ToolsOptioonsView Tab When User Opens Workbook
 

Minitman,
On a WS (maybe hidden), in Workbook_Open, something like:

Dim rng As Range
Set rng = ThisWorkbook.Worksheets("Settings").Range("Home")

With ActiveWindow
rng.Offset(1, 0).Value = .DisplayFormulas
rng.Offset(2, 0).Value = .DisplayGridlines
'.............
End With
rng.Offset(3, 0).Value = ActiveSheet.DisplayAutomaticPageBreaks
rng.Offset(4, 0).Value = ActiveWorkbook.DisplayDrawingObjects
With Application
rng.Offset(5, 0).Value = .DisplayFormulaBar
rng.Offset(6, 0).Value = .DisplayStatusBar
'.......................
End With
End Sub

And then on closing, do the opposite:
With ActiveWindow
.DisplayFormulas=rng.Offset(1, 0).Value
.DisplayGridlines=rng.Offset(2, 0).Value
'.............

You probably will not need to change all the settings, but you get the idea.

NickHK

"Minitman" wrote in message
...
Hey NickHK,

I stand corrected. The recorder did work (I accidentally hid the
thing and it kept on recording and then crashed Excel. I cleared out
the module and tried again. This time it worked)

I am still wondering as to how and where to record the original
settings.

Any help on this would be most appreciated.

TIA

-Minitman

On Wed, 28 Sep 2005 05:51:38 -0500, Minitman
wrote:

Hey NickHK,

Thanks for the reply. I tried that and found that what I wanted to
change was grayed out when I had the recorder on.

The part about recording the current setting is a good idea. How do I
do that?

TIA

-Minitman



On Wed, 28 Sep 2005 15:08:10 +0800, "NickHK"
wrote:

Minitman,
Sure, record a macro whilst you change the options.
You'll see some are members of Application whilst others are window or
sheet
specific.

It's a good idea to save the initial settings so when you WS closes it
can
reset them to the user-desired setup.
It is very annoying otherwise.

NickHK

"Minitman" wrote in message
. ..
Greetings

I need to make sure that some of the options under ToolsOptionsView
tab are unchecked.

Is there anyway to do this when the workbook is opened?

Any help would be appreciated.

TIA

-Minitman

Change Options under ToolsOptioonsView Tab When User Opens Workbook
 

Hey NickHK,

Thanks, that will work nicely. I did discover that what I am trying
to do is NOT a good idea (Thankfully, I have backups).

If you hadn't of shown me how to do it, I wouldn't have seen just how
badly one could mess things up! :^/

=Minitman


On Thu, 29 Sep 2005 09:53:21 +0800, "NickHK"
wrote:

Dim rng As Range
Set rng = ThisWorkbook.Worksheets("Settings").Range("Home")

With ActiveWindow
rng.Offset(1, 0).Value = .DisplayFormulas
rng.Offset(2, 0).Value = .DisplayGridlines
'.............
End With
rng.Offset(3, 0).Value = ActiveSheet.DisplayAutomaticPageBreaks
rng.Offset(4, 0).Value = ActiveWorkbook.DisplayDrawingObjects
With Application
rng.Offset(5, 0).Value = .DisplayFormulaBar
rng.Offset(6, 0).Value = .DisplayStatusBar
'.......................
End With

Change Options under ToolsOptioonsView Tab When User Opens Workbook
 

Minitman,
It's good that your saw the error of your design before you inflicted it
upon some poor user.

NickHK

"Minitman" wrote in message
...
Hey NickHK,

Thanks, that will work nicely. I did discover that what I am trying
to do is NOT a good idea (Thankfully, I have backups).

If you hadn't of shown me how to do it, I wouldn't have seen just how
badly one could mess things up! :^/

=Minitman


On Thu, 29 Sep 2005 09:53:21 +0800, "NickHK"
wrote:

Dim rng As Range
Set rng = ThisWorkbook.Worksheets("Settings").Range("Home")

With ActiveWindow
rng.Offset(1, 0).Value = .DisplayFormulas
rng.Offset(2, 0).Value = .DisplayGridlines
'.............
End With
rng.Offset(3, 0).Value = ActiveSheet.DisplayAutomaticPageBreaks
rng.Offset(4, 0).Value = ActiveWorkbook.DisplayDrawingObjects
With Application
rng.Offset(5, 0).Value = .DisplayFormulaBar
rng.Offset(6, 0).Value = .DisplayStatusBar
'.......................
End With