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