I have created an Excel sheet that retrieves data from a ODBC source. I have created a macro using macro recorder to refresh the data by re-connecting to the database. However, the connection requires a password prompt and when the macro is run, you are still required to enter the password.
Is there anyway to make the macro so that the password is automatically entered and the user will just have to press a button to fully run the query update?
I have an excel file that imports data from an access database. Now the user wants the database password protected I edited my code to include the line "user ID=admin;password=risk;" but I'm getting an error message stating: "Cannot start your application. The workgroup information file is missing or opened exclusively by another user."
I'm bothered because I did not create a workgroup information file. I just want a password on the database I did not create users and groups.
Note this code works fine without the password protection and the added line.
My
Sub Update_Click()
Dim rsData As ADODB.Recordset Dim szConnect As String Dim szSQL As String
I need to put together a macro, which will be assigned to a command button, that will prompt the user for a pre-specified password, and, if the password is correct, return a pre-specified value in a different cell. Is there any way to do this?
To put it in perspective, at my company we have approval sheets that need to be signed by several executives that are scattered all over the building. The first executive gets the copy, signs it, sends it off, etc. They tend to dissappear on occasion, so we are looking to make it all electronic, where they can access the file in a shared folder, and the if they enter their password correctly, their initials are input into the specified cell. They can than save the file for the next executive to do the same.
I am trying to complete a toolbar that will lock and unlock all the sheets in a workbook. While I can set the password automatically I'd like to have the macro ask for the password instead of hardcoding it.
Here is the code I currently have and works so long as I have already set the password in the workbook to match what is in the macro
Macros are just not my strong suit. I can usually find my answers here but this one has me stumped. I have rewritten this thing everywhich way but loose and this is my latest version.
Sub SetProtect() ' ' protect Macro ' prompts for password protection ' ' Keyboard Shortcut: Ctrl+p ' Dim Response As String Dim Answer As Integer
SetProtect:
Response = InputBox("Enter password") If Response = "safety2" Then.......
My Excel File Name "eai.xls" ,when I Click The File , It Open The Sheet Name "menu" With The Inputbox Prompt:="put Your Id" When The User Put The True Id , It Will Show The Input Box Prompt:="your Password" . If The Password True Will Activate The Sheet Name "data" .and Hide All The Menu Bar.
If The Wrong Id Name Show The Msg.box "re Enter Your True Id " ,that Also For The Wrong Password In Which If User Put More Than 3 Times Wrong , Will Close The Workbook And Exit File.
The User Persons Allow 10 Person Id . Keep In The Table Of The Sheet Name " Id And Password" The Id No. Are In The A1:a10 Password No. Are In B1:b10 This Sheet Name Is Hide And Protect
I have a macro that locks the cell (cell rangeis given) after entering data into cell & thereafter if we have tochange the value of cell it asks for password. It works well.
I want somechanges in this macro - currently if I move cursor on locked cell then alsoit prompt for password & i want if i edit that cell by double click or F2then only he ask for password.
I have created a workbook that mostly works with VBA codes. Within the code I have ensured that certain worksheets remain hidden. However, I have also written a macro to access what I called the ADMIN worksheet, which has several commands enabling updates and troubleshooting. Long story short, I would ideally like to prevent users from accessing that worksheet. I have already created a prompt (Msgbox) asking the user if he/she wishes to proceed with the macro but I would prefer being able to have a password prompt to run the macro.
I am trying to password protect user input on a specific text entry, for example if a user tries to enter the letter A they are prompted they require a password (I am trying to do this for authorisation.).
have a password protected spreadsheet with a userform for people to enter data. This allows them to enter data, but stops them from editing or deleteing data once entered.
When the spreadsheet is opened, it asks for a password to unlock it. Hitting cancel allows the user to continue and the userform pops up for the user to enter data. I would like to disable the initial password prompt when the file is opened to avoid confusion on the users part.
i currently have an excel based application with VBA code. I'm trying to add some controls around the app by prompting user for login and password credentials prior to ODBC connection at runtime. So when application is launched, prompt appears, user enters login and password, if correct, it goes on to verify user has ODBC connection at runtime.
When I close one excel document, I get prompted for a password.. And it won't close (I don't know the password) The only way I can get it away is by terminating it in task manager. I have read alot of threads in here, where the solutions should be to uninstall Google Desktop..
I have a workbook file containing several sheets, is it possible to pull data from another sheet or workbook with multiple column criteria.
For example :
i want to filled a cell in Sheet B from Luas_Tanam column in sheet A, i'm thinking a database query like this :
--select from sheet "A" where column "estate" = "BSRE" or column "Divisi" = "Div 01" or column "No_Block" = "J17" or column "Tahun_Tanam" = "2008"--
It goes like =DGET() functions, but i can't get it work, maybe any other solutions?? i've attached example of the workbook, sory for the bad "ENGLISH" question.
i am trying to use VBA to query a access database that i have i want to be able to pull the information that matchs either textbox4 or 5 i am using the code below but i am getting global errors.
Private Sub CommandButton1_Click() Dim custname As Variant Dim Custnum As Variant Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset custname = Range("TextBox5").Text Custnum = Range("TextBox4").Text With ActiveSheet.QueryTables.Add(Connection:=Array( _ "ODBC;DSN=Insolvency;Description=Insolvency;APP=Microsoft Office XP;DATABASE=Insolvency;Trusted_Connection=YES"), Destination:=Range("Listbox1")) .CommandText = Array("SELECT * FROM POST WHERE Customer_Account_Name=" & custname & " AND Customer_Account_Number = '" & Custnum & "' ORDER BY Customer_Account_Number") .Name = "Insolvency Post Query"..........................
I am trying to create a macro that will import data from an external database; however, I want to be able to filter the data using input from the end user. The code will work fine if I do not use a variable (i.e. I type "31" to replace the second instance of "Reply" below).
Dim Reply As Integer Reply = InputBox("Week Number", " Find Week")
I want to web query an online database. One of the columns contains numbers 16 digits long. When Excel imports the query I get the number in exponential format and it replaces the last number with a zero.
Example: The original is 1002002660100027, after query ends up as 1.002E+15 and reformated as text I get 1002002660100020 (Last # changed to a "0")
Is there a way to prevent the query from replacing the last number with a zero when importing from a query? Or.. can I get the query to paste as text?
I am using the attached code however when my database query does not return any data I dont want the Dim function to perform.
Sub macro3() Worksheets("Data 1"). Range("I3:BU65536").ClearContents 'declare a variable to hold date Dim strDate As String strDate = Format(CDate(Range("startDate").Value), "yyyy-mm-dd") & " " & FormatDateTime(CDate(Range("startDate").Value), vbLongTime) Sheets("Data 1").Select Range("A1").Select With Selection.QueryTable .Connection = _...........................
1) navigate to a web page 2) submit my userId and password 3) beeing redirected to a different url I have to menage this situation for passing url to 4) quering sub
I am using Excel 2000 with win98 Error 429 Can't create object:which one?
Public Sub First() Dim obEx As Object Dim obj As New MSHTML.HTMLBody Dim strPass As String Dim elUid As New MSHTML.HTMLInputElement Dim elPass As New MSHTML.HTMLInputElement Dim elSubmit As New MSHTML.HTMLInputElement Dim strUid As String Dim Desc As String
I am trying to import data into Excel from a webpage using the web query function; however, the webpage requires a login and password. I have the required login and password, but I cannot figure out how to make excel automatically input these into the correct fields and login in order to import the data.
Since I am trying to make all of our databases update automatically, I don't want to enter this info everyday when the macro runs.
I need to create a new query that pulls data from a 2007 Access database into Excel 2007. When I invoke the 'From Microsoft Query' option after 'Data/From Other Sources', and then select 'MS Access Database*', the only file type presented is '*.mdb' . However, I need to pull from an '*.accdb' file type. I have both Office 2003 and Office 2007 installed.
I have created a query in an Access database which returns multiple results. I need to be able to run this query within Excel, but only showing the total of the results in a single cell.
I also need to run it multiple times on the same sheet using different dates. The Access query asks for a date each time it's run
I have only found ways to retrieve the entire results of the query into Excel based on the settings within the query.
I have a database that has outgrown excel (over 77,000 rows now) so i now have it in Access. I want to replicate the following situation I used to have using lookups in excel with a query to the Access database: Paste a list of identifiers into an excel sheet. Values corresponding to the list are returned from the database in adjoining columns. The list can be from 10 to 300 cells long an returns data in 14 columns. I have had a go with the Import external data wizard which generates a query but have not been able to work out how to base the query on a list of cells in excel and have the query return values for each of the identifiers in the list.
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 an existing application that uses DAO sql queries to populate a form. It has always worked fine. Earlier this week, I password protected the spreadsheet. Now my DAO query fails. I get a run-time error '3161'. Could not decrypt file.
' Const stExtens As String = "Excel 8.0;HDR=Yes;" Const stExtens As String = "Excel 8.0;HDR=Yes;PWD=money16;"
Private Sub Execute_Query(SQL) 'Instantiate the DAO objects. strDb = ThisWorkbook.FullName Set DAO_ws = DBEngine.Workspaces(0) ' code fails on the line below Set DAO_db = DAO_ws.OpenDatabase(strDb, False, True, stExtens) Set DAO_rs = DAO_db.OpenRecordset(SQL, dbOpenForwardOnly) End Sub
I have a macro that performs an operation on all Excel files in a given folder. The only problem I had was I couldn't walk away until it was done because the files themselves had macros that gave me a Yes/No prompt to recalculate.
I already have a calculate command in my macro so how can I override this command without physically selecting and clicking "No" with my mouse and without editing the macros that are already in the files (each unique and embedded in the individual worksheets). I cant edit each file because there are close to 300 of them.
