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

[chevas]

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

 

[idogus]

örneği imceler misin?

 

[xxrt]

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

 

[chevas]

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

 

[xxrt]

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 Autpen()
'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.

 

[danersin]

sn idogus'un örneğinde küçük bir değişiklikle tam istediğiniz gibi çalışır.

 

[chevas]

sn idogus'un örneğini açamadım ben

 

[chevas]

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

 

[idogus]

indir>kaydet

 

[chevas]

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

 

[xxrt]

Gönderdiğim dosyada bu bölümü çalıştırın.

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.

 

[chevas]

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

 

[chevas]

Birde göstermek için kullandığımız şifreyi alt+f11 yapan herkes görebiliyor. bunu engelleyebilirmiyiz

 

[danersin]

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.

 

[chevas]

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.

 

[danersin]

Birde böyle deneyin.

 

[chevas]

İÞ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.