Makro ile Hücre Kilitlemek ?

[ybilgin]

Merhaba arkadaşlar,
Makro ile hücreleri kilitlemek istiyorum.


Örnek dosya ve açıklama ektedir.
Teşekkür ediyorum.

 

[Ömer]

Merhaba,

Sub SayfaKoru()
ActiveSheet.Unprotect "[B]a[/B]"
    With Columns("B:B")
        .Locked = False
        .FormulaHidden = False
    End With
Columns("B:B").SpecialCells(xlCellTypeConstants, 23).Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect "[B]a[/B]"
[B2].Select
End Sub

Bu şekilde denermisiniz. "a" yazan bölgelere kendi şifrenizi yazarsınız..

.

 

[ybilgin]

Harika ellerinize sağlık
süper oldu
teşekkürler

 

[TURKPLUS]

Bu soruyu bir de şöyle sorsak

Yine ektekine benzer bir tablomuz olsun.

Bu tabloda B sütunundaki hücrelerde önemli veriler olsun yine.

Bu kez C sütununda (onay sütunu) bulunan hücrelerde EVET DEĞERİ VARSA bu evetin solunda kalan B sütunundaki hücreler otomatik olarak kilitlensin ve sadece bu B hücreleri parola ile korunsun (çalışma sayfasının korunmasına gerek yok)

C sütununda Değer yoksa komşusu olan B hücreleri kilitlenmesin.

Bu kilitleme olayını aynı zamanda her satırın sonunda ayrı bir butona atayalım.

Butona bastığımızda C sütununda değer olan hücreleri bulup sadece bu hücrenin sol komşusu olan ilgili B hücrelerine kilit koyup hücreyi parola ile korusun.

Dosya ekte...

Teşekkürler

 

[turist]

Ekli dosyayı inceleyiniz.

 

[ybilgin]

Ekli dosyayı inceleyiniz.

Bu verileri değiştiremeyiz ama silebiliriz.

 

[dekoraturk]

bu örnekte bulunan veri doğrulama ile satırın tamamını satır sonunda ok var ise kilitleyebiliyormuyuz.

sizin örneğinizde
6 mahmut ist. ok (ok ise 6. satırın tamamı kilitli gibi)

 

[msfkonuk]

Excel Hücre Sifreleme

Arkadaslar Merhaba;
Excelde Makro olarak yazdigim Kodlari kitlemeye calisiyorum. Kodu, yapmis oldugum Makrolarin Basina ve sonuna yaziyorum.Sayfayi Parola ile kilitledigimde her hangi bi islem yaptigimda hücre kendiliginden makro formülü yazdigim satira geciyo.Mesela üstte herhangi bi degisilik yapiyorum,Otomatik olarak asagiya geciyor. Makrolari yazdigim satira...Sifre formülünü kaldirdigimda busefer düzeliyor fakat sayfayi kilitledigim de Makro olusturdugum satir calismiyor.1004 diye bir hata veriyor.Bunu nasil engellerim yardimci olabilen olursa simdiden cok Tesekkürler.Umarim Derdimi anlatabilmisimdir.

saygilar

 

[Ömer]

Merhaba,

Örnek eklemenizi rica ederim.

 

[yasanabilir@gmail.com]

merhaba benim bir ricam olucak hücrelere 1 kere veri girildiğinde değiştirilmesi yada silinmesi sadece şifre ile gerçekleştirilebilecek. yani müşteri bilgileri benden habersiz değiştirilmesin istiyorum. hatta yapabilirsem bir anasayfa da verileri yazıcam ad soyad tel gibi butonla kaydet dediğimde 2. sayfada alt alta gelicek şekilde sıralanıcak bu konu hakkında bana yardım edebilirmisiniz çok uğraştım ama olmadı

 

[xklxzet]

merhaba benim bir ricam olucak hücrelere 1 kere veri girildiğinde değiştirilmesi yada silinmesi sadece şifre ile gerçekleştirilebilecek. yani müşteri bilgileri benden habersiz değiştirilmesin istiyorum. hatta yapabilirsem bir anasayfa da verileri yazıcam ad soyad tel gibi butonla kaydet dediğimde 2. sayfada alt alta gelicek şekilde sıralanıcak bu konu hakkında bana yardım edebilirmisiniz çok uğraştım ama olmadı

İlk sorunu sayfa koruma ile halledebilirsin. 2. Sorunu tam anlamadım, ilk sayfada ad soyadı hep aynı hücreye mi yazacaksın?

 

[Kaan.Kz]

Merhabalar Sn Abiler,

Sorumla ilgili en yakın konuyu bu başlıkta buldum. Yukarıdaki örnekleri baktım, fakat çok acemiyim, tam olarak kendime uyarlayamadım. Eğer mümkünse ekli dosya ya bir bakıp, yardımcı olabilir misiniz lütfen.

Benim sorum da benzer, OK yazdım hücre parolalı korumaya alınacak, aynı zamanda bulunduğu satır komple kilitlenecek.

Saygılarımla

 

[rabbace]

Merhaba,

A1:H1000 arasını makro ile kilitlemek istiyorum ama tüm hücreler kilitleniyor, aşağıdaki kodları uyguladım, nerede hata olabilir?

***H sütünu her ay 1 sütun sağa kayacak, dinamik olmalı.
***8 sütun daima kilitli olacak, sonraki sütunlar içinde bulunulan aya göre değişecek. Bu nedenle 8 sayısı sabit.

x = 8 + ay_num
ActiveSheet.Unprotect
Range(Cells(1, 1), Cells(1000, x)).Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect

 

[Seyit Tiken]

Bu kodu denemeden önce ilgili sayfayı seçin ve tüm hücrelerin kilidini açın.

[a1:h1000].Locked = 1
ActiveSheet.EnableSelection = 1
ActiveSheet.Protect