Forum Discussion
Lock icon on protected sheet
Good morning, I imagine that for an update now appears the icon of a padlock next to the name of the sheets in those that are protected, is there any way that it does not appear?. Thanks a lot.
Private Sub CommandButton1_Click() ActiveWorkbook.ActiveSheet.Unprotect ("1234") ActiveSheet.Range("E14, E15, E16, E17, E18,").Cells.Locked = True ActiveSheet.Shapes("Textfeld 7").Visible = True ActiveSheet.Shapes("Grafik 8").Visible = True Else ActiveSheet.Shapes("Grafik 8").Visible = False ActiveSheet.Shapes("Textfeld 7").Visible = False ActiveSheet.Range("E14, E15, E16, E17, E18 ").Cells.Locked = False End If ActiveWorkbook.ActiveSheet.Protect ("1234") End Sub maybe its helps 🙂