Macro with a Password protection

[HotNumbers2001]

First I would like to thank those who have helped me in the Past. All of you have been wonderful, specially on my more challenging questions. Well I hope my next questions is not that difficult.

I need to HIDE with a PASSWORD Protection Rows with certain types of information, Here is what I have.

I have rows tagged with either H/C, Cost, or CAHC. I need to Hide all ROW the have COST, But At the same time I need H/C and CAHC be available for editing. The reason why I need this done is, because this file Will be shared with a group of people, some people can see the Cost row and some can’t. I am the only one that can see the cost row.

This is what the workbook looks like.

H/C
Cost
CAHC
H/C
Cost
CAHC
H/C
Cost
CAHC

Also is it possible to hide Sheets with a Password Protection?

 

[Joe Was]

Sub MyHide()
'This "Hides" any Row in Column(A) that = "Cost" in rows 1 to 10.
'By J.S. Was, 6-12-2001.
'Place code in a standard module.
Dim i
For i = 1 To 10
With Intersect(Columns(1), ActiveSheet.UsedRange)
Rows(i).Select
If .Rows(i).Value = "Cost" Then
Selection.EntireRow.Hidden = True
End If
End With
Next
End Sub

Hope this helps. JSW

 

[HotNumbers2001]

thanks for the code.
I am trying it now. I will let you know.

 

[HotNumbers2001]

thanks for the code.
I am trying it now. I will let you know.