Force Worksheet to be Protected before saving

[philipgabe]

I would like a macro that forces a worksheet to be protected before it can be saved. Does anyone have such a macro?

 

[marreco]

Good night!


i have an example that might help you.

Dim senha As String

senha = TextBox1.Value

Select Case senha

Case "123"
ActiveWorkbook.Unprotect ("123")
Sheets("Plan1").Visible = True
.
.
.
Case "456"
ActiveWorkbook.Unprotect ("123")
Sheets("Plan4").Visible = True
.
.
.

End Select

Att..

 

[Peter_SSs]

I would like a macro that forces a worksheet to be protected before it can be saved. Does anyone have such a macro?

Welcome to the MrExcel board!

It is the workbook that is saved. Worksheets are just what makes up the workbook. Perhaps you only have one worksheet in your workbook?

In any case, try something like this in a copy of your workbook. The code needs to go in the 'ThisWorkbook' module. Post back if you need more help.

Change the sheet name and password to suit or you can remove the password part completely.

<font face=Courier New><br><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_BeforeSave(<SPAN style="color:#00007F">ByVal</SPAN> SaveAsUI <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN>, Cancel As <SPAN style="color:#00007F">Boolean</SPAN>)<br>    Sheets("Sheet2").Protect Password:="abc"<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br><br></FONT>

 

[philipgabe]

Yes, Peter. That was exactly what I needed. Thanks!

 

[Peter_SSs]

Glad to help, thanks for the feedback.