How to restrict access to worksheets per user

[tahas]

Hello All,
Can somebody look at my code and advise what is wrong with my code?

Regards,
Taha

[Trebor76]

Hi Taha,

The syntax for the case statement should be like this:

Select Case Environ("Username")
    Case Is = "Sunj"
        Set GetAllowedSheet = Sheets("Sheet7")
    Case Is = "AbisoyeM"
        Set GetAllowedSheet = Sheets("Sheet9")
End Select

Regards,

Robert

[alansidman]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however it has been brought to our attention that the same query has been posted on one or more other forums and you have not provided the required cross-post link(s) here.

Please see Forum Rule #3 about cross-posting and adjust accordingly. Read this to understand why we (and other sites like us) consider this to be important.

(Note: this requirement is not optional. No help to be offered until the link is provided.)