Password Protection and Disapling Macros

Hello,

I'm putting a password on my workbook, and I want to disable certain buttons if the workbook is opened in 'Read Only'

This is what I have so far in the module,

Private Sub Workbook_Open()
 
    If ThisWorkbook.ReadOnly Then
     
        Sheets("Home Page").Maintenancebtn.Enabled = False
        Sheets("Home Page").Contractorsbtn.Enabled = False
        Sheets("Current Maintenance").UpdateHistory1.Enabled = False
        Sheets("Current Contractors").UpdateHistory2.Enabled = False
 
    End If

End Sub

This code came from: http://www.mrexcel.com/forum/excel-q...read-only.html

But nothing is happening, it's still allowing me to click the buttons.

I have attached a version of my old work book. If you plan on editing and re attaching, please use the password of '1234'

Many Thanks

That code doesn't look right to me. I'm not sure and this could come from using an old version of excel but I am used to using
Sheets("Sheetname").shapes("buttonname")
to reference buttons and I don't think they have an enabled property. Maybe try .visible = false instead?

AndyLitch,

Sarcasm

yudlugar,
Nothing has happened.
Did you mean:
Sheets("Sheetname").shapes("buttonname").visible = false
OR
Sheets("Sheetname").buttonname.visible = false

Sheets("Home Page").Shapes("Maintenancebtn").visible = False

Where do you have the code? It needs to be in the "thisworkbook" object in your vba project.

Oh! that was my problem. I had it in module1.

It is now working!

Thank you!