how can i protect a single worksheet within a workbook

[3bbas]

hello all

i'm working in a college and i make the ongoing assessments, and within each assessment workbook i put extra worksheet as copyright for my work.
but the problem i found that some guys deleting this sheet and replace another one with own names!!

i tried to protect the sheet by using (protect sheet) but the problem still the same, they can't change anything but they can delete it
i tried to protect the workbook by using (protect workbook), but it protect the whole file!

can i protect only one single worksheet?

[gmr4evr1]

Did you try adding a password when you protect the worksheet? If not try

ActiveSheet.Protect Password:="Password",

and to unprotect

ActiveSheet.UnProtect Password:="Password",

Changing "Password" to a password of your choice

[john55]

maybe this

With ThisWorkbook
   .Protect Structure:=True, Windows:=False, Password:=123
   End With

[gmr4evr1]

Thanks again John, I just noticed that my code is for the active worksheet only.

[john55]

hi gmr4evr1, you're welcome!

[3bbas]

i'm so sorry guys, i did not get your point!

how can i do that?

[john55]

see this and try to add the code
THISWORKBOOK.png

[3bbas]

i tried it, it does not work

the thing is that i want the feature of (protect workbook) and apply it to one single sheet, where (protect workbook) prevent the editing, deleting of the sheet.

thank you anyway for your help
i really appreciate your support

[john55]

*keep in mind, if they wanna delete yr sheet/rename the file they will do!
one way: you can try to prevent the saving if the sheet does not exist

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'author Colo
Dim sh As Worksheet, flg As Boolean
For Each sh In Worksheets
If sh.Name Like "Sheet3*" Then flg = True: Exit For
Next
If flg = True Then
'MsgBox "Found!"
Else
SaveAsUI = False
Cancel = True
End If
End Sub

[3bbas]

that's brilliant one, thank you so much john55.

[john55]

thank you for the feedback!
if you are happy with the solution provided, please mark the thread as "solved". thx!