Recent content by IvanMoala

Hi jpinto1167 Check out this Addin ?? May help http://www.xcelfiles.com/DocProp.html What this does is gets the Microsoft office Doc. properties {You'll need to select File type "*") It will tell you if it is NOT a MSO Doc other wise it will load in the File details .... one of which is the...

You may have Application.Screenupdating Set to False OR Inadvertently tried to select/Activate a hidden sheet Ivan F Moala http://www.xcelfiles.com

If you just need to map a network drive then Here is one of many ways...... Sub Tester() Dim WshNetwork As Object Set WshNetwork = CreateObject("WScript.Network") WshNetwork.MapNetworkDrive "H:", "\\Server\Public" Set WshNetwork = Nothing End Sub If you want to see the Dialog then...

This is indeed a loss. Best of luck for future. Take care. Ivan F Moala http://www.xcelfiles.com

Here is a Non API method to do this Option Explicit Private mblnMouseDown As Boolean Private msngX As Single Private msngY As Single Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 2 Then mblnMouseDown =...

Yes, use PHV's code for std browsing. It is only when you need to get a little more control and ensure no Errors that you will need to look @ the CLSID const. Ivan F Moala http://www.xcelfiles.com

Sorry .... missed the const Thanks Tony Ivan F Moala http://www.xcelfiles.com

If you just need to browse for a Folder and NOT files then try this....... '// Minimum DLL version shell32.dll version 4.71 or later '// Minimum operating systems Windows 2000, Windows NT 4.0 with Internet Explorer 4.0, '// Windows 98, Windows 95 with Internet Explorer 4.0 '// objFolder =...

If you use a version < 2002 then you will need to resort to API's to do this. Ivan F Moala http://www.xcelfiles.com

No there isn't a Property of the Userform. There is however one for all Windows. To do this you need API's. Note. If you remove this you cannot move or close the form. Thats because this area houses the menus. The following code requires a Checkbox and is just an Example .... it includes code...

Or just use native Excel commands Sub FileSize() Dim strFileSize As String On Error GoTo NoGo strFileSize = FileLen(ActiveWorkbook.FullName) / 1024 MsgBox ActiveWorkbook.Name & " is " & Format(strFileSize, "#,#00") & " KBytes" & vbLf & _ "It has been saved as " &...

Have a look here ..... http://www.xcelfiles.com/VBA_Quick13.html You will see the code to disable this .... Ivan F Moala http://www.xcelfiles.com

something like this ... Option Explicit Public Declare Function ShowWindow _ Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long) _ As Long Public Declare Function SetForegroundWindow _ Lib "user32" ( _ ByVal hwnd As Long) _ As Long Public Const SW_MAXIMIZE As...

You can do this via API calls and sendkeys BUT you need to be using XL2000+ due to Addressof operator Have a look here http://www.xcelfiles.com/API_02.html Option Explicit Declare Function SetTimer Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As...

Your need to Step through your code in the userform. Or post here what code you have running in your Userform intialize Ivan F Moala http://www.xcelfiles.com