user level security and tab level selection issue

[#1]

on my multi tab dashboard I have tab level condition for select filter like below.

Sub selectsheet

set q = ActiveDocument

set s = q.Sheets("Co-Promotion Deal information")

if s.IsActive  then

q.Fields("DEAL_GROUP").Select("COPRO")

q.Fields("DEAL_GROUP").lock

end if

it works fine.

but now i need to hide sheets based on qlikview user like below.

=OSUser()<> 'user'

but doing so is braking my vb code above becasue when other tabs are selected error on below.

>set s = q.Sheets("Co-Promotion Deal information")

how to make both work?

Thanks

Jay

[#2]

help.

[#3]

why you are using macro ?

[#4]

i am using sheet level macro to lock, unlock and select few filters.