Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

User name and password

16 views
Skip to first unread message

kirann14

unread,
Apr 12, 2012, 8:35:52 AM4/12/12
to

How to keep usename and password to excel 2007

Thanks




--
kirann14

Gord Dibben

unread,
Apr 12, 2012, 10:36:43 AM4/12/12
to
Please re-post with a better description of your needs.


Gord

Jim Cone

unread,
Apr 12, 2012, 10:57:49 AM4/12/12
to
A "sticky note" on the side of the computer works for some.


"kirann14" <kirann14...@excelbanter.com>
wrote in message
news:kirann14...@excelbanter.com...

kirann14

unread,
Apr 13, 2012, 8:59:11 AM4/13/12
to

Hi,

I wanted to know how to add username and Password option to an spread
sheet (Excel) so that it asks for username and password when ever a user
opens an excel sheet. Kindly give me the code to get that option.

Thanks
Kiran



'Gord Dibben[_2_ Wrote:
> ;1600767']Please re-post with a better description of your needs.
>
>
> Gord
>
> On Thu, 12 Apr 2012 12:35:52 +0000, kirann14
> <kirann14...@excelbanter.com> wrote:
> -
> >
> >How to keep usename and password to excel 2007
> >
> >Thanks-




--
kirann14

GS

unread,
Apr 13, 2012, 1:03:48 PM4/13/12
to
kirann14 formulated on Friday :
Sheets aren't 'opened', workbooks are opened!

If what you mean is you want to prevent users from viewing certain
sheets unless they give the correct 'login' info (ie:
username/password) then please explain your project's structure so we
can better help you.

If what you mean is you want to prevent users from unauthorized opening
of Excel files then you need to password protect the file via the
SaveAs dialog.

Now.., if I still haven't 'guessed' what the heck you're trying to do
then please, please, please be more explicit!

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion


Gord Dibben

unread,
Apr 13, 2012, 3:35:56 PM4/13/12
to
Following on Garry's post if you mean password protect usersheets from
viewing then add this code to ThisWorkbook module.

Private Sub Workbook_Open()
Dim pword As String
On Error GoTo endit
pword = InputBox("Enter Your Password")
Select Case pword
Case Is = "Gord": Sheets("Gordsheet").Visible = True
Case Is = "Pete": Sheets("Petesheet").Visible = True
Case Is = "Manager": Call UnHideAllSheets
End Select
Sheets("BlankSheet").Visible = False
Exit Sub
endit:
MsgBox "Incorrect Password"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sht As Worksheet
Application.ScreenUpdating = False
Sheets("BlankSheet").Visible = xlSheetVisible
For Each sht In ActiveWorkbook.Sheets
If sht.Name <> "BlankSheet" Then
sht.Visible = False
End If
Next sht
Application.ScreenUpdating = True
ThisWorkbook.Save
End Sub

Also add this macro to a General Module so you as Manager can view all
sheets.

Sub UnHideAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Visible = True
Next n
Application.ScreenUpdating = True
End Sub


Gord
0 new messages