Posts by Ivan F Moala

Re: "Can't find project or library" Error

David
You need to remove the reference to the Calendar control from the computer that doesn't give you this reference error.
That's what I meant by inadvertently referenceing a control from that computer. The other computers obviously don't have that control / registered.
The other 2 references are the Analysis Addin. You can leave these alone as they have obviously loaded these addins.

Quote from jumper5two

Thanks for responding Ivan & anyone who reads this. When I try to uncheck the checked box that says missing, I get the message "Can't remove control or reference: in use". In answer to your question "What file is missing?" I don't know because the checked box only says "Missing:", nothing else.

I've found that I get this error on two office computers but it works fine on the other one (they all have Win98se and xl'97). So I compare the >reference dialog boxes. The difference (besides the "Missing:" line) is the one that works at the office and the one at home have a checked box labeled "Microsoft Calendar Control 8.0". I noted that this line is not even available to be checked on the "bad" computers. I have no idea what calendar control is used for. I do use the "Today()" function in my sheet but would that affect it?

Another big thing is that on the "bad" computers I noticed 2 projects called "atpvbaen.xls and funcres". They are not "checked" in >references and I don't know how come they are there.

I'm a bit long-winded, just wanted to help as much as possible,
Thanks again,
David

Display More

Re: de activating the Ctr- break

You will need code similar to this
Key:=Application.EnableCancelKey = xlDisabled
Which disables Ctrl + brk..... BUT you also may need the other codes

eg unload commandbutton and query close routine

Private Sub CommandButton2_Click()
Unload Me
End Sub


Private Sub UserForm_Initialize()
Application.EnableCancelKey = xlDisabled
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
    Cancel = True
    MsgBox "Use the button!"
End If
End Sub

Re: Progress Bars

Yes, remove it if you don't require it and place in the code you need to monitor the progress of.

Re: "Can't find project or library" Error

David
Have you tried unchecking the missing checkbox ?
Also what is the file that is missing ??
You may have inadvertently set a refrence to a file or project that is not required.

Re: Referencing Different Workbook

Quote from mdfrailey

I tried

Private Sub CommandButton2_Click()
Workbooks("C:\Documents and_ settings\mdfrailey\Desktop\test\book1.xls").Open

end Sub

And it still didn't work

Display More

Check your syntax via the Help File

Workbooks.Open "C:\Documents and_ settings\mdfrailey\Desktop\test\book1.xls"

Re: Delete a macro button

Not sure how you are creating your button BUT
You should name it to something distiquishable eg MyButton
Then delete the button by this name eg

Sub CreateButton()
Dim Btn As Object
    
    Set Btn = ActiveSheet.Buttons.Add(109.5, 69, 75.75, 22.5)
    With Btn
        .Name = "MyButton"
        .OnAction = "YourMacroname"
    End With
   


End Sub


Sub DeleteButton()
Dim Btn As Object
    
    ActiveSheet.Shapes("MyButton").Delete


End Sub

Re: password character validation

Quote from Smooth

what do you mean. sorry like i said im not the most compotent person in this field. The code you game me works the same as the one i was previously using. I posted a workbook containing the password i was trying to create.

Sorry again guys (im definately going to take a course in VBA ha)

Thanx

What I mean is Exactly what I said What is your current code that you are using ........ here is what you had amended see if this works .....

Re: password character validation

What is your current Userform Code

Re: password character validation

Try this

Option Explicit


Dim iCounta As Integer


Private Sub cmbValidate_Click()
Dim sPW As String
Dim sMsg As String, sTitle As String, sStyle As String


sPW = "Stock"
sMsg = "You have entered an incorrect Password" _
    & vbNewLine & "Try again" & vbNewLine
sTitle = "Incorrect Password"
sStyle = vbOKOnly + vbExclamation


If iCounta < 3 Then
    If Me.tbxPW.Value <> sPW Then
        MsgBox sMsg & (3 - iCounta) & " goes left", sStyle, sTitle
        With Me
            .tbxPW = vbNullString
            .tbxPW.SetFocus
            iCounta = iCounta + 1
        End With
    Else
        MsgBox "Correct Information Entered.  Please Proceed.", vbOKOnly + vbInformation, "Correct Information Entered."
        Sheet1.Activate
        Unload Me
    End If
ElseIf iCounta > 2 Then
    MsgBox "Password entered incorrectly 3 times. Application will now close" _
    , vbOKOnly + vbExclamation, "Warning"
    ' ActiveWorkbook.Close SaveChanges:=False 'close without saving
End If


End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True
End Sub

Note where the icount is defined ...... @ Module level to keep a static count or to maintain it's variable count.
Also, good idea to set Focu back to the Textbox after entry .....

Re: Exclusivity of an XLS

You could use a VBS eg create in Notepad and save with file extenstion .vbs

'VBS FILE


'Save this code as *ExecuteXL.VBS*


'------------------------------------------------------------------


xl_file_full_path="C:\ExcelFiles\Useful\Sample.xls" 'Change here to your XL full path


set appXL = CreateObject("Excel.Application")


appXL.Workbooks.open(xl_file_full_path)


set appXL=nothing


'-------------------------------------------------------------------

Then just use Windows scheduled task and set it up to run after midnight

Re: Retrieve files from folders with input box

Quote from Angela

Norie,

Thank you for your reply. Where can I get to look at GetOpenFileName method? In Excel Help?
{snip}

Yes, while in the VBA Editor press F1 for help and type in getopenfilename.

Re: Determine OS

OR if you need a more detailed descrip then

http://www.xcelfiles.com/WMI_OS.html

Re: Computer Name, ID

Quote from GrahamB

Afternoon All,

Is there a way of determining the product id (ie the number shown in the Excel / Help / About Microsoft Office Excel) from within Excel VBA? - my desire is to get my VBA code to take a note of it, so if my Excel Application is moved it can tell

TIA

GB

Display More

Hi GB
Your Excel applications product ID is under
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\[VERSION]\Registration\{90110409-6000-11D3-8CFE-0150048383C9}

Look for ProductID
Note: [VERSION] = your version number
eg 11.0 for Excel 2003, 10.0 2002 9.0 2000 etc.

Search the Web or this site for REGISTRY Code..... I have some somewhere BUT no time

Re: Userform Menu creator

Ok, problem fixed ... try now ..........Sorry

Need to use an animated gif on a userform. Easy enough to do via the Webbrowser control.... BUT what if you need to move this file around?
Yes, you have to move the gif image with it.

Here is a way to generate an animated gif from data on your sheet.
[Blocked Image: http://www.xcelfiles.com/wz.JPG]

http://www.xcelfiles.com/AnimatedGif.html

For more webbrowser examples see here.........

http://www.xcelfiles.com/WebBrowserCtrl.html

Need to create a Menu for a userform .... here is one way...

Based along the lines of John Walkenbacks g8 Menumkr, except this is for a Userform.... requires Xl2000+

http://www.xcelfiles.com/API_Userform_MenuMaker.html

[Blocked Image: http://www.xcelfiles.com/APIMnu_TaskM.JPG]

Re: Application.InputBox command fails to work

Will, don't thank me ... it was your post @ The Code net that got me here AND your post which suggested a delay or lag in the input .... then I realised there were queries ......

Re: Application.InputBox command fails to work

Looks like your Queries are not cleaning up and holding the App.

Try changing the update options eg.

Tools > Options > Calculation Tab

REMOVE (uncheck) Update remote references
and possibly (uncheck) Save external link values.

Re: Image control to blanco

mage1.Picture = LoadPicture("")

Re: Executing a file

you need to Shell out using the executable that runs that file

eg

Shell "C:\pathto exercutable\Executable.exe c:\test.autoavs",vbMaximizedFocus