Permissions

[agnerc]

I added a password to my spreadsheet by going to "Save As", Tools, General Options and added a password to "Password to modify".

What I am encountering is when someone opens the file in Read Only, it is locking me out from editing.

What I am looking for is when someone opens the file in read only, I can still enter the password to edit.

Any suggestions?

Thank you,

 

[Logit]

.
The following is setup for Sheet1.

Paste this in the Sheet Level Module :

Option Explicit


Sub CommandButton1_Click()
Dim UserInterfaceOnly
Dim Password As String


Password = InputBox("Please enter password", "Password Required", "********")


If Password <> "PW" Then


    MsgBox "Wrong Password!"
    Exit Sub


Else
    
    Sheet1.Protect "PW", UserInterfaceOnly = True
    


End If


End Sub

Paste a CommandButton1 on Sheet 1 connected to the above macro. The password is PW

Add this macro to the ThisWorkbook Module :

Option Explicit


Private Sub Workbook_BeforeClose(Cancel As Boolean)
        Sheet1.Protect ("PW")
End Sub

The above code will lock Sheet1 so it is READ ONLY. By clicking the button and entering the correct password PW, the sheet will be unlocked for editing.
The sheet will automatically be locked again when you close the workbook via the ThisWorkbook Module macro.