VBA not working when sheet locked

[Russk68]

Hi All,

The (Incomplete) code below hides rows based on a value of GF3 and works great until I password protect the sheet. How can I get this to work when the sheet is PW protected? I assume the code would have to unlock/lock the sheet each time the macro is ran?


If Target.Count = 1 Then
If Range("GF3").Value < "3" Then
Rows("13:52").EntireRow.Hidden = True
ElseIf Range("GF3").Value = "6" Then
Rows("13:52").EntireRow.Hidden = False
End If
End If
End If
If Not Intersect(Target, Range("F1")) Is Nothing Then 'Distro#1x24
If Target.Count = 1 Then
If Range("GF3").Value < "4" Then
Rows("21:52").EntireRow.Hidden = True
End If
End If
End If
If Not Intersect(Target, Range("F1")) Is Nothing Then 'Distro#1x48
If Target.Count = 1 Then
If Range("GF3").Value < "5" Then
Rows("37:52").EntireRow.Hidden = True
End If End If
End If
If Not Intersect(Target, Range("F1")) Is Nothing Then 'Distro#1x60
If Target.Count = 1 Then
If Range("GF3").Value < "6" Then
Rows("45:52").EntireRow.Hidden = True
End If
End If
End If

Thank you!
Russ

 

[DanteAmor]

Try this. Change "abc" by the desired password

[COLOR=#0000ff]activesheet.unprotect "abc"[/COLOR]

[COLOR=#333333]If Target.Count = 1 Then[/COLOR]
[COLOR=#333333]If Range("GF3").Value < "3" Then[/COLOR]
[COLOR=#333333]Rows("13:52").EntireRow.Hidden = True[/COLOR]
[COLOR=#333333]ElseIf Range("GF3").Value = "6" Then[/COLOR]
[COLOR=#333333]Rows("13:52").EntireRow.Hidden = False[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]If Not Intersect(Target, Range("F1")) Is Nothing Then 'Distro#1x24[/COLOR]
[COLOR=#333333]If Target.Count = 1 Then[/COLOR]
[COLOR=#333333]If Range("GF3").Value < "4" Then[/COLOR]
[COLOR=#333333]Rows("21:52").EntireRow.Hidden = True[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]If Not Intersect(Target, Range("F1")) Is Nothing Then 'Distro#1x48[/COLOR]
[COLOR=#333333]If Target.Count = 1 Then[/COLOR]
[COLOR=#333333]If Range("GF3").Value < "5" Then[/COLOR]
[COLOR=#333333]Rows("37:52").EntireRow.Hidden = True[/COLOR]
[COLOR=#333333]End If End If[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]If Not Intersect(Target, Range("F1")) Is Nothing Then 'Distro#1x60[/COLOR]
[COLOR=#333333]If Target.Count = 1 Then[/COLOR]
[COLOR=#333333]If Range("GF3").Value < "6" Then[/COLOR]
[COLOR=#333333]Rows("45:52").EntireRow.Hidden = True[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]End If

[/COLOR][COLOR=#0000ff]activesheet.protect "abc"[/COLOR]

 

[Russk68]

Hey Dante
This is actually your original code.
Thanks for your help again!
Works great!

 

[DanteAmor]

It's pleasure and thanks for the feedback