Option
Explicit
Public
Sub
UpdateView(
Optional
CoverSheetOnly
As
Boolean
=
False
)
Dim
blnSupervisor
As
Boolean
Dim
blnEmployee
As
Boolean
Dim
strUsername
As
String
strUsername = LCase$(Environ$(
"username"
))
Select
Case
strUsername
Case
"inge"
blnEmployee =
True
Case
"peter"
blnSupervisor =
True
Case
Else
blnSupervisor =
False
blnEmployee =
False
End
Select
Dim
wks
As
Excel.Worksheet
If
blnSupervisor
Then
For
Each
wks
In
ThisWorkbook.Worksheets
wks.Visible = xlSheetVisible
Next
ElseIf
blnEmployee
Then
tblCoverSheet.Visible = xlSheetVisible
For
Each
wks
In
ThisWorkbook.Worksheets
If
wks.Name <> tblCoverSheet.Name
Then
If
0 = StrComp(wks.Name, strUsername, vbTextCompare) _
And
CoverSheetOnly =
False
_
Then
wks.Visible = xlSheetVisible
wks.Activate
Else
wks.Visible = xlSheetVeryHidden
End
If
End
If
Next
Else
tblCoverSheet.Visible = xlSheetVisible
For
Each
wks
In
ThisWorkbook.Worksheets
If
wks.Name <> tblCoverSheet.Name
Then
wks.Visible = xlSheetVeryHidden
End
If
Next
End
If
End
Sub