VBA to check username and then allow access to print out

[SharmaAntriksh]

Hello All, i want to create a VBA code that can help in identifying if the username of the user is anything from (Susan, Alex, Amy, Christina) then only allow them access to print the file. if there is anything you can help me with then it would be great!

 

[Fluff]

Maybe

Private Sub Workbook_BeforePrint(Cancel As Boolean)
   Dim Ary As Variant
   Ary = Array("Susan", "Alex", "Amy", "Christina")
   If Not UBound(Filter(Ary, Environ("Username"), True, vbTextCompare)) >= 0 Then
      Cancel = True
      MsgBox "You are not allowed to print this"
   End If
End Sub

This needs to go in the ThisWorkbook module

 

[SharmaAntriksh]

Thank you Fluff, can you please confirm why you have used Ubound function here, because i think that only returns the highest value from the array().

 

[Fluff]

If Amy logs in then this

Filter(Ary, Environ("Username"), True, vbTextCompare)

will filter the array & return Amy. So Ubound(...) returns 0 as there is a value in the filtered array.
Whereas if I logged in There would be nothing in the filtered array so Ubound(...) returns -1