Dosya kilitleme

[iaslan517]

Merhabalar, ekteki formda hücre biçimleri ve formüller ile ilgili değişmemesi için şifrelemek istemekteyim. fakat sol alt köşedeki ekle ve aktar butonları şifreledikten sonra butonları kullandığımda hata vermektedir. bu işlemin butonlar kullanılarak hata vermeden yapılabilmesi mümkünmüdür?

 

[antonio]

Sayfanızdaki kodları aşağıdaki örneğe göre düzenleyiniz.

Örnek:

Sub Kendiicindeaktarma()
Dim s1, s2 As Worksheet
set s1 = Sheets("falanca"):  set s2 = Sheets("filanca")
s1.unprotect:          s2.unprotect
....
kodlaranınız, kodlarınız...
....

s1.protect
s2.protect
End Sub

Sub Düğme1_Tıklat()
ActiveSheet.Unprotect '(Eğer hareketler sadece aktif sayfa içinde olup bitiyorsa)

.....
kodlarınız
....
ActiveSheet.Protect
End Sub