DEFAULT UNPROTECTED SHEET UPON OPENING EXCEL FOR SELECT USERS

[markkuznetsov1]

I am trying to write a code for a sheet that should always be protected for all users upon opening unless you are in an "admin" cell on another sheet called "AuthUsers". The page should open protected for all users and they can only hit a button that has the code to unprotect,run macro, and re protect at the end. This is what I have so far...I know it is wrong but I was trying multiple codes and this is my final. How can I fix it?

Users = Environ("UserName")
Set D = Worksheets("AuthUsers").Range("A3:A4").Find(Users, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
If ThisWorkbook.Path = Environ("UserName") Then ThisWorkbook.Worksheets("EDP #S").Unprotect ("EDPPassword")

Else: If ThisWorkbook.Path <> Environ("UserName") Then ThisWorkbook.Worksheets("EDP #S").Protect ("EDPPassword")
End If

I started from this block and tried to mimic it. (used for read only)

Users = Environ("USERNAME")
Set c = Worksheets("AuthUsers").Range("A1:A100").Find(Users, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
If c Is Nothing Then
Application.DisplayAlerts = False
On Error Resume Next
If ThisWorkbook.Path <> vbNullString Then ThisWorkbook.ChangeFileAccess xlReadOnly
On Error GoTo 0
Application.DisplayAlerts = True
End If

 

[markkuznetsov1]

(Solved) cross post.....does read only, protected, and hides sheet based on admin user/users

Unprotect sheet for certain users upon start up

VBA Newbie here...I am trying to write a code under the workbook so when a sheet opens it is unprotected to "admin" users...the kicker is I want it set up based on my second sheet "AuthUsers" in column A where the admins are allowed to edit/add new users. (usernames are system not excel). I was...

www.vbaexpress.com

 

[smozgur]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

If you do cross-post in the future and also provide links initially - not after the problem is solved on the other forum, then there shouldn’t be a problem.
No further action is required in this thread.