Worksheet ReadOnly?

[bopo]

Hi

Basically I want a worksheet to become read only, is there any way of implementing this?

[Simon Lloyd]

To make a worksheet read only you would need to make sure cells are locked and then apply worksheet protection, however to make a workbook read only you could use this:
[VBA]
Private Sub Workbook_Open()
ThisWorkbook.ChangeFileAccess xlReadOnly
End Sub
[/VBA]then everytime your workbook is opened it will be read only!

Regards,
SImon

[maytas]

Hi

Basically I want a worksheet to become read only, is there any way of implementing this?

worksheet -> WorkBook.
[VBA]Set WB = Workbooks.Open("C:\FolderName\WorkBookName.xls", False, True)[/VBA]

[Ken Puls]

For worksheets:
[vba]Worksheets("Sheet1").Protect Password:="MyPassword", userinterfaceonly:=True[/vba]

Change the sheet name (or put it in a loop), and change the password or elminate it all together. The UserInterfaceOnly argument sets it to allow macros to run on the worksheet, but prevent users from editing "locked" fields.

Be warned that the UserInterfaceOnly setting does not persist when Excel is closed. If you want that feature, I'd suggest a routine called from your Workbook_Open routine that re-protects the applicable sheets.

HTH,