I have a workbook which contains multiple worksheets of employees' information. I'm hoping to share this workbook out. Each employee only able to view and update their own worksheet and their manager, being able to view/update everything within the workbook.
1. In centain directory I have xls files where name of each file starts from "HR" string, eg. "HG_Control Mike.xls", ora "HR_Control Mark.xls". 2. I have a master xls file where I want to start a macro that will open each of xls "HR" files and copy selected rows to this master xls workbook (need to write this one too).
Problem is that opening of every "HR" files suposed to be protected by password. Users will be adding new xls "HR" files to the directory so I will not be able to change macro everytime new xls is added. So, I need to make a macro that will generate password base on xls "HR" file name and then I will use this password to protect this files and open them by another macro.
I was given a workbook with several bugs and asked to fix it and make it functional again. I was able to fix everything except for a runtime error 1004. On the debug it highlights the following code:
Code: Private Sub ComboBox1_Change() End Sub Private Sub Worksheet_Activate() LoadSheetNames "Compare_Session_Start", "Engineer*" End Sub Private Sub LoadSheetNames(strRangeForValidation As String, strDesiredCodeName As String)
[code]....
Anytime you select the base worksheet or a duplicate it shows the runtime error...
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
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
How would I code a button on a userform to request a password input before opening the form? And as a second level of protection - can I code it to only display asterick's when typing in the password.
I have a code to verify the user name and password, what I want is counting the times the user enters wrong password and show a msgbox when he enters three continuous wrong passwords:
I have created the following lines which are part of a long code, the code is actually running without errors, but it is not showing the msgbox,
My macros are set up with hard-coded passwords to protect and unprotect the sheets where they run.
But I need a way for the macros to refer to a user-provided password without having the user edit the macos themselves. The simplist approach (I suppose) would be to have a worksheet for this with a cell for the user to enter the password he/she wants. The macro protect/unprotect code would then look at the cell to get the password.
I have coded a user form to automatically unprotect a sheet, then protect it with a password after data is entered from the User Form. Works great. However, after it is protected through the User Form script, I cannot unprotect the sheet to edit it. It will not recognize that it is the correct password, although it is.
Private Sub cmdOK_Click() Dim NextRow As Long NextRow = Application.WorksheetFunction.CountA(Range("b:b")) + 2 Cells(NextRow, 2) = txtAddProvider.Text ActiveSheet.Unprotect Password = "stats@fwh" Range("B3:B21").Select Selection.AutoFilter Selection.AutoFilter ActiveWorkbook.Worksheets("Lists").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("Lists").AutoFilter.Sort.SortFields.Add Key:=Range( _ "B3:B21"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Lists").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveSheet.Protect Password = "stats@fwh" End Sub
I have an input box for a password, and my vb code checks the password against a list, and if it is correct allows the user to continue. I want to change the input box for a user form, as it allows more text on the form, and I also want to include a checkbox that the user must tick to show that they have read and understood the instructions. I have defined the form, but am having trouble getting the form to interpret the user input.
The form has one checkbox, which needs to be ticked to continue, otherwise give a message saying that you have to confirm. It also has one textbox, for the user to input the password. I dont understand how to name the contents of the text box, and use it in the following code. Also do I need a "send" button on the user form, for the user to click after entering the password. If so how does that work?
I'm trying to write what is supposed to be a simple script that looks at a column of usernames (ColumnA) and passwords (ColumnB). I start off by prompting the user to enter their username in an input box and then I want a loop to check this value against the values in Column A. If the username exists, I want to prompt an input box for the password. If the username does not exist I need some kind of limit on the loop to prompt an input box for the user to enter a new username and password that I'll add to the last row of the data table. The loop part is kicking my butt, this is what I have so far...
Sub Main() Set StartRange = Worksheets("16.10"). Range("A1") username = InputBox("Please enter your username.", "Enter username", "Jdoe") i = 1 Do While StartRange.Offset(i, 0).Value <> "username" i = i + 1 Loop If StartRange.Offset(i, 0).Value = "username" Then password = InputBox("Please enter your password.", "Enter password", "password") End If End Sub
I have userform in excel which asks user to enter user id and password. I want a to have "Remember Me" check button on my userform which will remember user details and he wouldn't have to enter user id and password again and again.
I have a large worksheet that for some reason I can’t share.
-It does not have any lists, that I know of, do not know how to see if there are any -It does have validation, but I have other workbooks with listed validation that are shareable -It is not protected -Does not have any named ranges -Is not read only -I have saved it as another file name and no luck there -I have copied the one sheet I really need into a separate file to try that it did not work,
One of my work colleagues need to add a worksheet to an existing Excel Spreadsheet which has VBA behind it, but the worksheet is password protected. The developer who wrote the application has now left, so we have no idea what the password is. Is there anyway of getting round it, like cracking into the spreadsheet to find out the password, or another way?
I have a worksheet with 30,000 rows. But sometimes even if I have fewer records in this worksheet(lets say 1000) worksheet shows the same 30,000 rows.And its annoying when you try to navigate using vertical scroll bar. Is there any option to re-adjust the worksheet to make it more user friendly based on number of rows in current sheet.
I have set up a workbook with a tab for each month. in the workbook open module i have the following code (below marked Password protect) that allows for three passwords to unlock certain ranges of cells, what i would like to do is for this code to apply to each worksheet.
Now in the main this works except for one range of cells H11 to H1000, on every sheet all cells are locked except for this range which is unlocked in every sheet except sheet one when you enter the password staff. The only other code i have is for a time stamp (marked time stamp) so that i can monitor when the user has entered data. this again has reference to the sheet name.
their must be something really straight forwad i am doing wrong here as everything works on an sheets except this range being locked.
I am in excel 2002 but my users are on 98, which is why i am protecting in VB rather than using the prtect range option.
I had the thought that maybe it would be possible to have a worksheet that is not protected when saved but when it is opened there would be a sub-routine under Sub_Workbook Open that would step through each sheet and assign a random password. And when the workbook is saved it is saved without passwords again.
In this way there would be nothing for a password cracker to pick at. The only flaw I see would be that the password to open the VBA module would need to be static and this would open up the programming to change and remove. But wouldn't this be effective against most users who would only know about the utilities to open the passwords and not the programming behind excel.
I have a workbook where I need to protect the sheets with a password. However, for certain macros contained in the workbook to run the sheets need to be unprotected. I know the code to unprotect the sheet but the password is required. I do not want other users to know this password.
What I need is the code to protect a worksheet with a password. Then, when a macro runs, to unprotect without user having to enter the password and reprotect with the original password when the macro has completed its run. note: I am NOT looking for any form of password breaking code!!
We had an Excel worksheet that is used everyday suddenly pop up with protection. I have used protection before, but this one never had a password. We put in every known password we use, but none worked. I resigned to re-typing the worksheet, then, in between Friday night, and Saturday noon, when most of the office is out, a different Excel worksheet has the same problem. We are using Excel 97.