Makrolar ile Kilitlenmemiş Hücreleri Seçme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Excel'de bir hücreye üst resimdeki gibi kilit konmamışsa, üstteki örnek kodumuz çalışma sayfasındaki bu hücrelerin seçilmesini sağlamaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub Kilitlenmemis_Hucreler()
Dim WorkRange As Range
Dim FoundCells As Range
Dim Cell As Range
Set WorkRange = ActiveSheet.UsedRange
For Each Cell In WorkRange
If Cell.Locked = False Then
If FoundCells Is Nothing Then
Set FoundCells = Cell
Else
Set FoundCells = Union(FoundCells, Cell)
End If
End If
Next Cell
If FoundCells Is Nothing Then
MsgBox "All cells are locked."
Else
FoundCells.Select
End If
End SubAçıklama
Excel'de bir hücreye üst resimdeki gibi kilit konmamışsa, üstteki örnek kodumuz çalışma sayfasındaki bu hücrelerin seçilmesini sağlamaktadır.
Faydalanılması temennisiyle
