bazı sayfaları herkes görmesin...

[umitumit]

10 sayfa içeren bir excel dosyam mevcut.
çalıştığım yerde network aracılığı ile birçok kullanıcıya bu dosyaya salt okunur paylaşım verdim. Ancak bazı kullanıcıların bu sayfalardan bazılarını görmelerini istemiyorum.
sadece belirli kullanıcılara açık sayfa gizle-göster yapılabilir mi?
veya o sayfalara şifre konabilir mi?

şimdiden teşekkürler

 

[Levent Menteşoğlu]

Sayfaları gizleyip çalışma kitabınına koruma koyabilirsiniz. Yada görünmesini istemediğiniz sayfaları aşağıdaki gibi bir kodla gizleyebilirsiniz.

sheets("sayfa1").visible=xlveryhidden

 

[umitumit]

ben daha çok dosyaya erişim hakkı bulunanların farklı sayfaları görebilmesini istiyorum
mesela;

A kullanıcısı ilk 4 sayfayı görebilsin de,
B kullanıcısı 4. ve 5. sayfayı görebilsin...

 

[safa_acar2850]

sheets("sayfa1").visible= false da olmuyormu ?

 

[ANTALYA 01]

R

Merhabalar

Bende Bu sayfa gizle göster konusunda bir şey sormak istiyorum.50 Adet Sayfa Var ve hepsi birbirine formüllerle bağlı 10 sayfayı bir kullacı 10 sayfayı bir kullanıcı 10 sayfayı bir kullanıcı kullanıyor ve dosya klasörü yazmaya değiştirmeye herşeye açık şimdi 50 sayfayı bir kullanıcı kendi 10 sayfasını kullanacağı zaman biçim sayfa 40 sayfayı gizle yapıyorum diğer kullanıcının 10 sayfası için yine aynı biçim sayfa gizle gibi bu sayfaları seçime göre nasıl bir anda toplu yapabiliriz yani bir makro olsa 10 sayfayı gizlese 10 sayfayı açacağım zaman açsa yoksa çok zor oluyor.Makro kaydetten yaptım hata veriyor olmuyor.

 

[Levent Menteşoğlu]

Sayfa isimlerini bir dizi içinde tanımlayıp sonrada döngü kurarak gizleyebilirsiniz. Örneğin,

sayfa=array("sayfa1","sayfa2","sayfa3",...................)
for a=0 to ubound(sayfa)
sheets(sayfa(a)).visible=false
next

Burada gizleyeceğiniz sayfaları kişiye göre arrary içinde peşpeşe sıralayın. Sonrada döngünün sınırlarını kişiye göre belirleyin.

 

[Ayhan Ercan]

Merhabalar

Bende Bu sayfa gizle göster konusunda bir şey sormak istiyorum.50 Adet Sayfa Var ve hepsi birbirine formüllerle bağlı 10 sayfayı bir kullacı 10 sayfayı bir kullanıcı 10 sayfayı bir kullanıcı kullanıyor ve dosya klasörü yazmaya değiştirmeye herşeye açık şimdi 50 sayfayı bir kullanıcı kendi 10 sayfasını kullanacağı zaman biçim sayfa 40 sayfayı gizle yapıyorum diğer kullanıcının 10 sayfası için yine aynı biçim sayfa gizle gibi bu sayfaları seçime göre nasıl bir anda toplu yapabiliriz yani bir makro olsa 10 sayfayı gizlese 10 sayfayı açacağım zaman açsa yoksa çok zor oluyor.Makro kaydetten yaptım hata veriyor olmuyor.

@ANTALYA

Şöyle bir çözüm buldum..
Ek dosyayı inceleyin...

For i = [a1].Value To [b1].Value
Sheets(i).Visible = False
Next i

 

[ANTALYA 01]

d

Merhabalar

Değerli cevablarınız için teşükkür ederim.Sorunumu dosyada açıklama yaparak anlatmaya çalıştım.Kullanıcılara göre sayfaları gizlemek ve göstermek istiyorum

 

[Ayhan Ercan]

Selam,,
Ek Dosyayı inceleyiniz. Arzu ettiğiniz böyle bişeymi?

Private Sub CommandButton1_Click()
On Error Resume Next
x = InputBox("Şifrenizi giriniz", "ŞİFRE")
 If Not x = 111 Then Exit Sub
If CommandButton1.Caption = "GİZLE" Then
    CommandButton1.Caption = "GÖSTER"
    Else
    CommandButton1.Caption = "GİZLE"
    End If
kul1 = Array("ARAÇ_1", "ARAÇ_2", "ARAÇ_3", "ARAÇ_4")
    For a = 0 To 3
        With Sheets(kul1(a))
            If .Visible = False Then
                .Visible = True
            ElseIf .Visible = True Then
                .Visible = False
            End If
        End With
    Next a
End Sub

 

[ANTALYA 01]

D

Merhabalar

Çok teşekkür ederim tam istediğim gibi olmuş allah razı olsun

 

[Ayhan Ercan]

Merhabalar

Çok teşekkür ederim tam istediğim gibi olmuş allah razı olsun

Rica ederim. Cümlemizden..
İyi Çalışmalar...

 

[3641]

Yukarıdaki Çalışmanız Çok Güzel Kendi Çalışmama Uyarladım Ama
Şöyle Bir Sıkıntı Var Ekli Resimdede Göreceğiniz Üzere Sayfada Kullanıcı Girişleri Şifreli Olmasına Rağmen Sayfalara Ulaşabiliyorlar Bu Sorunu Çözmek Mümkünmü.

 

[Ayhan Ercan]

Yukarıdaki Çalışmanız Çok Güzel Kendi Çalışmama Uyarladım Ama
Şöyle Bir Sıkıntı Var Ekli Resimdede Göreceğiniz Üzere Sayfada Kullanıcı Girişleri Şifreli Olmasına Rağmen Sayfalara Ulaşabiliyorlar Bu Sorunu Çözmek Mümkünmü.

Merhaba,
Ek dosyayı inceleyiniz....

With Sheets(kul1(a))
            If .Visible = xlSheetVeryHidden Then
                .Visible = xlSheetVisible
            ElseIf .Visible = xlSheetVisible Then
                .Visible = xlSheetVeryHidden
            End If
        End With

 

[3641]

Sayın Ayhan Ercan
İlginize Teşekkür Ederim. Güzel Bir Çalışma Oldu. Elinize Sağlık.

 

[Ayhan Ercan]

Sayın Ayhan Ercan
İlginize Teşekkür Ederim. Güzel Bir Çalışma Oldu. Elinize Sağlık.

Rica ederim..
İyi çalışmalar....

 

[raguzel]

Ekteki dosya başkasından elime geçti ama çok güzel eminim işine yarar...

10 sayfa içeren bir excel dosyam mevcut.
çalıştığım yerde network aracılığı ile birçok kullanıcıya bu dosyaya salt okunur paylaşım verdim. Ancak bazı kullanıcıların bu sayfalardan bazılarını görmelerini istemiyorum.
sadece belirli kullanıcılara açık sayfa gizle-göster yapılabilir mi?
veya o sayfalara şifre konabilir mi?

şimdiden teşekkürler