Make spreadsheet with only rows and columns, everything else hidden and locked and make only Save As (Ctrl+s) available

[CasperA]

Is it possible to create a spreadsheet with only the rows and columns visible, all else hidden and locked, and to make only the Save As option available?

Thank you in advance,

CA

 

[SpillerBD]

No. And from what I read breaking Excel "locks" isn't hard for the resourceful-determined.
Sounds more like you want a PDF, XPS or HTML copy of the worksheet.

 

[jim may]

The last part of your request....

Place the below code into the "ThisWorkbook" module of your workbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then MsgBox "You are not allowed to use SaveAs, only the Save Command."
Cancel = SaveAsUI
End Sub

As regards the first part of your request...

You could Protect the Sheet..

 

[CasperA]

No. And from what I read breaking Excel "locks" isn't hard for the resourceful-determined.
Sounds more like you want a PDF, XPS or HTML copy of the worksheet.

Thanks for the input. I would like a user of the spreadsheet to be able to enter data in the cells, but not change anything else to the spreadsheet, except save it. The suggestion below to protect the spreadsheet might be useful.

 

[CasperA]

The last part of your request....

Place the below code into the "ThisWorkbook" module of your workbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then MsgBox "You are not allowed to use SaveAs, only the Save Command."
Cancel = SaveAsUI
End Sub

As regards the first part of your request...

You could Protect the Sheet..

Thank you Jim for the suggestion to protect the worksheet. In your code I would like to swap Save and Save As (the user should be able to Save As, not to Save). I assume I can replace Save by SaveAs and SaveAs by Save in the code.

 

[jim may]

Replace with:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then MsgBox "You are not allowed to use Save, only the SaveAs Command."
Cancel = Not SaveAsUI
End Sub

 

[CasperA]

Replace with:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then MsgBox "You are not allowed to use Save, only the SaveAs Command."
Cancel = Not SaveAsUI
End Sub

Thank you very much!

CA