• DİKKAT

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

bazı sayfaları herkes görmesin...

umitumit

Altın Üye
Katılım
5 Eylül 2006
Mesajlar
364
Excel Vers. ve Dili
Excel 2016
Türkçe
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
 
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
 
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...
 
sheets("sayfa1").visible= false da olmuyormu ?
 
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.
 
Sayfa isimlerini bir dizi içinde tanımlayıp sonrada döngü kurarak gizleyebilirsiniz. Örneğin,

Kod:
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.
 
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...

Kod:
For i = [a1].Value To [b1].Value
Sheets(i).Visible = False
Next i
 
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
 
Selam,,
Ek Dosyayı inceleyiniz. Arzu ettiğiniz böyle bişeymi?

Kod:
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
 
D

Merhabalar

Çok teşekkür ederim tam istediğim gibi olmuş allah razı olsun
 
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ü.
 
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....

Kod:
With Sheets(kul1(a))
            If .Visible = xlSheetVeryHidden Then
                .Visible = xlSheetVisible
            ElseIf .Visible = xlSheetVisible Then
                .Visible = xlSheetVeryHidden
            End If
        End With
 
Sayın Ayhan Ercan
İlginize Teşekkür Ederim. Güzel Bir Çalışma Oldu. Elinize Sağlık.
 
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
 
Son düzenleme:
Geri
Üst