Live Chat & Podcast at 1:00PM Eastern on Sunday!
There's no such thing as a stupid question, but they're the easiest to answer.
JoinTour
Login
Search
Business Applications
Tag Cloud
access acer asus bios bsod computer crash desktop driver drivers error ethernet excel freeze gaming hard drive hardware hdmi internet laptop malware memory modem monitor motherboard mouse network printer problem ram registry repair router slow software sound trojan ubuntu 11.10 uninstall usb video virus vista wifi windows windows 7 windows 7 32 bit windows 7 64 bit windows xp wireless
Search
Search for:
Tech Support Guy Forums > Software & Hardware > Business Applications >
Solved: Visual Basic - create password macro

Reply  
Thread Tools
SteveMat's Avatar
Junior Member with 5 posts.
 
Join Date: Jul 2009
Experience: Intermediate
28-Jul-2009, 10:40 AM #1
Solved: Visual Basic - create password macro
I have a workbook with about 80 sheets in it. I need to give 80 people access to their respective worksheet without them being able to view the other data. I was thinking of creating an opening page that checks for a username and password and then redirects that users to his/her and only his/her worksheet. I need to update the data in the workbook on a monthly basis and all kind of formulas need to be performed so there is not much other way than doing this in Excel.
can I write something in Visual Basic that allows me to create this? I already found an article on UserForms on the Microsoft Support site that will get me started I guess, but then I still need all the underlying codes?
I need this for work so my time on research and creation is rather limited
thanks a zillion in advance!!!!
bomb #21's Avatar
Distinguished Member with 8,082 posts.
 
Join Date: Jul 2005
Location: The void AKA edge of the Fens
Experience: I bent my wookie :(
28-Jul-2009, 12:16 PM #2
"can I write something in Visual Basic that allows me to create this?"

Absolutely. But it'll be as secure as a wet paper bag.

"80 people access to their respective worksheet"

How are you currently doing that? One file on a server, or 80 emails? If the latter, a routine to mail each sheet as a separate (one sheet) file to each of the 80 should be doable.

(welcome to the board )
__________________
"Love All The People."
Bill Hicks, 1961 - 1994 -- R.I.P.
SteveMat's Avatar
Junior Member with 5 posts.
 
Join Date: Jul 2009
Experience: Intermediate
29-Jul-2009, 06:00 AM #3
Thanks a lot for the Welcome Bomb#21 !
Well for the moment there is nothing in place yet. Thing is that I need to send this list every month again, only the data changes (of course). And probably there are more of these lists coming. I was thinking of posting this on our Sharepoint site so that it would be really easy to update and maintain and at the same time is of no burden on the email system.
Security is not so much an issue as is discretion... I guess that anyone a bit knowledgeable will find a way to consult a colleagues data, but in fact that is not really a point.
I found already some scripts on the net but to actually build the thing still seems a bit difficult.
Or is there a completely different way of tackling this? I'm not stuck on this idea... it's simply the only solution I came up with
bomb #21's Avatar
Distinguished Member with 8,082 posts.
 
Join Date: Jul 2005
Location: The void AKA edge of the Fens
Experience: I bent my wookie :(
29-Jul-2009, 08:08 AM #4
"Thanks a lot for the Welcome Bomb#21 !"

I'm not sure you mean that.

I'm just ... "obliged" to stress that as long as security is no issue, it's a simple as:

Sub test()
P_Word = Application.InputBox("Who are you?")
On Error Resume Next
Sheets(P_Word).Visible = True
Sheets(P_Word).Select
End Sub


, attached to a button on the "dashboard" sheet. HTH
__________________
"Love All The People."
Bill Hicks, 1961 - 1994 -- R.I.P.
SteveMat's Avatar
Junior Member with 5 posts.
 
Join Date: Jul 2009
Experience: Intermediate
29-Jul-2009, 08:22 AM #5
woow... that's simple indeed! and this hides then the other pages in the workbook that the one person is not allowed to see? I'll go ahead and start some test workbook on this. Thanks a lot!!!
bomb #21's Avatar
Distinguished Member with 8,082 posts.
 
Join Date: Jul 2005
Location: The void AKA edge of the Fens
Experience: I bent my wookie :(
29-Jul-2009, 08:27 AM #6
No, you start with only the dashboard sheet visible. The sheet with the name that matches the input (if one does) then becomes visible.
SteveMat's Avatar
Junior Member with 5 posts.
 
Join Date: Jul 2009
Experience: Intermediate
29-Jul-2009, 08:30 AM #7
thanks a zillion! I'll give it a try and then mark this thread as solved.
Great!! saves me tons of work and research I can now use for better purposes !!!
bomb #21's Avatar
Distinguished Member with 8,082 posts.
 
Join Date: Jul 2005
Location: The void AKA edge of the Fens
Experience: I bent my wookie :(
29-Jul-2009, 08:40 AM #8
Zero idea how Sharepoint works. If someone opens it, unhides a sheet, saves it, closes it then ... A N Other will see what was left. (?)

Google Workbook BeforeClose event, then tinker with:

For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name <> "Dashboard" Then
Sheet.Visible = False
End If
Next Sheet

(save wb -- close wb).
__________________
"Love All The People."
Bill Hicks, 1961 - 1994 -- R.I.P.
SteveMat's Avatar
Junior Member with 5 posts.
 
Join Date: Jul 2009
Experience: Intermediate
29-Jul-2009, 08:46 AM #9
ok..I'll get to work with this info already and let you know.... thanks!
Reply

Tags
excel, macro, password, visual basic

THIS THREAD HAS EXPIRED.
Are you having the same problem? We have volunteers ready to answer your question, but first you'll have to join for free. Need help getting started? Check out our Welcome Guide.

Search Tech Support Guy

Find the solution to your
computer problem!




Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
WELCOME TO TECH SUPPORT GUY! Are you looking for the solution to your computer problem? Join our site today to ask your question -- for free! Our site is run completely by volunteers who want to help you solve your computer problems. See our Welcome Guide to get started.
Thread Tools



Facebook Facebook Twitter Twitter TechGuy.tv TechGuy.tv Mobile TSG Mobile
You Are Using:
Server ID
Advertisements do not imply our endorsement of that product or service.
All times are GMT -4. The time now is 01:16 AM.
Copyright © 1996 - 2011 TechGuy, Inc. All rights reserved.

Powered by Cermak Technologies, Inc.