SATIR GİZLEME

[attrd]

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

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod ilk tıklamada belirtilen sütunları gizle ve sayfa koruması ekler. İkinci tıklamada sütunlar görünür olur ve sayfa koruması eklenir.

Option Explicit

Sub Columns_Hidden_Show()
    ActiveSheet.Unprotect
    Range("B:B,D:D").EntireColumn.Hidden = Not Range("B:B,D:D").EntireColumn.Hidden
    ActiveSheet.Protect
End Sub

 

[muhasebeciyiz]

Option Explicit

Sub Columns_Hidden_Show()   
    ActiveSheet.Unprotect
    
    With ActiveSheet
        .Columns("B:B").EntireColumn.Hidden = Not .Columns("B:B").EntireColumn.Hidden
        .Columns("D:D").EntireColumn.Hidden = Not .Columns("D:D").EntireColumn.Hidden
    End With
  
    ActiveSheet.Protect Password:="sifre", UserInterfaceOnly:=True
End Sub

Bu kod ile istediğiniz gibi, sütunlar her tıklamada gizlenip gösterilecek ve sayfa koruması yalnızca bir kez uygulanacaktır.
Alternatif olsun

 

[attrd]

Option Explicit

Sub Columns_Hidden_Show()  
    ActiveSheet.Unprotect
   
    With ActiveSheet
        .Columns("B:B").EntireColumn.Hidden = Not .Columns("B:B").EntireColumn.Hidden
        .Columns("D:D").EntireColumn.Hidden = Not .Columns("D:D").EntireColumn.Hidden
    End With
 
    ActiveSheet.Protect Password:="sifre", UserInterfaceOnly:=True
End Sub

Bu kod ile istediğiniz gibi, sütunlar her tıklamada gizlenip gösterilecek ve sayfa koruması yalnızca bir kez uygulanacaktır.
Alternatif olsun

teşekür ederim

 

[attrd]

Merhaba,

Aşağıdaki kod ilk tıklamada belirtilen sütunları gizle ve sayfa koruması ekler. İkinci tıklamada sütunlar görünür olur ve sayfa koruması eklenir.

Option Explicit

Sub Columns_Hidden_Show()
    ActiveSheet.Unprotect
    Range("B:B,D:D").EntireColumn.Hidden = Not Range("B:B,D:D").EntireColumn.Hidden
    ActiveSheet.Protect
End Sub

teşekürler

 

[attrd]

Merhaba,

Aşağıdaki kod ilk tıklamada belirtilen sütunları gizle ve sayfa koruması ekler. İkinci tıklamada sütunlar görünür olur ve sayfa koruması eklenir.

Option Explicit

Sub Columns_Hidden_Show()
    ActiveSheet.Unprotect
    Range("B:B,D:D").EntireColumn.Hidden = Not Range("B:B,D:D").EntireColumn.Hidden
    ActiveSheet.Protect
End Sub

MERHABA cok iyi fakat diğer sütün ve hücrelerde işlem yapmam lazım sayfa korumalı olursa işlem yapamıyorum sadece gizlediği sütünler sağ tıklayıp sutun göster yapınca açılmasın

 

[Korhan Ayhan]

İşlem yapacağınız hücreleri seçip hücre biçimlendirme menüsünden KORUMA sekmesinden KİLİTLİ seçeneğini pasif yaparak koruma dışında kalmasını sağlayabilirsiniz.