Çalışma Sayfalarını Koruma

[alfos]

Arkadaşlar bir çalışma sayfasındaki formüllerin nasıl korunacağını sayenizde öğrendim.Fakat bir şey daha sormak istiyorum.Çalışma kitabımda yaklaşık 10 kadar çalışma sayfam var ve ben bunların tümündeki formülleri korumak ve şifrelemek istiyorum.Tek tek uğraşmaktansa bir işlemle hepsine şifre vermek istiyorum.Office 2007 kullanıyorum.Şimdiden yardımlarınız için tşk ediyorum.

 

[mustafaine1]

sadece calisma kitabini sifreleyebilirsiniz ama koruma yapamazsiniz diye biliyorum..

 

[alfos]

Benim demek istediğim çalışma sayfalarındaki formüllerin formül çubuğunda görünmemesi.Bunu tek-tek çalışma sayfalarında yapabiliyorum.Ama çalışma kitabında bir çok çalışma sayfası olduğundan tamamına aynı yöntemi uygulamadan nasıl yapabilirim.

 

[Vedat Özer]

kardeşim ilk başta bir çalışmasayfasının tümünü seçip orda sağtuş hücrebiçinlendirden koruma tıklanır orda gizli ve kilitli seçeneğini aktif hale getir daha sonradan çalışma sayfasını korunuz hale getir.Bide Bir Çalışma sayfasındaki değişikliği aynı çalışma sayfasınında omasını istiyosan çalışma sayfalarının orda sağtuş sayfanın tümünü seç dediğinizde sayfa1 yaptıgınız değişiklik diğer seçtiğiniz sayfalarıda etkiler klavye kısa yolu shift+ctrl basıp page down ileri page up geri ilerleyebilirisiniz ama sayfa koruması yapamıyonuz excel 2003

 

[canerbulut]

değerli açıklamalarınız için teşekkür edrim arkadaşlar... ama bende sorun daha büyük... çalışma kitabı içinde kilitlemem gereken yaklaşık 300 sayfa var... benimde bu işin kısa yolunu öğrenmeye acilen ihtiyacım var... (2007 .ing. kullanıyorum... ) sayfaların hepsini seçince sayfa kilitleme opsiyonu pasif konuma geçiyor... yardımlarınızı bekliyoruz.. şimdiden teşekkürler..

 

[leumruk]

Bu sorunu makro ile çözebilirsiniz. Örnek bir dosya hazırladım. Butona tıklayıp sonucu gözlemleyin. Koruma şifresi 12345

Sub Sayfa_Koru()
For Each syf In Worksheets
syf.Protect 12345
Next
End Sub

 

[theshadows51]

verdiğinz sayfa koruma örneğini inceledim. peki bu makroyu hücre ve sütunları mouse imleciyle de seçemeyecek ve dolayısıyla kopyalayamayacak duruma getirebilmemiz mümkün mü?

 

[leumruk]

Merhaba,

Sub Sayfa_Koru()
For Each syf In Worksheets
    syf.Protect 12345, DrawingObjects:=True, Contents:=True, Scenarios:=True
    [COLOR="Red"]syf.EnableSelection = xlUnlockedCells[/COLOR]
syf.Protect 12345
Next
End Sub

Bu şekliyle kilitli hücreleri hiçbir şekilde seçemezsiniz. Eğer kilidi açık veya kapalı hiçbir şekilde seçim yapılamamasını istiyorsanız aşağıdaki satırı kırmızı satırla değiştirin.

syf.EnableSelection = xlNoSelection

 

[theshadows51]

ilgiliniz için teşekkürler.

son bir sorum daha olacak, bu makrodaki şifre, koruma kaldırılmadan gözükmez, değiştirilemez değil mi?

ekleme: kilitlerken tümünü kilitliyor ya hani o çok güzel, açarken de tümünü açabilmemizin imkanı var mı?

iyi çalışmalar.

 

[theshadows51]

mesela şifre isteyip, doğru şifre girildikten sonra tüm sayfaların korumasını kaldıracak bir butonumuz daha olsa güzel olurdu.

 

[canerbulut]

üstad teşekkür ederim... çok işime yaradı...

 

[leumruk]

mesela şifre isteyip, doğru şifre girildikten sonra tüm sayfaların korumasını kaldıracak bir butonumuz daha olsa güzel olurdu.

Örneği inceleyiniz.

Sub Sayfa_Koru()
For Each syf In Worksheets
    syf.Protect 12345, DrawingObjects:=True, Contents:=True, Scenarios:=True
    syf.EnableSelection = xlNoSelection
Next
MsgBox "Tüm sayfalar korumaya alındı.", vbInformation, "İŞLEM SONUCU"
End Sub

Sub Koruma_Ac()
Sifre = Application.InputBox("Lütfen koruma şifresini giriniz.", "ŞİFRE SORGU EKRANI")
If Sifre = False Then Exit Sub
If Sifre = "12345" Then
For Each syf In Worksheets
    syf.Unprotect Sifre
Next
Else:
MsgBox "Yanlış şifre girdiniz.", vbCritical, "UYARI"
End If
End Sub

 

[theshadows51]

yardımlarınız için çok çok teşekkür ederim. çok ihtiyacımız olan bir konuyu direk olarak çözdünüz.

bu konuyla ilgili son bir sorum var. örnekte olan şifremiz mesela '12345' normal şartlarda koruma kalkmadan gözükmez dimi hiçbir türlü?

 

[theshadows51]

bir ekleme daha. bu yazdığınız kodları inceliyorum hep. delphi'den dolayı çok az anlıyorum programlama olayından. işimi kolaylaştıracak birkaç makro da ben yazmaya karar verdim excel de. armut piş olmasın hem hep.

başlangıç olarak ne tür bir kaynağı incelememi önerirsiniz? şöyle;
# ufak messega box lar yapma, ölçülerini, rengini, tipini belirleme
# buton oluşturup, ölçülerini, rengini, tipini belirleme,
# oluşturduğum butonlara işlevler atama. (sayfa içinde sağ mouse engeli vs)

bu tür şeylerle başlangıç yapmak istiyorum.

 

[leumruk]

yardımlarınız için çok çok teşekkür ederim. çok ihtiyacımız olan bir konuyu direk olarak çözdünüz.

bu konuyla ilgili son bir sorum var. örnekte olan şifremiz mesela '12345' normal şartlarda koruma kalkmadan gözükmez dimi hiçbir türlü?

Araçlar>Makro>Visual Basic Düzenleyicisi>Tools>VBA Project Properties>Protection bölümünden şifreleme yaparsanız makrolar şifre girilmeden görülemez. Ama şunu da belirtmek lazım: Diğer tüm programlarda olduğu gibi bunun da şifre kırma yöntemleri mevcut. Excel makrolarından anlamayan biri, şifre kırma işini gerçekleştirip, kodlara ulaşıp, ilgili satırı bulup değiştirme işlemini de kolay kolay gerçekleştiremez. Eğer belli bir birikime sahip değilse şifre kırma aklına bile gelmez.

Diğer sorunuza gelince, belirli bir kaynak önermiyorum. Mutlaka piyasada işe yarar kaynaklar vardır ve işe de yarar; ancak ben şimdiye kadar ihtiyaç durmadım. Bir program çalışmasına başlamanız en büyük önerim. Örneğin telefon rehberi gibi. Takıldığınız yerleri de bu ve benzeri sitelerde uzmanlarına sorduğunuzda büyük oranda ilerleme kaydedeceğinizi düşünüyorum.

 

[theshadows51]

ilgili için tekrar teşekkürler. konuya her girdiğimde makrolarla ilgili yeni bir soru beliriyor aklımda

syf.EnableSelection = xlUnlockedCells

syf.EnableSelection = xlNoSelection

bu iki kod arasındaki fark nedir? ikisi de kilitliyor seçim yapmayı.

 

[leumruk]

syf.EnableSelection = xlNoSelection bu seçenekle hiçbir şekilde hücre seçimi yapamazsınız.
syf.EnableSelection = xlUnlockedCells bubunla ise kildi açılmış hücreleri seçebilirsiniz, diğerlerini seçemezsiniz.

 

[canerbulut]

üstad eline sağlık...

 

[leumruk]

üstad eline sağlık...

Rica ederim. İyi çalışmalar.

 

[theshadows51]

konuda ki tüm yardımlarınız için tekrar tekrar teşekkürler.