DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Deactivate()
Application.OnKey "~"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Locked = True Then Application.OnKey "~", "sec"
End Sub
Sub sec()
Application.SendKeys "{TAB}"
End Sub
Sub Auto_Close()
Application.OnKey "~"
End Sub