encrypting and decrypting passwords for application (two-way encryption)

Visual Basic for Applications (VBA)

Index ‹ Microsoft ISV

- Previous
  - 1
    - Excel 'Freeze panes' from Access VBA (Off2000) Hi, I'm searching for a way to freeze the upper part of my Excel sheet (with headers and such, like the 'freeze panes' menu option in Excel), from my Access VBA code. I've been searching for a while but didn't come up with something usefull. Anyone any suggestions Thanks in advance, I'd be really glad if someone knows this! Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 2
    - Message for display during macro execution I have a macro that takes a long time to execute. While it is running I would like to put an object on screen to inform the user that the macro is running and they should just wait. Otherwise they may think something is wrong. It would also be good if this object had a button on it the user could click to end the macro if they run out of patience. I thought about a message box, but when it is displayed it halts execution until the user clicks it, then it dissapears anyway so this will not do the job. Is there another object I could place on screen that has say "display" and "close" functions that I could use as follows; Sub theMacro() SignalBox.display "Just wait, the macro is running" 'lots of code 'lots of code SignalBox.close UserForm1.show ' shows macro results End Sub Maybe another userform could do this, but it would have to be able to stop the macro via a command button (not sure if possible) and/or close itself. Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 3
    - Upgrade problem Access 97 and Access 2003 on same machine Hi We have finally started to upgrade to Office 2003, I still have a copy of Access 97 on my machine to maintain databases which cannot be upgraded until the roll out is finished. However, when I run my code now I am getting a problem. Access 97 now will not use the Trim$ function is an SQL statement, I get a message that the function is not available. Trim$ will work outside of an SQL statement e.g. Debug.print Trim$(" some text ") Any ideas where my problem stems from Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 4
    - How to check if a date exists Awesome, that works perfectly. Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 5
    - Clearing a manually created indent for a paragraph I am testing the process of removing indents from headings. I created a manual tab indent (pressed Tab and created an indent for the heading text). Now I want to remove this indent by code. I tried the following: oPara.Outdent oPara.TabIndent(-1) oPara.TabStops.ClearAll The above codes were tried individually and collectively. I was not able to clear the indent created. Howeve, if I create an indent by pressing the 'Indent' icon on the menu bar, I could clear it by oPara.Outdent. If I create an indent by code e.g. oPara.TabIndent(1), I could clear it by the code oPara.TabIndent(-1). Can anyone suggest how best I can remove a manually created Tab indent by code Thanks in advance. Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 6
    - BSM 2005 Server Installation Failed Hi All We are trying to install Business Scorecard Manager 2005 Single Server Installation. We are getting error "Failed Microsoft Sharepoint Extended Site". We can able to create a new website and extend another web site from Central Administration. Please help me how to fix this error Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 7
    - Internet Explorer 7 jpeg and gif blurry after tools/internet options/advance/reset There are two solutions to this problem. 1. Adjust the DPI back to the standard settings. --> Right-click your desktop and go to Properties --> Click on the settings tab --> Click on advanced --> Change the DPI setting back to "Normal" 2. Edit the registry. --> Go to Start, Run --> Type regedit and click OK --> search for "UseHR" --> Adjust the value from 1 to 0 Depending upon whether or not you want to use the High Res DPI scaling or not do one of the two options. This link descibes it in a little more detail. Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 8
    - API and OpenGL in VBA for Excel Declare Function FindWindow32 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Until tomorrow.. JR Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 9
    - Referencing objects from different reports Hi, I have 2 Access Forms, Frm1 & Frm2. In Frm1 I have a cmd button which when clicked should open Frm2 and refresh a combo box in Frm2. How can this be done as the below is not working. Private Sub cmd_cmp_Click() DoCmd.OpenForm "frm2" Me.frm2.Form.cbo_1.Refresh End Sub Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 10
    - Saving a pic I think you have pasted ALL the code into the userform code module. The first part goes in a standard code module. The code after the line in the userform module: goes in the userform code module. Sorry I should have made that more clear. Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 11
    - Error with Excel Application Object Hello ladies and gentlmen, this is a very specific error I'm dealing with, and one of the stranger ones I've run across. First of all, I am attempting to open an excel file from MS Access using an Excel Application Object. If Excel is not open, the file will open fine. If Excel is open and there is no workbook open, the file will open fine. If Excel is open and there is a workbook open, then the file will not open. Here is the code I'm using. Set appExcel = GetObject(strFilePath & strFolder & "\" & strFileName) appExcel.Application.Visible = True If blnIsWorkbookOpen(strFileName) = True Then appExcel.Application.Workbooks.Open strFilePath & strFolder & "\" & strFileName Else appExcel.Parent.Windows(1).Visible = True End If Set appExcel = Nothing The thing of it is, when the database is not locked against user modification, the code works fine. The other sticky bit is that it works fine in a database that is even more heavily locked than this database. The question is then, how do I get the code to work correctly when the DB is locked Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 12
    - Obtain Unique Work Units via SQL Just Add: GROUP BY WorkUnitsFaultsMainTBL.WorkUnit HAVING COUNT(WorkUnitsFaultsMainTBL.WorkUnit) = 1 Adamus Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 13
    - Copying Named Ranges I have a worksheet with a number of named cells (so that I can put data in them or retrieve data from them with VBA and not have to change anything should rows / columns be added or removed). I have a sort of template file from which I copy and paste the spreadsheet with all the named ranges to create a series of new files. The problem is, the cell names do not copy, so they do not appear in any of my new files. I also notice that on my original file, the range names are defined locally, like with ="Sheet1!$U$33". I imagine that if the sheet was to be renamed something other than Sheet1, I would have a problem. So I guess my question is, a) How can I name ranges in such a way that the name will stick even when I copy and paste the sheet to other workbooks. b) How can I go about naming ranges relative to the active spreadsheet, such that calling Range("my Range name") will always work no matter what spreadsheet I am in, so long as there is such a named range in the worksheet. Thanks! Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 14
    - how to code an EDI transation with VBA Hi, I am looking for some documentation and advise on how to handle EDI within an Access2002 (VBA) app. Thanks if anyone can provide feedback, Jay Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 15
    - Date set and iteration I want to create a spreadsheet to go to the first day of the current month and set a date if the day is a weekday and not a weekend(or holiday if that is possible). I will also want to check against the sheets in the spreadsheet as I have sheets numbered 1 through 31 and will be hiding each day that is not a regular business day. I basically just need to know how to find the current day in the month and iterate through it as well as set the format for the date in excel. Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 16
    - System.Web.UI.WebControls not serializible in Web Parts (MOSS 2007) I create System.web.ui.webcontrols in CreateChildControls and I get error messages that they cannot be serialized. Scott Hillier's book shows examples of this yet I cannot get them to work. Thanks Tag: encrypting and decrypting passwords for application (two-way encryption)
- Next
  - 1
    - Dusting up on VBA - Excel/Powerpoint I have a few projects requirying knowledge of VBA for PPT and XLS - can anyone recommend any online guides to get me updated and back into VBA ...... tis been so long since I have touched this language! Cheers Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 2
    - ActiveWindow, Macros, and Outlook 2007 So for the past couple of days I have been working on updating my companies outlook auto-responce macros for Outlook 2007. I am almost done but I have hit one hurtle. So far, it is doing everty thing I want it to do, but the last part, which is paste of information in to the original window I executed the Macro from. What this Macro does is it opens a word doc, copies it's content and ads it to the Email I have open. Only thing is, when it get to selection.paste I get a runtime 91 error. Only thing I can assume is that when it gets to TargetDoc.activate it doesnt understand what TargetDoc is, even though the first line in the macro is set TargetDoc = ActiveWindow. I am guessing, the new Outlook does not understand what ActiveWindow means. Any clues on how to fix this Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 3
    - How to write code for dynamically (programatically) generated combo boxes (excel-shape object) in excel? Make a ClassModule and name it "clsCtrlArr". Write in it Code Snippet Public WithEvents ctl As ComboBox Private Sub ctl_Change() Cancel = True MsgBox ctl.Name End Sub Make a Module and write in it Code Snippet Public cmbArea() As New clsCtrlArr Sub InsertMyComboBox() Dim MyRange As String MyRange = ActiveCell.Address(0, 0) 'Cells(3, 3).Address(0, 0) Set MyComboBox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _ Left:=Range(MyRange).Left, Top:=Range(MyRange).Top, _ Width:=Range(MyRange).Width + 2, Height:=Range(MyRange).Height + 2).Object ActiveSheet.Shapes("ComboBox1").Name = "cmb" & MyRange Range(MyRange).Offset(2).Activate Application.OnTime Now + TimeValue("00:00:1"), "AreaShape" End Sub Private Sub AreaShape() Dim sh As Shape, i As Long i = 0 For Each sh In ActiveSheet.Shapes If Left(sh.Name, 3) = "cmb" Then ReDim Preserve cmbArea(i) Set cmbArea(i).ctl = sh.OLEFormat.Object.Object i = i + 1 End If Next cmbFill End Sub Private Sub cmbFill() For Each sp In cmbArea() With sp.ctl .Clear .FontSize = 8 .AddItem "First" .AddItem "Second" .AddItem "Third" End With Next End Sub Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 4
    - WER wish list for developers 8-) Many support contracts with customers promise a reaction within 24 hours - that would be the upper limit for the processing delay which makes the Winqual portal a viable tool for customer support in crash situations. However, it is very desirable to have turnaround times even significantly lower than that (less than an hour). I realize this is asking a lot of the Watson/Winqual servers; after all, they probably have to process huge amounts of data each day. This is why I would love to see an option for ISVs to set up their own local "Watson servers" to which customers could send crash data when the WER dialog appears. For instance, an application could use a WER API configuration function to specify an alternate WER server. In our case, this could be something like watson.cocreate.com. When a crash occurs in one of our apps, WER would display its usual dialogs. Instead of presenting the simple choice between "Don't Send" and "Send", the user would be informed that he can send the crash data both to Microsoft (default), or to us, or both. From a WER API point of view, this is probably a simple feat. However, it means that we would have to set up a publicly accessibly CER/AEM-like server - which could be a little challenging, for example from a security point of view. Also, since the WER API needs to change, it would mean we wouldn't see any improvement at all before at least Vista SP1 or SP2, probably even later. But alternatively, what if we could tell the Winqual portal that crashes reported for our applications should be routed immediately to one of our servers This way, the WER API wouldn't need to change at all, and since only Microsoft would know about the whereabouts and details of our server connection, secure operation would be easier to achieve. So once we'd register our own Watson-like server with Microsoft, here's a typical sequence of events: Application crashes at customer site WER dialog is displayed, customer chooses to send crash data Watson server at Microsoft checks if there is an ISV registration for the crashing app, and whether the ISV has also registered an ISV-local Watson server If so, the crash report is immediately forwarded to the ISV's server. Process the crash reports as usual, and make them available through Winqual. In this scenario, Winqual delays of 3-4 days or even a week wouldn't be a big issue anymore for an ISV. Claus http://www.clausbrod.de/Blog Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 5
    - Ajax in CRM Read this blog entry I think it has the answer to your question http://geekswithblogs.net/guentersblog/archive/2006/07/05/84130.aspx Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 6
    - Populating combo box via the workbook open event Hi all, I have a worksheet with a combo - box embedded in it of type 'form' rather than active x. I have written a function to populate it via the worksheet_activate event, passing the combo-box to a module function by reference. However I find that if the workbook opens to that page because it was active when last saved the worksheet event does not fire. As a workaround I have thought of using the workbook_open event instead instead but don't know how to pass the combo-box by reference to the module function as it is not visible using the 'me.combobox' syntax I used for the worksheet event. Anyone have any ideas Rob Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 7
    - LCS 2005 Internal Vs External Hey all, I am trying to get our LCS2005 server setup in a way so our Communicator 2005 settings are the same. I would like to have only have one naming channel to use, as opposed to 2, so that those on laptops can come in or be out on the road and connect using the same connection name that EVERYONE else uses, while ensuring that everyone goes through the proxy server. LCS Server's FQDN: lcsserv.domain.local LCS's Access Proxy FQDN: aproxy.domain.local Setting within Comminicator 2005: Server name used to configure the connection to a communcations service: inside people: lcsserv.domain.local road warriors: com.domain_pseudoname.com For our DNS, I have the settings configured/alias setup so that if anyone types in or tries pinging com.domain_pseudoname.com; the correct internal IP address is associated and IS pingable. Also, if you do an nslookup on com.domain_pseudoname.com, it resolves to aproxy.domain.local. So as far as I can see, my DNS isn't an issue as of yet. On the outside, if I were to type in com.domain_pseudoname.com, the correct Public ip address resolves. At this point, my inside and outside people can connect to the Commincator's service, however they are using two seperate "servernames used to configure the connection to a communications service." Anyone have any ideas Thanks all in advance! Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 8
    - How do I update a cell in a closed workbook? Hey again Andy, Great thanks for the reminder! I forgot that�� it works fine. And to your question, for the curiosity reason, if it could be done, I wanted to try out this method instead of opening the workbook. It could be useful one day�� Cath Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 9
    - iexplore.exe - Application Error Hi Bennett, How did you remove the yahoo tool bar I have the same error message. Thanks, Eric Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 10
    - Using a Check Box in Excel I have never written any code before so I need some help. I would like to insert a check box on a sheet in excel. If that box is checked I would like to copy specific information from a range of cells from another sheet to the sheet with the check box in it. For example, I would like to copy data from cells D7 through CO7 in sheet 1 to cell D1 in sheet 4. I know how to insert the check box but I don't know how to write the code. I would also like to know if the code is affected by the name of the sheet. For example, if sheet 1 is named "quizzes" rather than "sheet 1" will that affect how I write the code Thanks in advance for your help. Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 11
    - need help writing a vbscript to open a spreadsheet and run a subroutine in a macro Actually, I need help coding the "running a macro" part. I have a spreadsheet with a macro called "snafu" on sheet2 that contains a private subroutine called "runme" tied to a button. I just need to script up something that opens the spreadsheet and runs that subroutine and closes the spreadsheet. Sounds simple, huh Six hours of googling and reading the Microsoft Excel Visual Basic Reference could not clue me! I don't think I'm stupid... but I've been wrong before. Here's what I tried: Set objExcel = WScript.CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("fubar.xls") ' I don't know what to do here. I tried: ' objWorkbook.Sheets(2).Activate ' objExcel.Run("runme") ' but I got an error about not being able to find "runme". ' please clue me in! thanks!! objWorkbook.Close objExcel.Quit Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 12
    - Verifying completion of a file's creation from VBA I need a way to monitor a file in a folder (created by an external application, such as Word or Acrobat), and verify that the process of writing to the file has completed (in Windows 2000 or XP). I.e., that the file is finished, and can be opened by Excel. It's easy to verify that the file exists, and what it's file length is, but the file length continues to increase as the file is written to (especially for a large file). Anyone know of a way in VBA to verify that the file is complete I assume that Windows sets some kind of bit in the file to indicate completion. Thanks... Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 13
    - "StackHash" crashes Hi all, this is probably not the right place for this question, but I'm giving it a shot anyway, counting on the fact that we have experienced people here who crash applications for a living I recently noticed APPCRASH report data which specify something like "StackHash_1703" in the "faulting module" parameter of the Windows Error Reporting crash data. When this type of crash is reported, the fault offset in the module always seems to be 0. Fault bucket 42424242, type 1 Event Name: APPCRASH Response: None Cab Id: 0 Problem signature: P1: foo.exe P2: 1.42.42.42 P3: 46b17782 P4: StackHash_1703 P5: 0.0.0.0 P6: 00000000 P7: c0000005 P8: 00000000 P9: P10: There does not seem to be a module (=DLL) called "StackHash", so I assume it rather specifies a special class of crashes. When I search the web, I find lots of other similar incidents, but (so far) no good explanation of what this crash class means. There seems to be at least a weak connection with DEP (data execution prevention) in practice, but this may be coincidental, of course. My current hypothesis is this: The application crashes. The kernel's top-level crash handler tries to walk the application's stack, or at least checks stack consistency. The stack has been corrupted beyond recovery, or at least so badly that the faulting module cannot be determined anymore. Lacking the module data, the OS crash handler inserts "StackHandler_xxxx" as the name of the faulting module, indicating that the stack has been corrupted. "xxxx" seems to vary and either indicates the type of stack corruption, or some kind of (hash ) value representing stack configurations. Any hints most welcome! Claus http://www.clausbrod.de/Blog Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 14
    - VBA in Excel - organizing charts as objects in a sheet I am using a macro to create multiple charts from data on a separate sheet in the Excel file. However, the program places each new chart on top of the previous one in the sheet I select. I would like to place these charts apart on the sheet so that they are viewable. 1) Is there an command to order the charts down and across the sheet 2) Alternatively, can I select and move each sheet without using the actual object name in the while loop, "Chart1," for example. 3) Specifiying the object name would only work for the first chart. Is there a way to number the charts with a variable Here is the while portion of my code as it is now ( red text indicates the portion I am having difficulty with ) : While j < 243 Charts.Add With Sheets("TRESULTSdmp_3") ActiveChart.SetSourceData Source:=.Range(.Cells(i + 1, j + 1), .Cells(i + m, j + 1)), PlotBy:=xlColumns End With ActiveChart.ChartType = xlXYScatter ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Test point to the right" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With ActiveWindow.Visible = False <----- question 2 above) want to move object to a specific location ActiveWindow.WindowState = xlNormal (will have to make Range a variable) ActiveWindow.WindowState = xlMaximized Range("A1").Select ActiveSheet.ChartObjects("Chart 8").Activate ActiveChart.Paste ActiveSheet.Shapes("Chart 3").IncrementLeft -123.75 <--- question 3 above) want to make object # variable ActiveSheet.Shapes("Chart 3").IncrementTop -8.25 j = j + 1 Wend Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 15
    - Special cell does not work I have one Excel file. In One sheet I have written 34898 formulas. I m using office 2000. but when I used SpecialCells method of Used Range of Excel Sheet, It just hangged out. The code is working fine, if i run from macro. But if I run the code from VB and if Application.Visible and Interactive mode is set to "FALSE", It is getting hanged. So plz suggest me possible solutions Thnxs, Viren Tag: encrypting and decrypting passwords for application (two-way encryption)
  - 16
    - 2 Small Macro problems. Try this: Sub CloseOtherFile() ' ' CloseOtherFile Macro ' Macro recorded 3/13/2007 by Gary Beckwith ActiveWindow.ActivateNext ActiveWindow.Close SaveChanges:=True End Sub Tag: encrypting and decrypting passwords for application (two-way encryption)

BlackMan890

Hello there.

I have an application that needs to store a password used to connect to SQL. The problem is that I want to be able to encrypt it and decrypt it.

One of the things I noticed while googling is that when you are going to decypher something you need a key. so basically where can I store this key so I can decypher the encyption.
And which encryption techniques should I use

I know encrypting doesn't solve all problems but hey, at least it will buy me some time.

Top

Re: encrypting and decrypting passwords for application (two-way encryption)

elephantwalker

Maybe not on point, but you can take a look at http://www.bouncycastle.org/ for java anc c# encryption. Full of code that lets you do this to any level of encryption. NSA really hates this site.

kind regards,

the elephantwalker

Top