Hello,
I want to make the below code to work globaly for all sheets .
I can manage to do it for just the activesheet but not globaly. When I press the macro button asks for password if correct unhide at all sheets column E if not stay hidden or hide it.
Can be also made super hidden? Cannot someone play with width etc
Code
Sub pasw_inputbox()
Dim mypassword
Dim xAddress As String
xAddress = "E:E"
Application.ActiveSheet.Columns(xAddress).Hidden = True
tryagain:
mypassword = InputBox("Enter Password", "Password")
If mypassword = "makis" Then
Application.ActiveSheet.Columns(xAddress).Hidden = False
MsgBox ("Correct")
Else
If MsgBox("Password incorrect, try again?", vbYesNo, "Wrong password") = vbYes Then
GoTo tryagain
Application.ActiveSheet.Columns(xAddress).Hidden = True
End If
End If
End Sub
Display More
Thank you!