SATIR GİZLEME

Katılım
4 Temmuz 2011
Mesajlar
96
Excel Vers. ve Dili
Türkçe 2013
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,874
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.

C++:
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

Altın Üye
Katılım
10 Şubat 2006
Mesajlar
758
Excel Vers. ve Dili
Office 2016
64 Bit
Altın Üyelik Bitiş Tarihi
21-12-2027
Kod:
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
 
Katılım
4 Temmuz 2011
Mesajlar
96
Excel Vers. ve Dili
Türkçe 2013
Kod:
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
 
Katılım
4 Temmuz 2011
Mesajlar
96
Excel Vers. ve Dili
Türkçe 2013
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.

C++:
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
 
Katılım
4 Temmuz 2011
Mesajlar
96
Excel Vers. ve Dili
Türkçe 2013
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.

C++:
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,874
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
İş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.
 
Üst