DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
ActiveSheet.Unprotect "Sayfa Koruma Parolanızı Buraya Yazın"
Else
ActiveSheet.Protect "Sayfa Koruma Parolanızı Buraya Yazın"
End If
End Sub