ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Write-Reserve problem... (https://www.excelbanter.com/excel-programming/301773-write-reserve-problem.html)

RPIJG[_55_]

Write-Reserve problem...
 
I'm trying to overwrite a template file so that some things are change
and others are not. The template loads, values are entered, then whe
you press a userform command button, the file is saved as a .xls the
the cell contents are removed, then the file should be saved as
template, overwriting the template that is there (so some value
remain). I have it doing everything it's supposed to but it keep
saying that the template is write-reserved, but it shouldn't be, ho
can I change this so that it works? Heres a piece of the code tha
seems to be causing the snag, but I think the problem is really wit
the template, I can manually do a save as, but I want this to b
programmatic.

Code
-------------------
Worksheets("Quote").Range("Q9").ClearContents
sPath = "C:\SyntheticShield\"
ActiveWorkbook.SaveAs Filename:=sPath & "SyntheticShieldQuoteMaker.xlt", FileFormat:=xlTemplate
ActiveWorkbook.Close Fals
-------------------


--
Message posted from http://www.ExcelForum.com


RPIJG[_56_]

Write-Reserve problem...
 
anybody

--
Message posted from http://www.ExcelForum.com


gitcypher[_10_]

Write-Reserve problem...
 
I believe Write-Reserved refers to the file being password protected s
that if it is opened without supplying the password, it is read onl
(reserved from writing). If you have a password set on the file, tr
adding this parameter when calling the SaveAs method...

WriteResPassword:= *yourpassword*

-Gitcyphe

--
Message posted from http://www.ExcelForum.com


RPIJG[_57_]

Write-Reserve problem...
 
I tried this and it is still giving me the error...


Code
-------------------
Worksheets("Quote").Range("Q9").ClearContents
ActiveWorkbook.SaveAs Filename:= _
"C:\SyntheticShield\SyntheticShieldQuoteMaker.xlt" , FileFormat:=xlTemplate, _
Password:="", WriteResPassword:="Amsoil", ReadOnlyRecommended:=False, _
CreateBackup:=Fals
-------------------


It isn't working now at all, and frankly this is more than irritating
I can save as perfectly fine by doing it manually, but programmaticall
it won't overwrite the template file, what's the difference

--
Message posted from http://www.ExcelForum.com


langerer

Write-Reserve problem...
 

Hmm, can't help but I'm having the same problem. I need to save a fil
in 4 different directories, all password protected (same password
times). I can do this fine with a manual saveas, but not through code
I keep getting the write reserved error.

Someone must know how to do this!

--
langere
-----------------------------------------------------------------------
langerer's Profile: http://www.msusenet.com/member.php?userid=279
View this thread: http://www.msusenet.com/t-51196


langerer[_2_]

Write-Reserve problem...
 

If you run this piece of code first you should be OK. It checks to se
if the file already exists, and if so opens it, saves it withou
password protection, closes it then deletes it.

Not very elegant, but gets the job done.

If Len(Dir("filename")) 0 Then
Workbooks.Open "filename", writerespassword:="password"
ActiveWorkbook.SaveAs "filename", writerespassword:=""
ActiveWorkbook.Close
Kill "filename"
End I

--
langere
-----------------------------------------------------------------------
langerer's Profile: http://www.msusenet.com/member.php?userid=279
View this thread: http://www.msusenet.com/t-51196



All times are GMT +1. The time now is 01:10 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com