KLASÖRE ŞİFRE VERME

[omalkoc]

klasöre nasıl şifre koyabilirim ?

 

[Zeki Gürsoy]

şifreleme programlarından birini kullanabilirsiniz.

 

[nziya]

FolderAccess 2.0 4 klasörü bedava şifreler
http://www.soft32.com/download_18000.html

 

[bekir38]

merhaba arkadaşlar,

ben bir klasör içerisine 8-10 arası excel
çalışma kitabı ekleyip yayınlamak istiyorum.
kitap içerisinde değişik formlar var.
bir kitap içerisindeki sayfa sayısı değişken. (1 ila10 arası değişiyor)
kitabı açabilmeli ama değiştirmemesi gerekiyor.
toplu bir şekilde bunu nasıl yapabilirim.
yada böyle bir yöntem varmı?
belki hayal kuruyorum diye :yardim: :yardim:

iyi çalışmlar,

 

[bekir38]

bir çözümü yokmu arkadaşlar, :yardim: :yardim:
örnek olsun diye bir dosya gönderiyorum.

(yada soruyu mu yanlış sordum)

tüm çalışma kitaplarındaki sayfaları aynı anda korumak ve
aynı anda korumasını kaldırmak. (aynı şifreyle)
ama çalışma kitabı açma parolası olmayacak.

yani herkes kitabı açabilsin ama değişiklik yapamasın.

ilgilenirseniz sevinirim arkadaşlar,

iyi çalışmalar,

 

[bekir38]

arkadaşlar merhaba,

şöyle birşey yapmak mümkün mü?
sayfa koruma ve açma ile ilgili bir makro hazırlayıp.
bunu tüm çalışma kitaplarında uygulamak.
yani isteğe bağlı olarak.

iyi çalışmalar,

 

[Zeki Gürsoy]

Aşağıdaki kodlar işinize yarar mı?


Sub Autpen()
Dim sayfa As Object
For Each sayfa In ThisWorkbook.Sheets
sayfa.ScrollArea = "a1"
Next
End Sub

 

[baydeniro]

Merhaba anemos. Yazdığın nasıl kullanılacağı konusunda bilgi verebilir misin. Teşekkürler.

 

[xxcell]

Aşağıdaki kodlar işinize yarar mı?


Sub Autpen()
Dim sayfa As Object
For Each sayfa In ThisWorkbook.Sheets
sayfa.ScrollArea = "a1"
Next
End Sub

Yukarıdaki kod;
Çalıştırıldığı excel dosyasının tüm sayfalarında sadece a1 hücresini seçilebilir yapıyor. Yani başka hücrelere müdahaleyi engelliyor.

 

[bekir38]

arkadaşlar merhaba,

şöyle birşey yapmak mümkün mü?
sayfa koruma ve açma ile ilgili bir makro hazırlayıp.
bunu tüm çalışma kitaplarında uygulamak.
yani isteğe bağlı olarak.

iyi çalışmalar,

evet bu soruyu 2006 da sormuşum,
o zaman site yardımı ile çözmüştüm ama,
bilgisayara format atıldı,
şimdi tekrar aynı sorun başgösterdi.

tüm sayfaları koruyan ve açan,
ayrıca açtığım her excel kitabında çalışan bir makro (eklenti)
örneği arıyorum. bende var bir tane ama çalıştıramıyorum.

açmak için;

Sub a()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect ("1861")
Next i
End Sub

kilitleme için;

Sub k()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Protect Password:="1861"
Next i
End Sub

yardımlarınızı bekliyorum,

 

[azure]

slm yukaridaki kod bende çalıştı. ama bütün sayfalardaki şifrelerin aynı olması gerekiyor

 

[McLine]

bu işi resimli anlatım yaparsanız daha iyi olur bence...