Auto protect on opening (excel xp)

Topic

New Reply

hello guys,

can you guys give an example how to protect all sheets during the auto_open procedure ?

something like

sub auto_open()
????????
????????

end sub

i want to protect all my sheets everytime i open my file..thanks..

Reply | Quote

Replies

Do you want to open a readonly version of the file?

Reply | Quote

nope catherine..

i just want to protect all my sheets everytime i open my file. thanks

Reply | Quote

nope catherine..

i just want to protect all my sheets everytime i open my file. thanks

Reply | Quote

Do you want to open a readonly version of the file?

Reply | Quote

Add this to the thisworkbook object

Option Explicit
Private Sub Workbook_Open()
    Dim sht
    For Each sht In Sheets
        sht.Protect
    Next
End Sub

Steve

Reply | Quote

thanks steve…

how to add the password..let say “abc”

thanks

Reply | Quote

(Edited by sdckapr on 10-Jun-04 14:43. added PS)

Use the line:

sht.Protect "abc"

Instead of the one listed

Steve
PS if any of the sheets already have passwords, you will not get an error, but the sheets will be still have the old password, they will not be protected with the new password.

Reply | Quote

thanks steve..it works. regards

Reply | Quote

thanks steve..it works. regards

Reply | Quote

(Edited by sdckapr on 10-Jun-04 14:43. added PS)

Use the line:

sht.Protect "abc"

Instead of the one listed

Steve
PS if any of the sheets already have passwords, you will not get an error, but the sheets will be still have the old password, they will not be protected with the new password.

Reply | Quote

thanks steve…

how to add the password..let say “abc”

thanks

Reply | Quote

Add this to the thisworkbook object

Option Explicit
Private Sub Workbook_Open()
    Dim sht
    For Each sht In Sheets
        sht.Protect
    Next
End Sub

Steve

Reply | Quote