beforeclose, saving the workbook

[choubix]

hello again,

in the Beforeclose event handler I have this:

[vba]
Dim Wk As Workbook
Set Wk = Workbooks("02 Output.xls")
If Wk.ReadOnly = False Then
Call Save_msg
End If
[/vba]
then the sub Save_msg is shows up a message box: if the user decides to save the workbook I am calling the sub: Save_wb

[vba]

Dim Wk As Workbook
Set Wk = Workbooks("02 Output.xls")
Application.DisplayAlerts = False
Wk.SaveAs Filename:="P:/Product Monitors/Backup/02 Output.xls"
Call Backup_msg
[/vba]

the thing is: even though I have R/Write privileges Excel returns an errors saying that the file is write protected... any idea why? (i can use a Ctrl + S to save though without any problem)

any idea on what's going wrong ??

thanks for your help!

[Simon Lloyd]

For a start you have the file switch set wrong!
[VBA]
Dim Wk As Workbook
Set Wk = Workbooks("02 Output.xls")
Application.DisplayAlerts = False
Wk.SaveAs Filename:="P:/Product Monitors/Backup/02 Output.xls"
Call Backup_msg
[/VBA]should look like:
[VBA]
Dim Wk As Workbook
Set Wk = Workbooks("02 Output.xls")
Application.DisplayAlerts = False
Wk.SaveAs Filename:="P:\Product Monitors\Backup\02 Output.xls"
Call Backup_msg
[/VBA]