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
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.
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??
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.
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
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).
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.
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
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 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.
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.
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'?
I have a excel document with 5 tabs (sheets) and, because different people work with a different tab (sheet), I want to lock each tab (sheet). I want the tab to be visible on the tab bar but when you click on it you will not be able to see the content of that tab (sheet) until you provide the right password (each tab with a different pasword).
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 .
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..............
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.
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
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
I have a userform : ADMIN LOG IN with username and password
If the details are correct then i have a userform : ADMIN PANEL with a change password button.
So overall im trying to create a password script that will recognize log in to the admin panel but also allow me to change the password through the admin panel.
I have below piece of code which I'm not sure how to finish up. What I'm trying to do is have 'Username' and 'password' entered before logging into the workbook. It does not have to be 'UserForm" if it is possible, but it would be useful if we use Ucase...
I'm just not sure how this code works with
"Sub sUserLogon(strStandardID As String, strPassword As String)"
stated in this way..
VB: Sub sUserLogon(strStandardID As String, strPassword As String) Dim strUserName As String Dim StrMessage As String Application.DisplayAlertsAlerts = False StrMessage = "User Logged In"
Im trying to protect worksheets in a document by licking...Tools>Protection>Protect Sheet. I am also wanting to password porotect it but every time I think I have protected it, i can still click in all the cells, there are some cells that can be left unprotected....but either way I have not manged to do either.
Hi there, I have searched for this problem and whilst I can see several "round-about" ways to achieve what I want, none quite do it in a way I would like.
Essentially, I have a dropdown box, with a list of water types. What is selected from the dropdown determines the data from a lookup table that gets utilised in subsequent calculations.
The lookup table is protected and cannot be edited, however what I would like to do is for the last entry on the dropdown box, which could be called "special water" would then prompt for a password. If the correct password is entered than the last row of data corresponding to "special water" in the lookup, becomes unlocked and can be edited. If the password is not forthcoming the user cannot select special water and consequently cannot edit the corresponding row in the lookup.
I can think of a few long-winded ways to achieve the basic result, but nothing seems elegant....or fool proof
I had thought about a simple check box against the appropriate row in the lookup called "unlock" which would require a password to use. Once the password is entered, then it can remain open until the check box is clicked again whereby a password is required to "lock" it again
