Zdravím. 
List je pravdepodobne ošetrený pomocou Change udalosti. Skús pozrieť cez editor (Alt-F11) do oblasti konkrétneho listu, či tam nie je nejaký takýto alebo podobný zápis a prípadne ho vymaž či uprav
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("B2:G2 ")) Is Nothing Then
Range("a1").Select
Worksheets("List2").Select
MsgBox "Tento list je na editovanie!."
End If
End Sub
Táto procedúra napr. zabraňuje vstupovať do oblasti B2:G2 a teda samozrejme zabraňuje jej editácii preskočením na List2 a upozornením.citovat
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("B2:G2 ")) Is Nothing Then
Range("a1").Select
Worksheets("List2").Select
MsgBox "Tento list je na editovanie!."
End If
End Sub
Táto procedúra napr. zabraňuje vstupovať do oblasti B2:G2 a teda samozrejme zabraňuje jej editácii preskočením na List2 a upozornením.citovat
\n
RSS nejnovější články