activate/deactivate macro depending on who's the user

[anna]

in my office we have a shared drived folder that is used by different
users,we store excel worksheets in the shared folder. Each user have to log
in to the PC with a different ID to start using the it.

I need a macro to automatically hide/unhide rows in the excel worksheet
depending on who the user is.

How should i write the macro? Please help.

 

[Roger Govier]

Hi Anna

This should get you started

Sub UnHideCols()
Dim user As String
user = Environ("Username")
With Sheets("Sheet1")
' you have to leave at least 1 column visible on a sheet
' so set all but column A as hidden to begin with
Columns("B:IV").EntireColumn.Hidden = True
Select Case user
Case "Anna"
Columns("B:H").EntireColumn.Hidden = False
Case "Roger"
Columns("I:M").EntireColumn.Hidden = False
' add as many other users as you wish, with their
' relevant columns hidden property set to false

Case Else
End Select
End With
End Sub

--
Regards
Roger Govier

in my office we have a shared drived folder that is used by different
users,we store excel worksheets in the shared folder. Each user have to
log
in to the PC with a different ID to start using the it.

I need a macro to automatically hide/unhide rows in the excel worksheet
depending on who the user is.

How should i write the macro? Please help.

__________ Information from ESET Smart Security, version of virus
signature database 4801 (20100124) __________

The message was checked by ESET Smart Security.

http://www.eset.com

__________ Information from ESET Smart Security, version of virus signature database 4801 (20100124) __________

The message was checked by ESET Smart Security.

http://www.eset.com

 

[Roger Govier]

Hi Anna

Sorry, I didn't read your post carefully enough.
You said you wanted to hide Rows, not columns.


--
Regards
Roger Govier

Hi Anna

This should get you started

Sub UnHideCols()
Dim user As String
user = Environ("Username")
With Sheets("Sheet1")
' you have to leave at least 1 column visible on a sheet
' so set all but column A as hidden to begin with
Columns("B:IV").EntireColumn.Hidden = True
Select Case user
Case "Anna"
Columns("B:H").EntireColumn.Hidden = False
Case "Roger"
Columns("I:M").EntireColumn.Hidden = False
' add as many other users as you wish, with their
' relevant columns hidden property set to false

Case Else
End Select
End With
End Sub

--
Regards
Roger Govier



__________ Information from ESET Smart Security, version of virus
signature database 4801 (20100124) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus
signature database 4802 (20100124) __________

The message was checked by ESET Smart Security.

http://www.eset.com

__________ Information from ESET Smart Security, version of virus signature database 4802 (20100124) __________

The message was checked by ESET Smart Security.

http://www.eset.com

 

[Roger Govier]

Hi Anna

Sorry, I misread your request. You want to hide Rows, not Columns.

Sub UnHideRows()
Dim user As String
user = Environ("Username")
With Sheets("Sheet1")
' you have to leave at least 1 rowvisible on a sheet
' so set all but column A as hidden to begin with
Rows("2:65536").EntireRow.Hidden = True
Select Case user
Case "Anna"
Rows("2:30").EntireRow.Hidden = False
Case "Roger"
Rows("31:60").EntireRow.Hidden = False
' add as many other users as you wish, with their
' relevant rows hidden property set to false

Case Else
End Select
End With
End Sub


--
Regards
Roger Govier

Hi Anna

This should get you started

Sub UnHideCols()
Dim user As String
user = Environ("Username")
With Sheets("Sheet1")
' you have to leave at least 1 column visible on a sheet
' so set all but column A as hidden to begin with
Columns("B:IV").EntireColumn.Hidden = True
Select Case user
Case "Anna"
Columns("B:H").EntireColumn.Hidden = False
Case "Roger"
Columns("I:M").EntireColumn.Hidden = False
' add as many other users as you wish, with their
' relevant columns hidden property set to false

Case Else
End Select
End With
End Sub

--
Regards
Roger Govier



__________ Information from ESET Smart Security, version of virus
signature database 4801 (20100124) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus
signature database 4802 (20100124) __________

The message was checked by ESET Smart Security.

http://www.eset.com

__________ Information from ESET Smart Security, version of virus signature database 4802 (20100124) __________

The message was checked by ESET Smart Security.

http://www.eset.com