Chip, Thanks - it works! Can I ask you this - I have an
Auto_Open Sub (below). Can this be modified to
automatically switch the user's security to Medium when
they open this workbook, then reset it to high on close?

Sub Auto_Open()
Application.ScreenUpdating = False

For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.GoTo ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
End If
Next

Worksheets("Scorecard").Select
Application.AutoPercentEntry = True
Application.ScreenUpdating = True

End Sub

Thanks, Phil

Phil,

Chip has answered the question, but just think about it, what sort of
security would it be if you could do that?

--

HTH

Bob Phillips

"Phil Hageman" wrote in message
...
Chip, Thanks - it works! Can I ask you this - I have an
Auto_Open Sub (below). Can this be modified to
automatically switch the user's security to Medium when
they open this workbook, then reset it to high on close?

Sub Auto_Open()
Application.ScreenUpdating = False

For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.GoTo ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
End If
Next

Worksheets("Scorecard").Select
Application.AutoPercentEntry = True
Application.ScreenUpdating = True

End Sub

Thanks, Phil

Imagine the thousands of virus writers out there just sitting quietly, watching this thread and
praying that Chip can give you some magic to really do that. <vbg

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL2K & XLXP

----------------------------------------------------------------------------
Attitude - A little thing that makes a BIG difference
----------------------------------------------------------------------------



"Phil Hageman" wrote in message ...
Chip, Thanks - it works! Can I ask you this - I have an
Auto_Open Sub (below). Can this be modified to
automatically switch the user's security to Medium when
they open this workbook, then reset it to high on close?

Sub Auto_Open()
Application.ScreenUpdating = False

For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.GoTo ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
End If
Next

Worksheets("Scorecard").Select
Application.AutoPercentEntry = True
Application.ScreenUpdating = True

End Sub

Thanks, Phil

You are right - I'm getting out of line here. I will
educate the user. Thanks for setting me straight.
-----Original Message-----
Phil,

Chip has answered the question, but just think about it,
what sort of
security would it be if you could do that?

--

HTH

Bob Phillips

"Phil Hageman" wrote in message
...
Chip, Thanks - it works! Can I ask you this - I have an
Auto_Open Sub (below). Can this be modified to
automatically switch the user's security to Medium when
they open this workbook, then reset it to high on close?

Sub Auto_Open()
Application.ScreenUpdating = False

For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.GoTo ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
End If
Next

Worksheets("Scorecard").Select
Application.AutoPercentEntry = True
Application.ScreenUpdating = True

End Sub

Thanks, Phil


.

Hi Phil,
Not sure what your trying to accomplish, but you might want to look into
user profiles to control who can run macros.


--

John

johnf202 at hotmail dot com


"Phil Hageman" wrote in message
...
Chip, Thanks - it works! Can I ask you this - I have an
Auto_Open Sub (below). Can this be modified to
automatically switch the user's security to Medium when
they open this workbook, then reset it to high on close?

Sub Auto_Open()
Application.ScreenUpdating = False

For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.GoTo ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
End If
Next

Worksheets("Scorecard").Select
Application.AutoPercentEntry = True
Application.ScreenUpdating = True

End Sub

Thanks, Phil

This is the answer! Thanks Myrna.
-----Original Message-----
Perhaps you should investigate Digital Signatures. If you
sign your workbooks, the user can set
his security to medium, then open your workbook. They
will told that the code has been signed by
you and given (1) the option to run macros or not, and
(2) to "always trust macros from this
source".

Once they answer the latter affirmatively, they can set
their security back to High and still
open your workbooks.


On Thu, 24 Jul 2003 13:16:19 -0700, "Phil Hageman"
wrote:

You are right - I'm getting out of line here. I will
educate the user. Thanks for setting me straight.
-----Original Message-----
Phil,

You cannot change the user's security setting at all
via
code.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Phil Hageman" wrote in message
.. .
Chip, Thanks - it works! Can I ask you this - I have
an
Auto_Open Sub (below). Can this be modified to
automatically switch the user's security to Medium
when
they open this workbook, then reset it to high on
close?

Sub Auto_Open()
Application.ScreenUpdating = False

For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.GoTo ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
End If
Next

Worksheets("Scorecard").Select
Application.AutoPercentEntry = True
Application.ScreenUpdating = True

End Sub

Thanks, Phil


.


.