Merhaba,
VBA ile farklı dosyadan veri çekiyorum, lakin VBA ile hücre kilitlediğimde;
Range("K3").CopyFromRecordset Rs de hata alıyorum acaba sorun nedir?
Hata aldığım Kod;
Hücre Kilitleme Kodu;
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Object
ActiveSheet.Unprotect "123"
With Columns("K:V")
.Locked = False
.FormulaHidden = False
End With
Set LastRow = Sayfa1.Range("K104857:V104857").End(xlUp)
Columns("K:V").SpecialCells(xlCellTypeConstants, 23).Locked = True
şifre = "123"
ActiveSheet.Protect şifre
End Sub
VBA ile farklı dosyadan veri çekiyorum, lakin VBA ile hücre kilitlediğimde;
Range("K3").CopyFromRecordset Rs de hata alıyorum acaba sorun nedir?
Hata aldığım Kod;
Hücre Kilitleme Kodu;
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Object
ActiveSheet.Unprotect "123"
With Columns("K:V")
.Locked = False
.FormulaHidden = False
End With
Set LastRow = Sayfa1.Range("K104857:V104857").End(xlUp)
Columns("K:V").SpecialCells(xlCellTypeConstants, 23).Locked = True
şifre = "123"
ActiveSheet.Protect şifre
End Sub