Následující technika funguje i na nezamčeném listu. Podmínkou pro ni je to, že na listu existuje alespoň jedna odemčená buňka, kterou při aktivaci listu zaktivujeme:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Puvod As String
If Puvod = "" Then Puvod = Target.Address
If Target.Locked = False Then
Puvod = Target.Address
Else
MsgBox "Zavřeno": Range(Puvod).Select
End If
End Sub
Já sám při jejím použití žádnou zprávu nevydávám. Smysl toho, že se kurzor vrátí na výchozí místo, je podle mne dostatečné upozornění.citovat
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Puvod As String
If Puvod = "" Then Puvod = Target.Address
If Target.Locked = False Then
Puvod = Target.Address
Else
MsgBox "Zavřeno": Range(Puvod).Select
End If
End Sub
Já sám při jejím použití žádnou zprávu nevydávám. Smysl toho, že se kurzor vrátí na výchozí místo, je podle mne dostatečné upozornění.citovat
38495_ovladanitabulky.zip
RSS nejnovější články