disable macros if read only

[tonylpcs@yahoo.co.uk]

Hi Everyone,

is there a way to disable a macro button (or all macros will do?) if the spreedsheet is opened in Read Only?

i'm trying to stop staff from opening read only copies then putting in data and wondering why it did not save? so ive got a warrning message to pop up if its in read only mode that will say you can not use this spreedsheet at the moment as its in read only etc. but would like to then have the process button disabled (buttons called "print")

any ideas?

thanks

Tony

 

[kpark91]

Hello,

Sub Example1()

    ' Test to see if the Read-only attribute was assigned to the file.

    If GetAttr("c:\test.xls") And vbReadOnly Then
        MsgBox "File is Read-only"
    Else
        MsgBox "File is not read-only"
    End If

End Sub

from http://support.microsoft.com/kb/153058

and no, there isn't a way to disable macros if it is read-only.
You would have to disable to manually in the code using if statements most likely or using boolean variables which act as switches.

 

[Sthrncali]

Try adding this to the beginning of your Print button macro:

    If ActiveWorkbook.ReadOnly Then
        Exit Sub
    End If