Shared Workbook - Hiding rows as per Username
Hi,
How can i hide certain rows for certain users & make visible only rows
belonging to certain Users (having their names in cells) using VBA, whenever
the users open the Shared Workbook?
eg.
If application.Username="sheikh" then
with worksheets("Sheet1")
..range("c1").visible= true ' C1 contains my name as "Eijaz"
..range("c12").visible= false ' C12 contains other users name say "Jack"
..range("c18").visible= false ' C18 contains other users name say "Jill"
end with
else if application.Username="jackv" then
with worksheets("Sheet1")
..range("c12").visible= true' C12 contains other users name say as "Jack"
..range("c1").visible= false ' C1 contains my name "Eijaz"
..range("c18").visible= false ' C18 contains other users name say "Jill"
end with
else if application.Username="jillm" then
with worksheets("Sheet1")
..range("c18").visible= true' C18 contains other users name say as "Jill"
..range("c1").visible= false ' C1 contains my name "Eijaz"
..range("c12").visible= false ' C12 contains other users name say "Jack"
end with
end if
........... does not seem to work as i think when i open Tools Share
Workbook all the 3 names are listed.
Any help would really be appreciated!
Rgds,
Eijaz
|