Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










Password Box To Show Automatically


I have protected a few hidden columnx in my worksheet and have sent it to my client who has the password.

He had a complain. Every time he wants to unhide the columns, he gets an alert to unprotect the workbook. The process of going to the Review tab and pressing the unprotect tab is what he finds annoying. My questions is the following; Is there any way that the password box immediately appears once he attempts to unhide the columns?


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Automatically Enter Password
I have recently written some programming in a spreadsheet (1) which, on opening, opens up another spreadheet(2), ammends this spreadsheet(2), and then closes it before the user can start using the original one(1). This is done to monitor the usage. The information added into the atomatically opened spreadsheet(2) includes date and time of opening and the users id as well as adding 1 to counter cells. Both .xls files are located on the same server and I dont want people to catch on to the monitoring and if they do I dont want them to then go into this file(2) and remove their information.

If I password protect this file(2) it then promts to enter a password when it runs at the startup of the initial spreadsheet(1) which is no good as it would defeat the purpose if the user knew the password. Is it possible to add a few lines into the code (see below) after it initiates the opening of the usage file?

Private Sub workbook_open()
Application. ScreenUpdating = False
Workbooks.Open Filename:= _
"S:Newman CommonCATEGORY MANAGEMENT - RangesEPoS Usage.xls"
Dim Counter As Integer
Counter = Cells(2, 7)
Counter = Counter + 1
Cells(2, 7) = Counter
Cells(Rows.Count, "BV").End(xlUp).Offset(1, 0) = Now
Cells(Rows.Count, "BW").End(xlUp).Offset(1, 0) = Application.UserName
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub

View Replies!   View Related
Type Password, Show Letters As Asterix's
I have a password protected form in access (I know this is excel but the code is the same), and when i click on the button and the inputbox opens for my password, i don't want it to display what i am typing, instead i would prefer asterix's?

View Replies!   View Related
Automatically Show Every Hour
What other code than that shown below do i need to make my message box work,

"Module Code"
Sub MyMacro()

Application .OnTime TimeValue("00:00:00"), "MyMacro", ["23:00:00],
[TimeValue "01:00:00"=True]
MsgBox(BoMLogDue, vbOKOnly, BoMLogDue) As VbMsgBoxStyle

End Sub

"Workbook Code"
Private Sub Workbook_Open()
Application.OnTime TimeValue("00:00:00"), "MyMacro", ["23:00:00],
[TimeValue "01:00:00"=True]
End Sub

View Replies!   View Related
Hide & Show Sheets Automatically
I would like to be able to use the before save event to hide some sheets before the save then after unhide some sheets. So that the user carrys on with the sheets they had before saving but when the document is reopened the correct sheets are hidden.

This is what I have so far but unfortunately when you click close and then save changes it runs the before save code and then goes around in circles, reasking the user if they want to save changes

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet

Cancel = True
Application.EnableEvents = False
Sheets("Protected Content").Visible = True
For Each ws In Worksheets
If ws. Name <> "Protected Content" Then ws.Visible = False
Next ws
Me.Save
For Each ws In Worksheets
ws.Visible = True
Next ws
Sheets("Protected Content").Visible = False
Application.EnableEvents = True

End Sub

View Replies!   View Related
Automatically Show Range Address Of Selection
does excel have a function or some kind of method where you can have it display the range of cells that you have selected? For example, if I highlight cells A5:G7 what would be the code for excel to display "A5:G7" in a message box? I need this to be dynamic, so the next time I select cells B3:T32, it needs to display "B3:T32."

View Replies!   View Related
Automatically Hide/Show Rows Across Worksheets
When I call a series of subroutines from different worksheets, ScreenUpdating = False is not working.Here is my

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
.Calculation = xlManual
.EnableEvents = False
End With
If ActiveCell = "No" Then
Call Sheet3.DisableTBs
Call Sheet4.DisableTBs
Call Sheet5.DisableTBs
Call Sheet6.DisableTBs
Call Sheet8.DisableTBs
Call Sheet9.DisableTBs
Call Sheet10.DisableTBs......................

View Replies!   View Related
Show Page Breaks Automatically When I Open A New File.
I want to make Excel show page breaks automatically when I open a new file. Please tell me how to do that. I tried changing the book.xlt and sheet.xlt files, but to no avail. I am using Excel 2003.

View Replies!   View Related
Automatically Expand Row Depth To Show Cell Content
I have a spreadsheet with a master front page, which basically copies the contents of other cells in other sheets for it's own content. ie:-

the formula in cell E16 on the master sheet is ='Sheet 7'!$B$16 (Please note that cell B16 is actually a merged range of B16 to H16)

Everything works fine until such time as the orginal cell contains an amount of text which is deeper than the cell on the master page eg cell B16 on sheet 7 is 330 pixels deep while the cell E16 in the master sheet is only 16 pixels deep.

What I would like to happen is for row 16 in the master sheet to expand in depth by whatever is requried to automatically show the full content of B16 on sheet 7.

View Replies!   View Related
Automatically Hide / Show Rows Based On Cell Value
I wrote a small code to hide some columns if a certain cell is equal to a certain string.

The cell is actually a drop down list and when they select a certain one, I want it to hide 2 columns. So I wrote the code with sub name Action, but I want it to be running all the time. I tried to achieve this by writing the following code however it gave me error 438 for my 2nd line.

Sub Auto_Open()
Range("A1").OnEntry = "Action"
End Sub

Auto Merged Post Until 24 Hrs Passes;Oh, by the way error 438 states: Object doesn't support this property or method

View Replies!   View Related
Automatically Hide & Show Rows Based On COUNTIF Result
What i would like to do is Hide Rows Based on Cell Value in Multiple Sheets & Multiple Columns
and i need the macro to be fast

Sheet1
If the value in Range BE11:BE160 equals 1 don’t hide the row
If the value is “0” or “ “ then hide the row
Sheet2
If the value in Range BE11:BE160 equals 1 don’t hide the row
if the value is “0” or “ “ then hide the row
Sheet3
If the value in Range BE11:BE160 equals 1 don’t hide the row
if the value is “0” or “ “ then hide the row
Sheet4
If the value in Range O1:O150 equals 1 don’t hide the row
if the value is “0” or “ “ then hide the row
Sheet4
If the value in Range B1:B150 equals 1 don’t hide the row
if the value is “0” or “ “ then hide the row

View Replies!   View Related
Efficient Entry Of Data & Automatically Have Their Price Show In Adjacent Cell
I own a Hair Salon which collates its daily takings using a spreadsheet. A section of this takings sheet asks staff to enter which Products have been sold and what they where sold for (RRP), so that once all products have been entered, totals at the end of the day allowing the end -of-day "till-up" process to reconcile purchases and services rendered aginst cash and cheques received.

Unfortunately there is over 600 products to choose from and this evergroes as new products are introduced by manufacturers. Names are long and often very similar, and product price manual listings are slow to reference, therefore the customer has to wait while the staff find the right product and select the right price.

All of this is subject to human error. What i would like is simply to enter part of the product name into a Cell and the right product to be visibly selectable and the price automatically added to an adjacent cell.

View Replies!   View Related
Password Protection :: Asking For Password Of An Old Deleted File
When opening a new Excel file, it is asking me for a password to an old excel file that was password protected, which I have deleted from my computer. It is still asking for this password every time I open a new or existing file. When I hit cancel it lets me open the file.

View Replies!   View Related
Forgotten Password For Password Protected Sheet
I have a spreadsheet, which has certain worksheets that are password protected. I need to make changes to some of the formulas, and the VBA modules, however I cannot remember the password!! Is there a way of identifying the password??

View Replies!   View Related
Data Validation List Automatically Show The First Item In The List Rather Than Showing Blank
I can't seem to find a way to make a data validation list automatically show the first item in the list rather than showing blank.

View Replies!   View Related
Macro - Paste Password Into Password Box
I am havng problems with the belwo macro code -

Range("G7").Select
Selection.Copy
Workbooks.Open Filename:= _
"Q:PublicPAYMENTS Q&RREPORTSSuspense Activity BUSINESS2008 - Suspense BUSINESS - Activity Reports2008 Avon.xls"
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

When i open the workbook it requires me to insert a password, i tried to type this but excel will not follow keystrokes, i then inserted the password in cell G7 which i then copy and paste, which you can see the copy at the beginning of the macro.

Is there a way where you can get it to insert the password so i can open the workbook in a macro.

What im trying to do is save 26 suspense spreadsheets by just clicking on a macro.

View Replies!   View Related
Password Protect: Unlock The Worksheet, Autofilter It, Print It, Unfilter It, And Password Protect The Sheet Again?
I have a sheet that is password protected. I have this code attached to a command button. It will unlock the worksheet, autofilter it, print it, unfilter it, and password protect the sheet again. However it is protecting it without a password. I need to have it protected with the password so that someone will not be able to just go to tools to unprotect the sheet.

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "rainforest"
Columns("O:O").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1
Selection.AutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
End Sub

View Replies!   View Related
Another Sheet To Show Each Class Down The Rows And The Columns To Show Each School Rule
I have an excel 2003 sheet that collects data from Infopath forms. The forms are to record students who have broken school rules, when, where, repercussions etc. One column shows their class and there is a separate column for each rule broken.

I want to create another sheet to show each class down the rows and the columns to show each school rule. Therefore, each cell would show the number of each particular rule broken for each particular class. I have tried to do countif and sumproduct (if on sheet 1, column B the class is KA and on sheet 1, column M, the rule is bullying = how many times this has occurred).


View Replies!   View Related
If A Cell Has Data Show It If Not Show 0
I have a column of data held in column B.

I am required to show the following.

If there is data in the cell then it is to be left. If there is no data in the cell then I would like to show the value 0.

I have tried using a circular reference, using the formula =IF(ISBLANK(B1),0,B1) and other similar formulas but they dont work as the formula overwrites the data in it.

do I need a macro?, or conditional formatting?

View Replies!   View Related
Show Blank Not Show 0
i use function countif "aa" in range A2:F2 COUNTIF(A2:E2,"aa")how i can do, if i do not need 0 to show when it not found "aa". i want it show blank

View Replies!   View Related
Set Password
how to set password for VBAProject?

i know to protect the spreadsheet

i want to password protect my coding in the VBA Project module ...

View Replies!   View Related
VBA Password
When using the a file with VBA based on a button is there any way to add a password to that file at the same time?

That way it can be opened by anyone?

The code below works fine but the user can open the file in fact anyone can once they press the command button I want to add a password so when the file is reopened it requires a password?

Is this some thing vba even does?

Private Sub CommandButton1_Click()
Const PTHNAME As String = "C:Feedback"
Dim FileNameWithDate As String, x As Integer

FileNameWithDate = Format(Date, "yyyymmdd")

x = 1

If Dir(PTHNAME & FileNameWithDate & ".xls") = "" Then
ActiveWorkbook.SaveAs Filename:=PTHNAME & FileNameWithDate & ".xls"
Else
Do Until Dir(PTHNAME & FileNameWithDate & x & ".xls") = ""
x = x + 1
Loop
ActiveWorkbook.SaveAs Filename:=PTHNAME & FileNameWithDate & x & ".xls"
End If
SendMailtoBDTT
SendMailtoPerson
End Sub

View Replies!   View Related
Show Data In Cell Only If Other Cells Show Data
I have 2 different formulas that I need changed in a similar way.

The first formula is for cell AV11:
=SUM(BI11,BP11,BW11,CD11,CK11,CR11,CY11,DF11,DM11,DT11,EA11)+10

Every cell starts off blank.

What I need is for cell AV11 to always start off blank until data is entered into one of the other cells. The problem is that since the sum always needs to be +10 only when data is entered in the other cells, I don't know how to keep 10 from showing in cell AV11 when no data is typed in the other cells.

The other formula is for cell CO39:
=(CU8)+3

I pretty much need the same thing. If no data is entered in cell CU8, then I do not want cell CO39 to show the 3.

View Replies!   View Related
User Name & Password Log In
I have a 3 2 user forms, plus a calandar pop-up user form. One is a Log In Screen with a user id combo box and a password textbox referenced to ranges in a very-hidden sheet.

My second form is a spend tracker with mulitple fileds, text boxes, combo boxes, etc.

One of the fields in the spend tracker is user name, what I would like to do is when a user enters their user name and password the entered user name as long as it matches one in the database be populated in the user name field and not allow it to be edited. Is there a way to do this, if so, what is the code and where do I put it.

I will attach my file so you can check it out. Log in: tester

Password: test01

Programmers Access Code is 1234.

View Replies!   View Related
How To Set Password For An Action
How to set a password before executing any action.

For example, I have "cancel" button in my userform. If i click "cancel" it unloads the form. Instead of that i need a password prompt. so when i click the "cancel" button ,it should ask for a password. only if i provide the correct password then only the form should be unloaded.

View Replies!   View Related
Capturing Password ...
First, I know passwords are easy to break. The point is only to keep the average Excel user in a dept of 3 from accidentally damaging the data.

Normally I hardcode passwords to view xlveryhidden sheets.

But this workbook is for a dept head who has standard password(s) he uses to open or edit a file. I would like to capture these passwords and make it the same password(s) to view a hidden sheet.

This way if he ever changes the password to open/edit it will automatically change the password to view the hidden sheet(s).

View Replies!   View Related
Password Generator
I got this code from this board and it works OK for generating 1 password. What I want to do is to generate X amount of passwords on to sheet2, so if I use cell B1 as the amount of passwords required it will generate that amount on sheet 2. I tried doing a loop, but had no luck with it, (Not ruling out user error at this end)

Sub PasswordGenerator()
Dim Password As String
Dim PasswordLength As Byte
Dim LC As Byte 'Loop Counter
Dim strRndmChr As String
Dim LAC As Byte 'Lowest Ascii Character
Dim HAC As Byte 'Highest Ascii Character
Dim UseSymbolics As Boolean
Dim HasSymbolics As Boolean
Dim RandomNumber As Byte

'Set parameters.
PasswordLength = 14...........

View Replies!   View Related
Password Protect A Tab
is it possible to password protect a tab (worksheet) within a multiple worksheet file.

View Replies!   View Related
Password Protection
I use the following piece of code to show/hide certain worksheets in a workbook. To access the hidden sheets, a command button runs the code. It works very well, except that the password is openly displayed in the message box (as opposed to returning asterisks for the typed characters).

Sub togglesheets()
Dim Ws As Worksheet
Dim strPassword As String
strPassword = InputBox("Enter Password")
If strPassword "Password" Then MsgBox "Wrong Password": Exit Sub
Application.ScreenUpdating = False
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name = "Apr-Sep" And Ws.Visible = xlSheetVisible Then
Ws.Visible = xlSheetVeryHidden

ElseIf Ws.Name = "Apr-Sep" And Ws.Visible = xlSheetVeryHidden Then
Ws.Visible = xlSheetVisible
End If..............

View Replies!   View Related
Autofiltering With Password?
I have a worksheet that is password protected. The userforms used to input all the data have an initialize event that unprotects the sheet to input the data and then before protect the sheet upon closing the userform. This works perfect so that input data cannot be changed once entered; however, the problem I have is that I need to allow autofiltering so users can sort through their input data. I have a command button that unprotects the sheet and places the autofilters in the correct locations, but once this is activated the worksheet then is open for modifications by the users. Is there a way that I can allow autofiltering while still keeping the data protected? If .

View Replies!   View Related
Password Validation In VBA
However, one problem in particular has gotten me stumped after a few days of working on it and I was hoping someone might be able to help me understand how to crack it. The question is from chapter 7, question 12(a).

"All passwords in your company's system must be 8 characters long, must start with an uppercase letter, and must consist only of uppercase and digits -- no spaces.

Write a sub to get a user's new password. It should use an input box, embedded within a Do loo, to get the password. The purpose of the loop is to check that a valid password has been entered."

Below is my latest try. It will technically work for a password of 4 characters instead of 8, but it already runs pretty slow and I have a feeling that there must be a better way to do this.

Sub Password()

Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim pw As String 'pw is the password
Dim Length As Integer
'48-57 = 0 To 9, 65-90 = A To Z, 97-122 = a To z

Do Until isValid = True
pw = InputBox("Please enter a valid password.", "Password")
Length = Len(pw)
For i = 65 To 90
For j = 48 To 90
For k = 48 To 90
For l = 48 To 90
If pw = (Chr(i) & Chr(j) & Chr(k) & Chr(l)) And Length = 4 Then
isValid = True
Exit For: Exit For: Exit For: Exit For
End If
Next: Next: Next: Next
Loop
End Sub


View Replies!   View Related
Password Protecting VBA
I'm trying to use the Tools|VBA Project Properties dialog box to stop folks from unhiding an xlveryhidden sheet, but even though I check the "lock" checkbox and input passwords in the password and the password verify boxes, Visual Basic fails to stop me from selecting the sheet in question from an Alt-F11 spawned VBA, and editing away.

View Replies!   View Related
Password Changing
I was working on a workbook that unhides certain sheets depending on who's logged in. It seems to work fine. However, after it's run (and sheet2 has been unhidden), when I go to unprotect the workbook, the password ("test") no longer works.

View Replies!   View Related
Password And Macro
I have an excel spreadsheet that has password to open it as well a read only prompt. What I would like to happen is after the user has typed in the password, clicked ok, and then clicked either "yes" or "no" for read only or not that a specific named macro immediately is run.

View Replies!   View Related
Password For Tabs
I have a workbook where each tab represents a 'base.' You can select which base to view by selecting an option from a drop down box on a menu page.

The data for each base is of a confidential nature so I would like to password protect each tab so that it asks for a password BEFORE the page opens. I don't think Excel has the functionality to do this unless I make the pages 'Very Hidden'?

View Replies!   View Related
Remove A Password
I have givien a password to a workbook through the save as meathod. How do I remove this password so anybody can just select the workbook to open it?

View Replies!   View Related
Run Marco Without Password
when i run this marco, i get a Password msgs box appear, now is there away of running it so that it does not ask for a password, I have tried to unprotect the sheet with a password which works, but it never re-protected it self,

I don't know that much about VBA and my programming knowledge is very limited. I dont want the code re-written, as its someone elses work and it does what i want, i just need to know if an extra line can be entered to stop the password msg box. I.E. it needs to run without asking for the password

View Replies!   View Related
USerId And Password To Access A WB
I have made an excel file the use of which I want to restrict to a few people. So I want that whenever the user will open the file it will prompt for user id and password. If these matches then he will be allowed to access the file. Thre types of user id and password is required:

User! : Can modify, edit, delete, etc ie full access (Adminstrator type)
User2: Only access to print (no entry,edit,modifiaction,etc)
User3: Only be able to see the file and no print,entry,etc access.

If all are not possible, then provide code for part.

Macro will always be enabled as I found code on the net to force user to enable macro. ie if macros are not enabled, it shows another rough page. So enabling macro is not a problem.

View Replies!   View Related
Password On A Clickable Button
I am trying to create a password on a clickable button in Excel. I have put the following code in:

View Replies!   View Related
Password Vb With Multi Users
I was wondering if someone know how to creat multi users in a password protection that I got from RoyUK Password/User Name Attempt Count. this works great but i'm haveing proble with the multi users oh and I was wondering if it was possible to have the user have limited visiblity to certian parts of the workbook.


View Replies!   View Related
Auto_open And Password Protection
I have an auto_open module that runs a couple of other small sub routines, the query I have is it possible to hide the active window from a sub?

Because it does not seem to work for me, I can step through (F8) but when I open the workbook it just flikers but does not hide it's self.

I want to hide the work book as there is nothing that the users need to see, it just has VBA code to prcess data. There is a menu item created on the command bar so the user can run the code.

I have a pasword on the VBA code would this cause issues?

Sub Auto_Open()
my_auto_open
Add_Workbook_Menu_And_Items
End Sub
Sub my_auto_open()
Dim w As Window
For Each w In Workbooks("Star_Plus_Hindi_MKII.xls").Windows
w.Visible = False
Next
End Sub

View Replies!   View Related
Password Protect Worksheets
I am seeking a method of password protecting worksheets in a workbook. The users would all start on a sheet that has their names (A1 - A10) next to their names would be where they type in their password (B1 - B10). If their password is correct their assigned worksheet (Worksheet2) would be unlocked for editing.

View Replies!   View Related
Password Protection On Tabs
I have 1 workbook with 11 worksheets.

Is there a way users can be prompted for a password when a tab is clicked? if wrong or no password is entered, then show sheet 1 only.
1 main sheet, and 10 sub sheets. Any of the 10 tabs that get clicked need to be prompted for a password, each different.


View Replies!   View Related
Shuffle Random Password
I am working on a Random Password Generator. Our requirements are that the password should contain the following:

- mixed case letters
- at least one number
- at least one "special" non-alphanumeric character

I created a UDF to do this that works. However, the way that I did this was like this:
- 1st character: special character
- 2nd character: numeric
- 3rd character: lower case
- 4th character: upper case
- rest: any alpha-numeric characters

So while they are "random", they all follow the same "pattern" for the first four characters.

What I would love to do is once I have created the random password, to "shuffle it up" or "mix it up" in random order. So something like:
$2dNKqSc
would be "shuffled" and would would return something like:
SN$qc2dK
(all the same letters, just in random order)

I was trying to do it with Arrays, but I have to admit, arrays are not my strong point. Can anyone help with the last piece? Here is my code that creates the random password.


Public Function RandomPass(myLen As Byte) As String
' Generates a random alpha-numeric password (with special characters) of specified length
' If this is stored in your personal macro workbook and not in the workbook itself, you must qualify the personal macro workbook file to use it
' i.e. =PERSONAL.XLSB!RandomPass(8).......


View Replies!   View Related
Password Generates List
I have a cell that is data validated via a list. Currently it contains the entire list of options (Office Names) that I want to be included. However, I am trying to use passwords that I will assign to users (Office Managers) that will allow them to only select their offices from the list. I struggle with VBA so any help would be appreciated!


View Replies!   View Related
Expiry Date With Password
Ive been trying to do this for ages now, but decided i need further help!
Im fairly new to VB but getting the hang of it, however this one gets passed me.

I have made a spreadsheet that works out figures and conversion rates and stuff, however i would like it to expire with the option of a password lets say for example after 30 days, this will effectivly dissable, or close the spreadsheet down until a password is put in, then it will all come back to life.

ive been trying to think of a way round this now for days, but headache after headache i still cant get it to work. The formula doesnt have to be that secure, as the people using it im certain would never even look for it untill its too late!


View Replies!   View Related
Hide Password In Macros
I have recorded 2 macros which helps me protect my sheet as intended. when the user runs the macro, and clicks on cancle then debug, it reveals the password entered for the macro.

Would really appreciate if some one helps me in modifying the below macros to hide password from others.

View Replies!   View Related
Userform To Act As A Login With A Password
I want the userform to display an input box asking the user to enter their 'login ID'. This has to be either "SUPERVISOR" or "STAFF".

Upon correct entry i need it to then display another input box asking for a 'password'. This needs to be "SHOES" for both logins.

If the login is not equal to SUPERVISOR or STAFF I need a message box displaying "username incorrect". and for it then to show the input box requesting the 'login ID' again.

Again if the password is not equal to "SHOES" to display a message box displaying "password incorrect" Then show the input box requesting the password.

Upon correct entry for both the username and password i would like my other userform to show. This is displayed by:

Load UserForm1
UserForm1.Show

I would like the correct 'username' to be displayed in cell "D27" on the active sheet and 'password' to be displayed in cell "F27" also on the active sheet.

If there is a way to display the password using asterix's for security that would be useful.


View Replies!   View Related
Password Protecting A Tabs
I'm new to the message board so I'm not sure if this question has been addressed. I am creating an excel workbook that two groups need to provide data for, but I do not want the two groups to see each other's tab for inputing data. I know how to protect a sheet in the workbook, but a viewer can still see the contents on the sheet. Is there a way to show the tabs, but when you click on them, it automatically asks for a password before the tab contents can be viewed.

View Replies!   View Related
Use Userform Password Screen
I have a UserForm that I want to use as a Password screen
The form has a label, CommandButton and TextBox.

When I run the UserForm, IF you click OK without entering the Password, you still gain access to the Workbook!
IF you type in the wrong Password you still gain access to the Workbook and NO "Invalid password!" message pops up.

What I would like to happen IF the CommandButton is clicked without entering the Password, is for the Workbook to close, and IF the Password is correct, I want to load Useform2

I am using the following code provided by rorya, that I got from here.....
http://www.mrexcel.com/forum/showthr...light=password

[CODE]
Option Explicit
Private Sub CommandButton1_Click()
Me.Hide
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.PasswordChar = "*"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Me.Hide
End Sub

Sub Mycode()
Dim frm As UserForm3
Set frm = New UserForm3
frm.Show
If frm.TextBox1.Text = "Password" Then
' run your code
Else
MsgBox "Invalid password!"
End If
Unload frm
End Sub
[CODE]


View Replies!   View Related
Check If Password Has Been Removed
Is it possible to check if a password is used to unlock a worksheet.....

View Replies!   View Related
Copyright © 2005-08 www.BigResource.com, All rights reserved