Password protection protection!

[Andy Gee]

I have some password protected worksheets which need to be shared with various users to enter data. Sometimes people find it ammusing to change the password! Is there a way I can stop them from changing the password?

Any help please as it takes hours to crack the password and I can't stop people doing it!
This message was edited by Andy Gee on 2002-02-27 07:08

 

[ChrisM]

I had to do the same thing. here's my code tied into a command button:

Private Sub CommandButton1_Click()
'unprotect workbook and sheets
ActiveWorkbook.Unprotect ("pw")
For i = 1 To Sheets.Count
Sheets(i).Unprotect ("pw")
Next i

'run your code here
ActiveWorkbook.RefreshAll

Label1.Caption = "Last refreshed " & Now

'reprotect everything
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="pw"
Next i

ActiveWorkbook.Protect Password:="pw"

End Sub

 

[simonf]

Humm, can you explain what this do? Thanks.

 

[ChrisM]

This unprotects the workbook and every sheet in it.

Then it runs my desired code, which happens to be refresh all queries, then add the refresh time to a label box.

Then it reprotects the workbook and all worksheets with password = "pw"