Sheet tab Restriction

H

harpscardiff

Hi,

Is there anyway to restrict someone from accessing a tab?

something like - if click on tab, then prompt box = password?:rolleyes
:confused:

Thank
 
B

Bob Phillips

You could use Worksheet Activate, like so

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim pwd
Dim this As Worksheet
Dim wbState As Long
Set this = Sh
If ActiveSheet.Name = "Sheet2" Then
wbState = Windows(ThisWorkbook.Name).WindowState
Windows(ThisWorkbook.Name).WindowState = xlMinimized
pwd = InputBox("supply password")
If pwd <> "password" Then
Application.EnableEvents = False
this.Activate
Application.EnableEvents = True
End If
Windows(ThisWorkbook.Name).WindowState = wbState
End If
End Sub


'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"harpscardiff" <[email protected]>
wrote in message
news:[email protected]...
 
H

harpscardiff

thanks for your reply, i'll give it a go and let you know how I get on.

Thanks.
 
Top