VBA Button to Show all worksheets as READ ONLY

Hi all,

I am currently trying to create a button within my workbook which will "reveal" all worksheets as read only.

I have a password protected button to 'Show all' worksheets within the workbook, the code for that being:

Sub ShowAll_Click()
Dim ws As Worksheet
Dim wb As Workbook
Dim i As Integer
Dim strResponse As String

strResponse = InputBox("Please enter the password.", "Password")

If strResponse = "Test" Then
Dim wsSheet As Worksheet
Application.ScreenUpdating = False
For Each wsSheet In Worksheets
wsSheet.Visible = True
Next wsSheet
Application.ScreenUpdating = True

Else

MsgBox "The password entered is incorrect.", vbCritical, "Incorrect Password"

Exit Sub

End If

End Sub

How do I update this to only show all worksheets in a read only format?

Many thanks!!

There isn't really a Read Only format for a worksheet. By default, all cells on a worksheet are locked. However, that only has any effect if the worksheet is protected with a password.

So, in essence, you would need to ensure that all cells on each worksheet are locked and each worksheet is protected with a password. Could be the same password or a different one. You'd then need a mechanism to UnProtect the sheet if you want the user to make changes.

Thanks InvisableMan, you have pointed me in the right direction!

You're welcome. Thanks for the rep.