How do I save Open Office Spreadsheets?

Posted on 2009-12-20
Medium Priority
Last Modified: 2012-06-27
I have several spreadsheets that were created in MS Excel 2003.   I had them marked as read only.   When I used MS Excel to open these files, I was able to make changes to the cells then print the sheet.   I did not want to save the changes.   Now when I open these files with Open Office, I cannot make changes as the file is read only.   How can I make these changes without allowing the changes to be saved, but just print the changed sheet?   I do not want to use MS Excel any more.
Question by:DoctorK12008

Expert Comment

ID: 26091433
It is important

Expert Comment

ID: 26091526
Save As instead of saving or overwriting the file.

Expert Comment

by:sir plus
ID: 26091600
i would convert to template and use Workbook_BeforeSave event  to prevent it being saved if you really dont want it saved  though it wont matter as they cant edit the template as it will be save only
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!


Author Comment

ID: 26091723
I do not know what is meant by "use Workbook_BeforeSave event".   Please explain.   Thank you.  

Accepted Solution

sir plus earned 2000 total points
ID: 26093304
I can only do this in excel but once you save the file as a template with the code then you can use it in open office

I dont think you will need to bother with read only

in Excel
Hit alt F11
First add protection to the project
Right click on the vba project for your workbook in the left pane
Properties | Protection | Lock for viewing
put in a password if you want & write it down
(I havent locked the one I am putting up)

Next add the code
Expand the project by clicking on the "+" just to the left of the project
Expand Microsoft excel objects
Double click "ThisWorkbook" module
In the left dropdown of the right pane
choose "Workbook"
Replace everything in the right pane with the code below

Edit the MyDevelopmentFolder  (path) to point to the folder where you are going to store the workbook when you are going to edit & save it yourself.

Save the file as a template
Due the the upload system on this site not accepting xlt files (2003)
I had to upload my example as an xls but once yuo save it to your hdd then just edit the file name from "Cannot Be Saved.xls" to "Cannot Be Saved.xlt"
ie. rename to change to a template
excel 2007 has different extensions use xltm
sing out if you get stuck

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Const MyDevelopmentFolder = "C:\# Expert2Expert Projects"
If ThisWorkbook.Path <> MyDevelopmentFolder Then Cancel = True
End Sub

Open in new window


Expert Comment

by:sir plus
ID: 26126825
Thanks & cheers

Featured Post


Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this post, I will showcase the steps for how to create groups in Office 365. Office 365 groups allow for ease of flexibility and collaboration between staff members.
In a use case, a user needs to close an opened report by simply pressing the Escape (Esc) key. This can be done by adding macro code in Report_KeyPress or Report_KeyDown event.
Learn how to make your own table of contents in Microsoft Word using paragraph styles and the automatic table of contents tool. We'll be using the paragraph styles in Word’s Home toolbar to help you create a table of contents. Type out your initial …
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

621 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question