Only make a code run from an approved user list.

[KyleJackMorrison]

Hello,
So i have a sheet when someone clicks a button and it shows the relevant hidden cells.

However i would like to restrict this to only approved people to have access to run this code.

Is it possible to have a list of users in 'Settings' sheet, and once the code is activated to run it or stop the code depending on the environ("username") list?

Thanks in advance.
Kyle

 

[Fluff]

You could use something like

Sub KyleJackMorrison()
   Dim Nme As String
   Dim Fnd As Range
   Nme = Environ("username ")
   Set Fnd = Sheets("Settings").Range("A1:A100").Find(Nme, , , xlWhole, , , False, , False)
   If Fnd Is Nothing Then
      MsgBox "You don't have authority"
      Exit Sub
   End If
   'your code goes here
End Sub

 

[KyleJackMorrison]

@Fluff

Works like a dream! Many Thanks.

 

[Fluff]

You're welcome & thanks for the feedback