نمایش خودکار ردیف ها و ستون ها مخفی

[ali.b]

Sub Unhide_All_Rows()
     On Error Resume Next
     'in case the sheet is protected
    ActiveSheet.Cells.EntireRow.Hidden = False
End Sub
Sub Unhide_All_Columns() 
    On Error Resume Next
     'in case the sheet is protected
    ActiveSheet.Cells.EntireColumn.Hidden = False

End Sub

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.