I think you can combine Bob's code with your own, like this:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim sht As Excel.Worksheet

For Each sht In Excel.Worksheets
If sht.ProtectContents = False Then
MsgBox ("ATTENTION STAFF - MAKE SURE TO PROTECT ALL WORKSHEETS
PRIOR TO CLOSING THE FILE")
Cancel = True
Exit Sub
End If
Next sht

With Me
If .ReadOnly Then
.SaveAs .Worksheets(1).Range("A1").Value
End If
End With

End Sub


This will cancel the Close until all the sheets are protected, else
pull the filename from Sheet1.A1.

--JP


On Sep 22, 1:41*pm, Zee wrote:
Hi Bob

I already have the following code written down for a "Before Close" action
and it will not let me add it to it. *

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sht As Worksheet
* * For Each sht In Sheets
* * * sht.Select
* * *If ActiveSheet.ProtectContents = False Then
* * MsgBox (" ATTENTION *STAFF - MAKE SURE TO PROTECT ALL WORKSHEETS PRIOR
TO CLOSING THE FILE")

* * *End If
* * Next sht
End Sub

THANKS AGAIN FOR YOUR PATIENCE AS I AM STILL VERY NEW TO THIS.



"Bob Phillips" wrote:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

* * With Me

* * * * If .ReadOnly Then

* * * * * * .SaveAs .Worksheets(1).Range("A1").Value
* * * * End If
* * End With
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code

--
__________________________________
HTH

Bob

"Zee" wrote in message
...
Is there anyway to force a read-only file to be saved when closed, the
filename would be a specific cell in the workbook.

Thank you- Hide quoted text -

- Show quoted text -