Hi,

Is there a way to stop a macro from running if the worksbook has been opened
as Read Only

I have a file and all the worksheets are protected

My macro unprotects and re-protects all the sheets. I have written the
password in my macro and then protected my macro so no one can view. I dont
want any body to know my password so that is why I have added to code. Only
one other person other than me will be allowed to run the macro but I dot
want that person to be able to unprotect any of the worksheets.So hence me
writing the password in the code.

However when I am read only the macro still runs

Can you link a macro to a password on the workbook itself?
or
Tell the macro not to run if workbook has been opened as Read Only.

Your advice appreciated as always.

Thank you

Winnie

Hi,

You don't tell us how you call your code but you could do test for 'Read
Only' in the workbook open event module

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox "Read only"
Else
'run my macro
End If
End Sub

Mike

"winnie123" wrote:

Hi,

Is there a way to stop a macro from running if the worksbook has been opened
as Read Only

I have a file and all the worksheets are protected

My macro unprotects and re-protects all the sheets. I have written the
password in my macro and then protected my macro so no one can view. I dont
want any body to know my password so that is why I have added to code. Only
one other person other than me will be allowed to run the macro but I dot
want that person to be able to unprotect any of the worksheets.So hence me
writing the password in the code.

However when I am read only the macro still runs

Can you link a macro to a password on the workbook itself?
or
Tell the macro not to run if workbook has been opened as Read Only.

Your advice appreciated as always.

Thank you

Winnie

Hi Mike,

It didn't work it still allowed me to run the macro in read only.

I get the message box read only but then I click on the macro and it still
runs.

Would it help if I posted my code ?

"Mike H" wrote:

Hi,

You don't tell us how you call your code but you could do test for 'Read
Only' in the workbook open event module

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox "Read only"
Else
'run my macro
End If
End Sub

Mike

"winnie123" wrote:

Hi,

Is there a way to stop a macro from running if the worksbook has been opened
as Read Only

I have a file and all the worksheets are protected

My macro unprotects and re-protects all the sheets. I have written the
password in my macro and then protected my macro so no one can view. I dont
want any body to know my password so that is why I have added to code. Only
one other person other than me will be allowed to run the macro but I dot
want that person to be able to unprotect any of the worksheets.So hence me
writing the password in the code.

However when I am read only the macro still runs

Can you link a macro to a password on the workbook itself?
or
Tell the macro not to run if workbook has been opened as Read Only.

Your advice appreciated as always.

Thank you

Winnie

Hi,

Would it help if I posted my code ?

Probably yes but I still think this will work. If you run your macro by
pressing a button or from tools macros then this should do it

Sub MyMacro()
If ThisWorkbook.ReadOnly Then Exit Sub
'Your code
End Sub


Mike

"winnie123" wrote:

Hi Mike,

It didn't work it still allowed me to run the macro in read only.

I get the message box read only but then I click on the macro and it still
runs.

Would it help if I posted my code ?

"Mike H" wrote:

Hi,

You don't tell us how you call your code but you could do test for 'Read
Only' in the workbook open event module

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox "Read only"
Else
'run my macro
End If
End Sub

Mike

"winnie123" wrote:

Hi,

Is there a way to stop a macro from running if the worksbook has been opened
as Read Only

I have a file and all the worksheets are protected

My macro unprotects and re-protects all the sheets. I have written the
password in my macro and then protected my macro so no one can view. I dont
want any body to know my password so that is why I have added to code. Only
one other person other than me will be allowed to run the macro but I dot
want that person to be able to unprotect any of the worksheets.So hence me
writing the password in the code.

However when I am read only the macro still runs

Can you link a macro to a password on the workbook itself?
or
Tell the macro not to run if workbook has been opened as Read Only.

Your advice appreciated as always.

Thank you

Winnie

Mike your a star

Thanks very much it has done the trick for me

So very pleased I can rest in peace now :-)

Winnie

"Mike H" wrote:

Hi,

Would it help if I posted my code ?

Probably yes but I still think this will work. If you run your macro by
pressing a button or from tools macros then this should do it

Sub MyMacro()
If ThisWorkbook.ReadOnly Then Exit Sub
'Your code
End Sub


Mike

"winnie123" wrote:

Hi Mike,

It didn't work it still allowed me to run the macro in read only.

I get the message box read only but then I click on the macro and it still
runs.

Would it help if I posted my code ?

"Mike H" wrote:

Hi,

You don't tell us how you call your code but you could do test for 'Read
Only' in the workbook open event module

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox "Read only"
Else
'run my macro
End If
End Sub

Mike

"winnie123" wrote:

Hi,

Is there a way to stop a macro from running if the worksbook has been opened
as Read Only

I have a file and all the worksheets are protected

My macro unprotects and re-protects all the sheets. I have written the
password in my macro and then protected my macro so no one can view. I dont
want any body to know my password so that is why I have added to code. Only
one other person other than me will be allowed to run the macro but I dot
want that person to be able to unprotect any of the worksheets.So hence me
writing the password in the code.

However when I am read only the macro still runs

Can you link a macro to a password on the workbook itself?
or
Tell the macro not to run if workbook has been opened as Read Only.

Your advice appreciated as always.

Thank you

Winnie

Glad I could help

"winnie123" wrote:

Mike your a star

Thanks very much it has done the trick for me

So very pleased I can rest in peace now :-)

Winnie

"Mike H" wrote:

Hi,

Would it help if I posted my code ?

Probably yes but I still think this will work. If you run your macro by
pressing a button or from tools macros then this should do it

Sub MyMacro()
If ThisWorkbook.ReadOnly Then Exit Sub
'Your code
End Sub


Mike

"winnie123" wrote:

Hi Mike,

It didn't work it still allowed me to run the macro in read only.

I get the message box read only but then I click on the macro and it still
runs.

Would it help if I posted my code ?

"Mike H" wrote:

Hi,

You don't tell us how you call your code but you could do test for 'Read
Only' in the workbook open event module

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox "Read only"
Else
'run my macro
End If
End Sub

Mike

"winnie123" wrote:

Hi,

Is there a way to stop a macro from running if the worksbook has been opened
as Read Only

I have a file and all the worksheets are protected

My macro unprotects and re-protects all the sheets. I have written the
password in my macro and then protected my macro so no one can view. I dont
want any body to know my password so that is why I have added to code. Only
one other person other than me will be allowed to run the macro but I dot
want that person to be able to unprotect any of the worksheets.So hence me
writing the password in the code.

However when I am read only the macro still runs

Can you link a macro to a password on the workbook itself?
or
Tell the macro not to run if workbook has been opened as Read Only.

Your advice appreciated as always.

Thank you

Winnie