• DİKKAT

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

excel de çalışma sayfasını koruma

C

cihande

Katılım
19 Haziran 2009
Mesajlar
10
Excel Vers. ve Dili
Office Excel 2010 Tr
Herkese merhabalar iyi çalışmalar.
Elimde bir tane exel dosyası var.(anlatmak yerine paylaşadabilirdim ama belgenin gizli kalması gerekiyor.) Bunun içinde 7 tane çalışma sayfası var.Bunlardan ilki bizim için klavuz niteliğinde olduğundan hiç değişemiyecek olması gerekiyor.Bu çalıima sayfasını gerektiğide açıp bakacak hücreleri kopyalıcaz fakat varolan verileri değiştiremiyecez.Bunun için ne yapmamız gerekiyor.Basit bir çözümü olmalı diye düşünüyorum ama bilmeyince bilinmiyor..Şimdiden teşekkürler..
 
Sayfanız açıkken Araçlar/koruma/sayfayı koyu diyeceksiniz. Daha sonra açılan pencerede bir şifre belirleyeceksiniz. Şifreyi kaldırmadığınız sürece sayfanıza bilgi girişi yada silinmesi yapılmaz.
Yalnız öncelikli olarak sayfanın satır ve sütun başlıklarının kesiştiği sol üst köşe üzerine tıklayın. (A nın solu, 1 in üstü) Tüm sayfayı seçmiş olucaksınız. Sonra sayfa üzerinde sağ tıklayarak hücreleri biçimlendirden en sağdaki koruma sekmesini seçin. Oradaki "kilitli" kısmını seşili hale getirin. Gerçi genel olarak seçilidir zaten. Ama kontrol etmekte yarar var.
 
Şimdi de şöyle bir durum var:
Excel dosyamızda 9+5 adet çalışma sayfası var.Bunlardan 9 tanesini önceden bahsettiğimiz şekilde koruma yapmak istiyorum ama sadece birisine koruma yapabiliyorum,aynı anda dokuzunu birden koruyamıyorum.Şimdiden teşekkürler...
 
Aynı anda birden fazla sayfaya koruma yapamazsınız diye biliyorum. Her sayfayı tek tek korumalısınız.
 
cihande' Alıntı:
Şimdi de şöyle bir durum var:
Excel dosyamızda 9+5 adet çalışma sayfası var.Bunlardan 9 tanesini önceden bahsettiğimiz şekilde koruma yapmak istiyorum ama sadece birisine koruma yapabiliyorum,aynı anda dokuzunu birden koruyamıyorum.Şimdiden teşekkürler...
Genişletmek için tıkla ...

Merhaba,

Bir module kopyalarak çalıştırınız.

Kod: 
Sub SayfaKoru()
For Each Worksheet In ActiveWorkbook.Worksheets
 If Worksheet.Name <> "[COLOR=blue]Sayfa1[/COLOR]" And Worksheet.Name <> "[COLOR=blue]Sayfa5[/COLOR]" Then
   Worksheet.Protect Password:="[COLOR=red]Bu Kısma Şifre Ya[/COLOR][COLOR=red]zınız[/COLOR]"
  End If
Next
End Sub

Sayfa1 ve Sayfa5 haric diğer sayfalara koruma uygular. ( Şifreyi değiştirmeyi unutmayınız)
 
Modüleden kastınız nedir? Benim için biraz daha açıklayıcı bir biçimde yazar mısınız?
 
bu formülü 2007 de nasıl yapabilirim şimdiden teşekkür ederim
 
Eski bir konu ama kod için çok teşekkürler çok makbule geçti. Benim öğrenmek istediğim mesela ben çalışma kitabındaki sayfalara isim verdim bu isimlerden ocak,şubat,eylül ve haziran haricindeki diğer sayfaları verilen kodu uygulayarak korumak istiyorum.Verilen koddaki sayfa 1 ve sayfa5 adlarını ocak ve şubat olarak değiştirerek işlemi yaptım ama korunmasını istemediğim sayfa adedi 4 olunca işin içinden çıkamadım teşekkürler.
 
Merhaba,

Bu şekilde deneyin.

Kod: 
Sub Sayfa_Koru()

    Dim i As Integer, j As Byte, deg

    deg = Array("Ocak", "Şubat", "Eylül", "Haziran")

    For i = 1 To Worksheets.Count
        With Sheets(i)
            For j = 0 To UBound(deg)
                If .Name = deg(j) Then
                    .Unprotect
                    Exit For
                Else
                    .Protect
                End If
            Next j
        End With
    Next i
 
End Sub

.
 
Ömer hocam kodu denemek için yenice fırsat bulabildim çok teşekkürler ALLAH razı olsun.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst