1. Computer problem? Tech Support Guy is completely free -- paid for by advertisers and donations. Click here to join today! If you're new to Tech Support Guy, we highly recommend that you visit our Guide for New Members.

Unable to save or save an Excel files

Discussion in 'Business Applications' started by captkavewon, Mar 20, 2009.

Thread Status:
Not open for further replies.
Advertisement
  1. captkavewon

    captkavewon Thread Starter

    Joined:
    Nov 11, 2008
    Messages:
    28
    Received a few MS Excel files from an outside vendor as e-mail attachment. I am able to save the attachement to My Doc or desktop and then open or open them directly from Outlook 2003 or 2007.

    But when I tried to save the doc with or without making changes, the spreadsheet just sits there and saying Saving at the bottom. I waited several miniutes to be saved, but it just sits there. It does not taking any extra resources. On Application event viewer, it just displayes application hang error.
     
  2. accpro

    accpro

    Joined:
    Mar 20, 2009
    Messages:
    5
    I recommend you repair your office installation. If you dont have the office cd then i recommend downloading openoffice from www.openoffice.org. The 'Calc' application in the OpenOffice suite is the Excel equivelant and that should allow you to save your document.
     
  3. captkavewon

    captkavewon Thread Starter

    Joined:
    Nov 11, 2008
    Messages:
    28
    Already tried on 5 different PCs/laptops with 2 different versions of MS Office products(2003/2007). It is only happnening to spreadsheets from one specific outside vendor.

    We so not isntall openoffice product or non-standard application on work machines.
     
  4. slurpee55

    slurpee55

    Joined:
    Oct 20, 2004
    Messages:
    7,837
    Two things - are they being scanned for malware first, and is there any code in them that might prevent saving?
     
  5. captkavewon

    captkavewon Thread Starter

    Joined:
    Nov 11, 2008
    Messages:
    28
    All the attachments get scanned before it gets to the individuals' mail box.

    Not sure how to check the code on the doc. How would I check the code and what should I look for?
     
  6. slurpee55

    slurpee55

    Joined:
    Oct 20, 2004
    Messages:
    7,837
    Either press Alt+F11 or right-click on a tab and click on View Code.
    If the screen that comes up only says "Option Explicit" on the worksheet and also says that if you go to the object (on the left) called ThisWorkbook and double click on it and as long as there is no folder called Modules off to the left...then there is no code there.
    But if there is a module, or any of the sheets or ThisWorkbook have code, then we have to do something about it.
     
  7. captkavewon

    captkavewon Thread Starter

    Joined:
    Nov 11, 2008
    Messages:
    28
    Thank you. I checked for the code and it did not contain any code. But I checked Modules and there were 4 in there. Two in English and other two seems to me in Spanish. Anyhow, first two (Eng) did not have any code, but the one of the last two has some stuff in it.

    Sub Macro1()
    '
    ' Macro1 Macro
    '
    ' Acceso directo: CTRL+a
    '
    Sheets("Format").Select
    Range("A2:J500").Select
    Selection.ClearContents
    Sheets("Picking").Select
    Range("A22:C500").Select
    Selection.Copy
    Sheets("Format").Select
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Sheets("Picking").Select
    ActiveWindow.ScrollRow = 1
    Range("A5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Format").Select
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Replace What:="Purchase Order:", Replacement:="", LookAt:= _
    xlPart, SearchOrder:=xlByRows, MatchCase:=False

    Range("A1:J500").Select
    ActiveWindow.ScrollRow = 1
    Selection.AutoFilter
    Selection.AutoFilter Field:=4, Criteria1:="Item"
    Range("A5:J500").Select
    Selection.EntireRow.Delete
    Selection.AutoFilter Field:=4, Criteria1:="="
    Range("A2:J500").Select
    Selection.EntireRow.Delete
    Selection.AutoFilter Field:=4
    Range("A4").Select
    Selection.Copy
    Range("A2:A500").Select
    ActiveWindow.ScrollRow = 1
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
    Selection.AutoFilter Field:=4, Criteria1:="="
    Rows("23:500").Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter Field:=4
    Columns("D:D").Select
    Selection.Replace What:="Cartons:", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
    Formula1:="200"
    Selection.FormatConditions(1).Font.ColorIndex = 2
    Range("D2").Select
    Sheets("Picking").Select
    Range("A10:C10").Select
    With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlBottom
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = True
    End With
    Selection.UnMerge
    Range("A10").Select
    Selection.Copy
    Sheets("Format").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    ActiveCell.Replace What:="Store: ", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    'Cells.Find(What:="Store: ", After:=ActiveCell, LookIn:=xlFormulas, _
    ' LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    ' MatchCase:=False, SearchFormat:=False).Activate
    Application.CutCopyMode = False
    Selection.Copy
    Range("B3:B500").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("C2").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A23:B500").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Delete
    Range("D33").Select
    Selection.AutoFilter Field:=1
    End Sub
    Sub Macro2()
    '
    ' Macro2 Macro
    '
    ' Acceso directo: CTRL+b
    '
    Range("C2:C500").Select
    Selection.Replace What:="Pallet License:", Replacement:="", LookAt:= _
    xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Selection.NumberFormat = "0"
    Selection.AutoFilter Field:=5, Criteria1:="="
    Range("A2:J500").Select
    Selection.EntireRow.Delete
    Selection.AutoFilter Field:=5
    Range("A2").Select
    End Sub
     
  8. captkavewon

    captkavewon Thread Starter

    Joined:
    Nov 11, 2008
    Messages:
    28
    Okay, the spreadsheets have 2 macros. Tried both enabling and disabling the macros, but no luck. BTW I am not MS Office guru and need help from MS Office experts.
     
  9. slurpee55

    slurpee55

    Joined:
    Oct 20, 2004
    Messages:
    7,837
    I can look for a coding guru, but it doesn't appear that these have anything to do with your not being able to save....
     
  10. captkavewon

    captkavewon Thread Starter

    Joined:
    Nov 11, 2008
    Messages:
    28
    I tried one more thing. I tried to delete the macro and the delete option was greyed out.

    The original author (outside vendor)of the spread sheet is also having trouble saving the doc.
     
  11. Zack Barresse

    Zack Barresse

    Joined:
    Jul 25, 2004
    Messages:
    5,452
    Nope, doesn't look like the files, well, the code anyway. They aren't of concern. The only module of concern is the ThisWorkbook module. Do you have any COM add-ins installed? If you don't know how to check, Customize the toolbar and you'll have to add it manually (under the Tools of the listbox in command bars tab of the customize window I believe, version 2003).

    Things I would try:

    Try saving the files from the email prior to opening (i.e. right click, Save As...).

    Opening Excel in safe mode (i.e. excel.exe /s in the command prompt), trying that way

    Disabling all add-ins, then trying.

    You say this does not happen on other pc's, or it does with those files? If you fwd'd to another person, do they see the same thing?

    In 2007, if you click the Office button, then Excel Options, then Add-Ins on the left, what is listed as far as installed add-ins?
     
  12. captkavewon

    captkavewon Thread Starter

    Joined:
    Nov 11, 2008
    Messages:
    28
    Another piece of information about the excel file. The user just informed me that while she was working on the spreadsheet, her machine locked and perfrormed cold boot.

    The user beleives after the cold boot, the problem with the spreadsheet occured. Does this make sense?
     
  13. captkavewon

    captkavewon Thread Starter

    Joined:
    Nov 11, 2008
    Messages:
    28
    Zack,

    Try saving the files from the email prior to opening.
    -This works, but when you try to save or *save as* after the opening up the file, it locks up.

    Opening Excel in safe mode
    - Still locks up when you try to save or *save as* the file.
     
  14. xstext

    xstext

    Joined:
    Mar 19, 2009
    Messages:
    47
    If your just trying to save the file, do the following:

    Select all tabs in the workbook.
    Edit / Move or Copy Sheet...
    Select "Create a Copy"
    At "To Book:" choose "(new book")

    This should give you a clean file to work with - unless there is something corrupting the worksheets themselves.
    Regardless, it's worth a try.
     
  15. slurpee55

    slurpee55

    Joined:
    Oct 20, 2004
    Messages:
    7,837
    Is there any code in the file? It is possible to disable, say, the Save As option and there could be something that is buggy and causing this to freeze.
    If the data is not confidential, you could try uploading it - first make sure it is free of viruses and such, though!
     
  16. Sponsor

As Seen On
As Seen On...

Welcome to Tech Support Guy!

Are you looking for the solution to your computer problem? Join our site today to ask your question. This site is completely free -- paid for by advertisers and donations.

If you're not already familiar with forums, watch our Welcome Guide to get started.

Join over 733,556 other people just like you!

Loading...
Thread Status:
Not open for further replies.

Short URL to this thread: https://techguy.org/811017

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice