I have VBA code that locks my workbook when closed if someone unlocks a sheet:
Sub Protect_Workbook() Dim wSheet As Worksheet For Each wSheet In Worksheets wSheet.AllowFormattingCells = True wSheet.Protect Password:="Password" Next wSheet End Sub
I found code that will stop someone from clicking save button but the only way I know to get it to work is to place it in ThisWorkBook module by itself. I'm trying to get both codes to work. Can I put them in together somehow? I tested doing that to no avail. Here's the other bit of code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Not SaveAsUI Then Cancel = True MsgBox "You cannot save this workbook. Use Save As if this is not a blank", vbInformation, "MJM" End If End Sub
FYI, I've created workbooks for employee"s. They all have "blank" copies. When they fill them out I have buttons for them to save their work that re-names the blank rather than overwriting it, however, its second nature to just click the "save" button. If they do, they've lost their "blank" so I love this idea which will make them pause and not do it. Occasionally, they also unlock their workbook blanks and the other command ensures its re-locked when they close it so they dont accidentally screw up any formulas next time they open it.
Thanks for any help!