J
J.W. Aldridge
Code below works fine, but need to re-instate password after changes
are made.
Sub SwitchView_n_protect2()
ActiveSheet.Unprotect Password:="jeremy"
With ActiveSheet.Range("f:f,g:g").EntireColumn
.Hidden = Not .Hidden
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
are made.
Sub SwitchView_n_protect2()
ActiveSheet.Unprotect Password:="jeremy"
With ActiveSheet.Range("f:f,g:g").EntireColumn
.Hidden = Not .Hidden
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True