Lock worksheet cell

kobus1305 

With the permission of all involved, I would like to add these examples as a very good suggestion from Mr. Hans Vogelaar.

Sheet protection macro without password

The following macros are used to set and remove sheet protection for Sheet1 without a password.

Sub sheet protection_on ()

    Sheets ("Table1"). Protect

End Sub

Sub sheet protection off ()

    Sheets ("Table1"). Unprotect

End Sub

--------------------------------------------------

Macro for sheet protection with password

The sheet protection can also be set with a password. In the following example, the password is "myPassword".

Sub Blattschutz_on_with_Passwort ()

    Sheets ("Table1"). Protect Password: = "myPassword"

End Sub

Sub Sheetprotect_off_with_Passwort ()

    Sheets ("Table1"). Unprotect Password: = "myPassword"

End Sub

------------------------------------------------------

Sheet protection for all tables in the workbook

A for loop is used to activate or deactivate sheet protection for all tables in a workbook. The following example uses sheet protection without a password.

Sub Sheetprotect_on_all_Sheets ()

    For Each sheet In ActiveWorkbook.Worksheets

        sheet.Protect

    Next sheet

End Sub

Sub Sheetprotect_off_all_Sheets ()

    For Each sheet In ActiveWorkbook.Worksheets

        sheet.Unprotect

    Next sheet

End Sub

---------------------------------------------------

Thank you for your understanding and patience

Wish all a nice day.

Nikolino

I know I don't know anything (Socrates)