[Noob] Is it possible to protect the Re-open function?

%3CLINGO-SUB%20id%3D%22lingo-sub-1546643%22%20slang%3D%22en-US%22%3E%5BNoob%5D%20Is%20it%20possible%20to%20protect%20the%20Re-open%20function%3F%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1546643%22%20slang%3D%22en-US%22%3E%3CP%3EWhen%20I%20try%20to%20protect%20a%20table%20with%20a%20password%2C%20I%20can't%20impede%20the%20user%20to%20re-open%20hidden%20columns.%20How%20do%20I%20block%20the%20Re-open%20function%3F%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1546643%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Occasional Visitor

When I try to protect a table with a password, I can't impede the user to re-open hidden columns. How do I block the Re-open function?

1 Reply

First Read this Link:
https://support.microsoft.com/en-gb/office/lock-or-unlock-specific-areas-of-a-protected-worksheet-75...

Then read this Link:
https://support.microsoft.com/en-gb/office/protect-an-excel-file-7359d4ae-7213-4ac2-b058-f75e9311b59...

or if you like with a VBA solution, after you lock desired cells

Private Sub Worksheet_Activate()
Dim strPassword As String
strPassword = InputBox("Give you Passwort:")

On Error GoTo Falsch
Me.Unprotect strPassword
Me.Protect strPassword
On Error GoTo 0
Exit Sub
Falsch:
MsgBox "Wrong Passwort"
Worksheets("Name it").Activate
End Sub

If you have after that a question, will be happy to answer/help.