استاذ admbrk
هذا الامر unhide.. فى قائمة window غير فعال
يوجد به مشكلة غير صحيح
اما الباقى شغال و هكذا الكود
Private Sub Worksheet_Activate()
If Sheets("sheet1").Range("a1").Value = "5" Then
Windows.Application.CommandBars("worksheet menu bar").Controls("window").Controls("unhide...").Enabled = False
Columns("g").EntireColumn.Hidden = True
End If
End Sub