Satır Koruma için makro yazımı ne olur?

[Ulucdinc]

Değerli arkadaşlar
Bir satırı korumak için gerekli olan makro nedir?
Kolay gelsin herkese

 

[Mahmut Kök]

Eğer bildiğimiz manada satır korumasından bahsediyorsanız, satır seçili iken sağ tıklayıp, hücreleri biçimlendire gelip, oradan kilitli ve gizliyi seçersiniz ve sonra da sayfayı korumaya alırsınız. Kast ettiğiniz bu ise, makrosu aşağıda.



Sub Makro1()
ActiveSheet.Unprotect

a = activecell.Row
Rows(a).Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select

End Sub

 

[Ulucdinc]

Olmuyor

Çok teşekkür ediyorum ama ben anlattığınızı yapmama rağmen başaramadım sanıyorum. Çünkü ekteki dosyada da göreceksiniz butonlar ve form bağlantıları var söz konusu dosyada. Bunlar da kitleniyor ve bozuluyor. Bu olduğu zaman anlamı kalmıyor. Ben ekteki DATA dan oluşturulan girişleri korumak ve kimsenin bozmasına olanak vermemek istiyorum. Bu tablo otomatik bir sıra ile satırlar boyunaca aşağıya doğru indiğinden, bu fonksiyonun devam etmesi ve çalışabilmesi gerekiyor. Çok sıkıntı oldu bu bende ve çözemedim. Siz yardımcı olabilir misiniz? bana cevap yazdığınız için ayrıca teşekkür ederim. İyi çalışmalar.

 

[talatcd]

vba nın ThisWorkbook kısmına bu kodu yazarsan program şifre ister, korumadansa şifre daha mantıklı. Şifreni kendin belirle.

Private Sub Workbook_Open()
Application.Visible = False
Application.ScreenUpdating = False
Call xlSheetVeryHidden_All_Sheets
sifre = InputBox("", _
"SERVİS PROGRAMINI AÇMAK İÇİN -ŞİFRE- GİRİNİZ!", "Şifreyi Buraya Giriniz.")
If sifre = "İSTEDİĞİN ŞİFREYİ BURAYA YAZABİLİRSİN" Then
MsgBox "Şifre Doğrulandı", vbInformation, _
"Giriş Kabul Edildi"
Call xlSheetVisible_All_Sheets
Application.Visible = True
Sheets("Sayfa1").Select

Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Program Açılamadı", vbCritical, "Yanlış ŞİFRE"
Application.Quit
End If
End Sub