Lock icon on protected sheet

%3CLINGO-SUB%20id%3D%22lingo-sub-1516838%22%20slang%3D%22es-ES%22%3ELock%20icon%20on%20protected%20sheet%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1516838%22%20slang%3D%22es-ES%22%3E%3CP%3EGood%20morning%2C%3C%2FP%3E%3CP%3EI%20imagine%20that%20for%20an%20update%20now%20appears%20the%20icon%20of%20a%20padlock%20next%20to%20the%20name%20of%20the%20sheets%20in%20those%20that%20are%20protected%2C%20is%20there%20any%20way%20that%20it%20does%20not%20appear%3F.%20Thanks%20to%20lot.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1516838%22%20slang%3D%22es-ES%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1516887%22%20slang%3D%22de-DE%22%3ERE%3A%20Lock%20icon%20on%20protected%20sheet%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1516887%22%20slang%3D%22de-DE%22%3EPrivate%20Sub%20CommandButton1_Click()%20ActiveWorkbook.ActiveSheet.Unprotect%20(%221234%22)%20ActiveSheet.Range(%22E14%2C%20E15%2C%20E16%2C%20E17%2C%20E18%2C%22).%20Cells.Locked%20%3D%20True%20ActiveSheet.Shapes(%22Text%20Box%207%22).%20Visible%20%3D%20True%20ActiveSheet.Shapes(%22Graphic%208%22).%20Visible%20%3D%20True%20Else%20ActiveSheet.Shapes(%22Graphic%208%22).%20Visible%20%3D%20False%20ActiveSheet.Shapes(%22Text%20Box%207%22).%20Visible%20%3D%20False%20ActiveSheet.Range(%22E14%2C%20E15%2C%20E16%2C%20E17%2C%20E18%20%22).%20Cells.Locked%20%3D%20False%20End%20If%20ActiveWorkbook.ActiveSheet.Protect%20(%221234%22)%20End%20Sub%20maybe%20its%20helps%20%3CLI-EMOJI%20id%3D%22lia_slightly-smiling-face%22%20title%3D%22%3Aslightly_smiling_face%3A%22%3E%3C%2FLI-EMOJI%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1517192%22%20slang%3D%22en-US%22%3ERe%3A%20Lock%20icon%20on%20protected%20sheet%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1517192%22%20slang%3D%22en-US%22%3EThe%20padlock%20icon%20visible%20after%20protecting%20sheet%20is%20a%20new%20feature%20that's%20available%20in%20Microsoft%20365%20Beta%20and%20I%20think%2C%20Current%20Channel...%3CBR%20%2F%3E%3CBR%20%2F%3EThough%2C%20you%20may%20have%20your%20reason%20why%20you%20don't%20want%20it.%20For%20me%2C%20I%20think%20I%20doesn't%20matter%20%3CBR%20%2F%3E%3CBR%20%2F%3ECheers%3C%2FLINGO-BODY%3E
Highlighted
Visitor

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.

2 Replies
Highlighted
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
Highlighted
The padlock icon visible after protecting sheet is a new feature that's available in Microsoft 365 Beta and I think, Current Channel...

Though, you may have your reason why you don't want it. For me, I think I doesn't matter

Cheers