• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

çıkışta a,b,c,d,e,f,g,h sütunlarını gizle,

  • Konbuyu başlatan Konbuyu başlatan chevas
  • Başlangıç tarihi Başlangıç tarihi
C

chevas

Katılım
2 Mart 2005
Mesajlar
30
Arkadaşlar günaydın,
Yapmak istediğim dosyadan çıkarken yukarıda bahsettiğim sütunları gizleyip, tekrar çalışmak için dosyayı açtığımda gizlenen sütunları görebilmek için göster butonu yapmak yanlız bu göster butonu şifreli olsun yani sadece şifreyi bilenler gizlenmiş olan sütunları tekrar görünür hale getirebilsinler
 
Sub Auto_Close()
Columns("A:G").Select
Selection.EntireColumn.Hidden = True
Range("H1").Select
End Sub
Sub Ac()
Static sayac As Integer
Do
If sayac = 3 Then
ThisWorkbook.Close False
Else
If InputBox("Þifreyi girin") = "12345" Then
GoTo devam
Else
sayac = sayac + 1
End If
End If
Loop
devam:
Columns("A:G").Select
Selection.EntireColumn.Hidden = False
Range("H1").Select
End Sub
 
sayın xxrt,
yazmış olduğunuz makroyu kullandım ama , sanırım dosyadan çıktığımda gizlemiyor , çünkü çıkıp tekrar açtığımda sütunlar gizli değil ancak makroyu çalıştır dediğimde gizliyor. açmak için kullandığımız makroyu bir buton halinde sayfaya yerleştirebilirsek ve bu gizleme gösterme işini çalışma kitabımdaki tüm sayfalar için yapabilirsek harika olacak, şimdiden teşekkür ederim. Saygılarımla
 
Aşağıdakilerin Hepsini Boş bir Modüle Yerleştirin.
Tüm sayfalarda bunu Kullanabilirsiniz.
Bir Menü Halindedir.

[vb:1:323f2d6a64]Sub Auto_Close()
Application.CommandBars("Worksheet Menu Bar").Reset
Columns("A:G").Select
Selection.EntireColumn.Hidden = True
Range("H1").Select
End Sub
Sub Auto_Open()
'Menü Açıp Başlığını Hazırlar
Set x = Application.CommandBars(1).Controls.Add(msoControlPopup, 1, , , True)
x.Caption = "Ana Menü"
'1 Alt Menü Hazırlar
Set a = x.Controls.Add(msoControlButton, , , , True)
a.Style = msoButtonIconAndCaption
a.Caption = "Sütun Aç"
a.OnAction = "ac"
Set b = x.Controls.Add(msoControlButton, , , , True)
b.Style = msoButtonIconAndCaption
b.Caption = "Sütun Gizle"
b.OnAction = "gizle"
Columns("A:G").Select
Selection.EntireColumn.Hidden = True
Range("H1").Select
End Sub
Sub gizle()
Columns("A:G").Select
Selection.EntireColumn.Hidden = True
Range("H1").Select
End Sub
Sub Ac()
Static sayac As Integer
Do
If sayac = 3 Then
ThisWorkbook.Close False
Else
If InputBox("Þifreyi girin") = "12345" Then
GoTo devam
Else
sayac = sayac + 1
End If
End If
Loop
devam:
Columns("A:G").Select
Selection.EntireColumn.Hidden = False
Range("H1").Select
End Sub[/vb:1:323f2d6a64]

Hersayfanın Kod Kısmınada;
[vb:1:323f2d6a64]Private Sub Worksheet_Activate()
Columns("A:G").Select
Selection.EntireColumn.Hidden = True
Range("H1").Select
End Sub[/vb:1:323f2d6a64]
Yazmanız gerek.
 
sn idogus'un örneğinde küçük bir değişiklikle tam istediğiniz gibi çalışır.
 
sayın xxrt nin ve sn idogus un göndermiş olduğu dosyalarına tıkladığımda açılan excel sayfasında düğmeye bağlı makro bulunamamıştır diyor. acaba yanlış bi şekildemi indiriyorum
 
Sayın xxrt,
Ellerinize sağlık,çok teşekkür ederim. son bir ricam var biliyorum çok başınızı ağrıttım ama, aç makrosunu çalıştırdığımda sadece bulunduğum sayfayı görünür hale getiriyor. bütün sayfaları görünür hale getirebilirmiyiz. tek tuşla. Bunu yapabilirseniz ne kadar minnettar kalacağımı anlatamam teşekkürler
 
Gönderdiğim dosyada bu bölümü çalıştırın.
men.jpg



Hersayfanın Kod Kısmınada;

visual basic kodu:
--------------------------------------------------------------------------------
Private Sub Worksheet_Activate()
Columns("A:G").Select
Selection.EntireColumn.Hidden = True
Range("H1").Select
End Sub
--------------------------------------------------------------------------------


Yazmanız gerek.
Genişletmek için tıkla ...
 
Sayın xxrt,
Ellerinize sağlık,çok teşekkür ederim. son bir ricam var biliyorum çok başınızı ağrıttım ama, aç makrosunu çalıştırdığımda sadece bulunduğum sayfayı görünür hale getiriyor. bütün sayfaları görünür hale getirebilirmiyiz. tek tuşla. Bunu yapabilirseniz ne kadar minnettar kalacağımı anlatamam teşekkürler
 
Birde göstermek için kullandığımız şifreyi alt+f11 yapan herkes görebiliyor. bunu engelleyebilirmiyiz
 
Tüm çalışmalarınız bittiğinde VBA projenize şifre verirseniz, kodlarınızı kimse göremez.
VBA editöründe Tools>vbaprojectproperties>protection sekmesi.
 
Arkadaşlar emekleriniz için müteşekkirim ama istediğim olmadı,
xxrt arkadaşımızın yazmış olduğu makro da her sayfa için ayrı ayrı aç makrosunu çalıştırmam gerekiyor ,ben bu makroyu çalıştırdığımda bütün sayfalarda gizli olan sütunların açılmasını istiyorum. ayrıca sayfalar arasında geçiş yaptığımda yani sayfa 1 den sayfa 2 ye geçtiğimde sayfa 1 deki sütunlar gizleniyor, sayfa 1 e geri döndüğümde tekrar aç makrosunu çalıştırmam gerekiyor . ben bu gizleme işleminin çalışma kitabını kapadığımda olmasını istiyorum.umarım yapmak istediğimi anlatabilmişimdir.
 
İÞTE BU , DANERSİN USTA EYVALLAH
TAM İSTEDİÐİM OLAY NE KADAR İÞİME YARADIÐINI ANLATAMAM. ÞAHSINIZDA TÜM İLGİLENEN ARKADAÞLARA ÇOK ÇOK TEÞEKKÜR EDERİM.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst