استاذ مختار
لتنفيذ رغبتك عليك تعديل الكود ليصبح كما يلي:
Sub hide_secret()
Application.CommandBars("Column").Enabled = False
Columns("k:k,n:n,p:p").EntireColumn.Hidden = True
If [i1].Value = 123 Then
Columns("k:k,n:n,p:p").EntireColumn.Hidden = False
End If
[i1] = 0
End Sub