sütün gizleme

[attrd112]

MERHABA B ve D satırını kod ile gizlemek ve göstermek istiyorum fakat maus ile sütün göster deyince gösterilmesin yani kod dışında gizli kalacak
Şimdiden teşekkürler yalnız bu sütunlar toplama formülü aralığında kalıyor bunları gizleyince toplama işleminde sıkıntı olması gerekiyor

[erseldemirel]

Sayfa koruma ile mümkün.

Sub Gizle()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(1)
ws.Unprotect Password:="123456"
ws.Columns("B").EntireColumn.Hidden = True
ws.Columns("D").EntireColumn.Hidden = True
ws.Protect Password:="123456", UserInterfaceOnly:=True
End Sub
Sub Goster()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(1)
ws.Unprotect Password:="123456"
ws.Columns("B").EntireColumn.Hidden = False
ws.Columns("D").EntireColumn.Hidden = False
End Sub