Makroda hücreyi kilitlemek

[xnanx]

Merhaba Arkadaşlar;
Basit bir yerde takıldım işin içiden çıkamadım.
Yazdığım makroda çift tıklayınca aşağısındaki 20 satırı gizliyor tekrar tıklayınca açıyor M sütününda değişken + yada - oluyor tıklanınca gizliyor fakat dışarken M sütününa başka bir sey yazılmamasını nasıl önleyebilirim. Kullanıcı değiştremesin istiyorum,

Şimdiden teşekkürler.


Private Sub CommandButton2_Click()
m = 0
If CommandButton2.Caption = "Göster" Then
Rows("1:65536").Select
Selection.EntireRow.Hidden = False

CommandButton2.Caption = "Gizle"
Columns("M:M").Select
Selection.Replace What:="+", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells(1, 1).Select
GoTo 2
End If

 

[N.Ziya Hiçdurmaz]

yanıt

Tüm sayfayı seçili yapıp. Biçim, hücre biçimlendirden koruma kilidi açın. M sütununu seçip aynı işlemi kilidi aktif ayarlayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect "123"
'kodlar
ActiveSheet.Protect "123"
End Sub

 

[xnanx]

İlginiz için teşekkür ederim. Fakat ekli dosyayı incelediyseniz orada - + değişken olduğu için kilitlediğim zaman makro hata veriyor, o yüzden işe yaramıyor.

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyanızı düzenledim bakınız.

 

[xnanx]

İlginiz için tekrar çok teşekkür fakat bu şekildede sol üstdeki kopyala butonu çalışmıyor.

 

[N.Ziya Hiçdurmaz]

yanıt

Hata aldığınız kodların başına

ActiveSheet.Unprotect "123"

sonuna

ActiveSheet.protect "123"

ekleyip deneyiniz.