Ahoj, prepísaniu ešte možno zabrániť aj zákazom vstupu do oblasti, kde sú dáta.Tým vlastne nedostane možnosť niečo zmeniť. Obyčajný užívateľ to neprekoná. Napr. zachytením udalosti SelectioChange umiestnenej cez VBA nie v module ale v konkrétnom liste:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oblast As Range
Set oblast = Intersect(Target, [a1:c5])
If Not oblast Is Nothing Then Target.Next.Select
End Sub
Tu sa jedná o oblasť A1:C5, treba si samozrejme upraviť podľa seba a dáta v súbore podľa možnosti dať do nejakej súvislejšej oblasti.citovat
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oblast As Range
Set oblast = Intersect(Target, [a1:c5])
If Not oblast Is Nothing Then Target.Next.Select
End Sub
Tu sa jedná o oblasť A1:C5, treba si samozrejme upraviť podľa seba a dáta v súbore podľa možnosti dať do nejakej súvislejšej oblasti.citovat
22228_umiestnenieudalosti.jpg
\n
RSS nejnovější články