Macro to hide cells

[abutler1986]

Hi All,

My VB coding lets me down every time so I hoping someone can help me again.

I have some cells I need to be hidden / shown based on a macro button which also needs to be password protected.

The cells I need hidden are B27:E27 then "L10:R10 - L17:E17"

It is just in one worksheet.

Any additional information needed please let me know.

Andrew

 

[Claus8528]

What do you mean by hiding cells?

Do you want to hide the columns B:E

The cells I need hidden are B27:E27

And the columns L:R and the rows 10:17?

then "L10:R10 - L17:E17"

As far as I know it's not possible to hide cells. Only columns/rows and formulas inside cells.

This code will hide/show the columns and rows given a password:

Sub click_button()
Dim key As String
Do Until key = "your password"
    key = InputBox(Prompt:="Enter password", Title:="Enter password", Default:="Type here")
    If key = vbNullString Then
        Exit Sub
    Else: End If
Loop


With ActiveSheet
    If .Columns("B:E").Hidden = True And Columns("L:R").Hidden = True And .Rows("10:17").Hidden = True Then
        .Columns("B:E").Hidden = False
        .Columns("L:R").Hidden = False
        .Rows("10:17").Hidden = False
    Else
        .Columns("B:E").Hidden = True
        .Columns("L:R").Hidden = True
        .Rows("10:17").Hidden = True
    End If
End With


End Sub

 

[abutler1986]

Thanks for the information, I have decided to create a different tab but the information you provided will certainly help me in future projects so for that I am grateful

Regards,

Andrew