Lotus 123 reservation

[LarryJDe]

I have a Lotus 123 spreadsheet on a Windows network. Many different people use this sheet for doing finance calculations. When they are done using the spreadsheet, they click on a macro that resets all the changeable cells to a preset value , and then exits the program. If someone is using that file when another person tries to use it, they get the message that it's a "read only" file. I would like everyone to be able to use this sheet without those messages coming up. I'm guessing it has something to do with the reservation and or the macro. Following is a copy of the macro that exits the program.

Sub Click(Source As Buttoncontrol)
.Activate
[A:C2].Select
Selection.Contents = "0"
[A:C3].Select
Selection.Contents = "0"
[A:C4].Select
Selection.Contents = "0"
[A:C7].Select
Selection.Contents = "0"
[A:C8].Select
Selection.Contents = "0"
[A:C9].Select
Selection.Contents = "0"
[A:C10].Select
Selection.Contents = "6"
[A:C11].Select
Selection.Contents = "60"
[A:F3].Select
Selection.Contents = "0"
[A:F5].Select
Selection.Contents = "14"
[A:F7].Select
Selection.Contents = "S"
[A:F9].Select
Selection.Contents = "6.5"
[A:C2].Select
.Save
CurrentApplication.Quit
End Sub

 

[crazybird]

If your file is a true utility and no data is being preserved with each access, then have the opened event change the file name upon opening the file. Here is a macro version. A script should be similar:

\0 {FOR x;1;9999;1;testFname}
{FILE-SAVE fName}

x 112
fName file0112.wk4

testFname {LET fName;+"file"&@right(+"000"&@string(x;0);4)&".wk4"}
{IF 1-@isfile(fName;1)}{FORBREAK}


Of course, periodically you'll have to clean up all of the extra files.