Re: *** passwording

Thank you, Thank you and ones again....Thanks you.

Dean

"Paul B" wrote:

> Dean, here is some code that will do it, don't remember where it came from,
> password set to 123
>
> Private Sub Worksheet_Activate()
> Dim strPassword As String
> On Error Resume Next
> Me.Protect Password:="123"
> Me.Columns.Hidden = True
>
> strPassword = InputBox("Enter password to view this ***", "Password
> required !")
>
> If strPassword = "" Then
> Me.Previous.Select
> Exit Sub
> ElseIf strPassword <> "123" Then
> MsgBox "Password Incorrect", , "Wrong password"
> Me.Previous.Select
> Exit Sub
> Else
> Me.Unprotect Password:="123"
> Me.Columns.Hidden = False
> End If
>
> On Error GoTo 0
> End Sub
>
> Private Sub Worksheet_Deactivate()
> On Error Resume Next
> Me.Columns.Hidden = True
> On Error GoTo 0
> End Sub
>
> To put in this macro right click on the work*** tab and view code, in the
> window that opens paste this code, press Alt and Q to close this window and
> go back to your workbook. If you are using excel 2000 or newer you may have
> to change the macro security settings to get the macro to run. To change the
> security settings go to tools, macro, security, security level and set it to
> medium
>
> To change the security settings go to tools, macro, security, security level
> and set it to medium
>
> You will also need to password protect your VBA project so no one can see
> the password there
>
> To protect the VBA project, from your workbook right-click the workbook's
> icon and pick View Code. This icon is to the left of the "File" menu this
> will open the VBA editor, in Project Explorer right click on your workbook
> name, if you don't see it press CTRL + r to open the Project Explorer then
> select VBA project properties, protection, check lock project for viewing
> and set a password. Press Alt and Q to close this window and go back to your
> workbook and save and close the file. Be aware that this password can be
> broken by third party software
> --
> Paul B
> Always backup your data before trying something new
> Please post any response to the newsgroups so others can benefit from it
> Feedback on answers is always appreciated!
> Using Excel 2002 & 2003
>
> "Dean" <Dean@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
> news:5BF3D0F0-5C30-457F-9011-E5083B716575@xxxxxxxxxxxxxxxx
> > Is it possible to password protect a *** in Excel so that if a user
> clicks
> > the Tab they are asked for the password before the screen is displayed?
> >
> > VBA coding could be a possability?
> >
> > Thanks Dean
>
>
>
.