Creating a Macro that will Lock everything besides data-entry cells

[evxret]

Hi all, I had help creating a VB macro that is attached to buttons that will lock or unlock a workbook based on a macro-attached button press. I got the buttons to function the way they need to, the problem lies now that when I press "unprotect", the entire sheet is left vulnerable to formula & other structural changes when users need to add their data entry before pressing the "Protect" button. I want them to be able to save and lock their numbers, and they cannot be changed unless they ask me first. I hope im making sense. Basically I need help editing the lines in the attached code so instead of fully unprotecting the sheet, it unprotects only cells that I want to be able to be edited. Im not sure if this is possible, but I appreciate any and all help with this.

Here is the attached code:

Option Explicit


Sub ProtectSheet()
    Sheet1.Protect PassWord:="abc"
End Sub

Sub UnprotectSheet()
Dim PassWord As String, i As Integer
  
  i = 0

Do
    i = i + 1
    If i > 5 Then
      MsgBox "Password may only be entered 5 times. Application will now close."
        Application.DisplayAlerts = False
        ThisWorkbook.Saved = True
        Application.Visible = False
        Application.Quit
      Exit Sub
    End If
    
    PassWord = InputBox("Enter Password (Accessable by admin only)")
    
Loop Until PassWord = "abc"
    
    If PassWord = "abc" Then
     Sheet1.Unprotect PassWord:="abc"
    End If
    
End Sub

I basically need the part that says "Sheet1.Unprotect PassWord" to be changed to something that will instead keep protection on everything besides data entry cells.

 

[Micron]

You are correct:
With Sheets("Sheet1")

I had selected sheet1 before that example but somehow the exact version didn't make it into my post. Sorry about that.
I'm getting an error 438 "object doesn't support this property or method" but have something I need to do right now.

 

[evxret]

You are correct:
With Sheets("Sheet1")

I had selected sheet1 before that example but somehow the exact version didn't make it into my post. Sorry about that.
I'm getting an error 438 "object doesn't support this property or method" but have something I need to do right now.

Im so sorry; I feel so stupid.. Im still doing something wrong but I changed to your fix

Getting a syntax error on the line starting with "Select.Sheet1.Protection" highlighted in red.

 

[Micron]

No you're not. Access vba is my thing - trying to learn Excel by helping out here more, so it's me and it's probably very simple. Trying to cook in the meantime too!
Question is, did that line ever error on you before or did your code never get that far?
Working on it, but maybe somebody will beat me to the answer. That was the line that caused the error I referred to in my last post.

EDIT
remove Sheet1 in that line. The With Block has already created a reference to that sheet. By repeating it, you're saying With Sheet1.Sheet1 and there is no such thing.
Took 5 seconds after that post to spot it. There is just enough similarity between Access and Excel vba to get me into trouble!

With Sheets("Sheet1")
  .Select
  .Protection.AllowEditRanges("EditableRange").Delete
  .Protection.AllowEditRanges.Add Title:="EditableRange", Range:=Range("A1:A5"), PassWord:=""
End With

Probably don't have to select the sheet first, either.