Check if user is permitted

[Chinchin]

Hi,

I need to hide/unhide various objects depending on if a user is permitted or not. I would like to do it through the 'allow users to edit ranges' feature if possible for ease of maintenance but I've only found this messy way to do it:

Sub CheckIfPermission()
On Error GoTo NotPermitted
Range("A1").Value = "1"
Range("A1").Value = ""
MsgBox "permitted"
Exit Sub

NotPermitted:
MsgBox "not permitted"
End Sub

where A1 is a permitted range. Is there a better way anyone knows of please?

Thanks,

Chinchin