| | Post: 29 | Registrato il: 18/08/2019
| Età: 19 | Utente Junior | un saluto | | OFFLINE | |
|
04/08/2022 22:41 | |
Ciao a tutti.
Questa macro è per modificare solo certe colonne
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'------------------------------------------------------------------------------
'per scrivere modificare solo in certe colonne
If Not Intersect(Target, Range("C:C, D:D, E:E, F:F, G:G, H:H, K:K")) Is Nothing Then
ActiveSheet.Protect Password:="987654", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFiltering:=True
Else
ActiveSheet.Protect Password:="987654", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=False, AllowFiltering:=True
End If
'------------------------------------------------------------------------------
End Sub
è possibile modificare perchè funzioni dalla riga 4 in poi?
Grazie |
|
|