آشكار سازي خودكا ررديف

[razeghi]

با سلام
آيا امكان آشكار شدن يك رديف در صورت داشتن مقداري خاص در يكي از سلولهاي همان رديف وجوددارد
مثلا ما تمام رديفهاي يك شيت را مخفي كنيم ( شيت با شيتهاي ديگر در ارتباط است) . در صورتي كه يكي از سلولهاي رديف مثلاA5 داراي مقدار خاص شد آن رديف نيز نمايان شود
سوال2: براي فيلترينگ در شيت از ماكرو و Buttonاستفاده مي كنيم ولي وقتي شيت قفل باشه( protect باشه) خطا ميده ، چه بايد كرد؟؟
خيلي خيلي از راهنمائيهاتون متشكرم

[4017]

با سلام
درپاسخ سوال اول بايد بگم اين كار شدنيه
Sub Macro1()


Dim a As Integer
a = Range("a1")

If a = 1 Then
Columns("D:D").EntireColumn.Hidden = True
Else
Columns("D:D").EntireColumn.Hidden = False
End If
End Sub
و شيت مورد نظر كه توش تغييرات ميخواي انجام بدي رو ميذاري رو Worksheet_Change و اين ماكرو را با فرمان call فراخواني ميكني
اميدوارم منظورمو رسونده باشم.