Code based on opening Read Only or not
 

Hi

When a user opens my file they see the standard password box in which they
can either click the Read Only button and work in it as Read Only or enter
the password and work in it with write access.

Is there macro code I can enter in the same file that would hide a group of
worksheets if the user opens that file with write access but would not hide
these worksheets if they open the file as Read only?

thank you very much.....Craig

Code based on opening Read Only or not
 

You could use the Auto_Open() procedure in a General module:

Option Explicit
Sub auto_open()
If ThisWorkbook.ReadOnly Then
'do what you want
Else
'do something else
End If
End Sub

Or the Workbook_Open() event in the ThisWorkbook:

Option Explicit
Sub Workbook_Open()
If Me.ReadOnly Then
'do what you want
Else
'do something else
End If
End Sub

Craig wrote:

Hi

When a user opens my file they see the standard password box in which they
can either click the Read Only button and work in it as Read Only or enter
the password and work in it with write access.

Is there macro code I can enter in the same file that would hide a group of
worksheets if the user opens that file with write access but would not hide
these worksheets if they open the file as Read only?

thank you very much.....Craig

--

Dave Peterson

Code based on opening Read Only or not
 

Ps. The user will have to allow macros to run for those to work.

Craig wrote:

Hi

When a user opens my file they see the standard password box in which they
can either click the Read Only button and work in it as Read Only or enter
the password and work in it with write access.

Is there macro code I can enter in the same file that would hide a group of
worksheets if the user opens that file with write access but would not hide
these worksheets if they open the file as Read only?

thank you very much.....Craig

--

Dave Peterson

Code based on opening Read Only or not
 

If you are referring to your opened workbook as oWB, use something like this

if oWB.ReadOnly then
'Do read only stuff
else
'Do edit stuff
End if

HTH,
Barb Reinhardt

"Craig" wrote:

Hi

When a user opens my file they see the standard password box in which they
can either click the Read Only button and work in it as Read Only or enter
the password and work in it with write access.

Is there macro code I can enter in the same file that would hide a group of
worksheets if the user opens that file with write access but would not hide
these worksheets if they open the file as Read only?

thank you very much.....Craig

Code based on opening Read Only or not
 

I guess the OP could start the workbook with the group of sheets hidden and
the workbook password protected. Then, when the workbook is opened, he could
check to see if it is read-only or not... if it is not read only, he could
unhide those sheets. When the workbook is closed, he could re-hide the
sheets and re-apply the password protection. I guess to stop anyone from
discovering the embedded password, he would have to come up with an
encryption/decryption algorithm to make it harder to figure out what the
password is.

--
Rick (MVP - Excel)


"Dave Peterson" wrote in message
...
Ps. The user will have to allow macros to run for those to work.

Craig wrote:

Hi

When a user opens my file they see the standard password box in which
they
can either click the Read Only button and work in it as Read Only or
enter
the password and work in it with write access.

Is there macro code I can enter in the same file that would hide a group
of
worksheets if the user opens that file with write access but would not
hide
these worksheets if they open the file as Read only?

thank you very much.....Craig

--

Dave Peterson