,## nel codice del foglio "Commesse" ##
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Hide As Boolean
   If Not Intersect(Target, Range("E:F")) Is Nothing Then
      If Target.Row > 1 And Target.Cells.Count = 1 Then 'controlla che la selezione sia una sola cella in colonna E o F
         Hide = Target.Column = 6 'colonna F nasconde, altrimenti mostra
         Riga_On_Off Target.Row, Hide ' richiama la sub col numero di riga della cella cliccata, nasconde/mostra
      End If
   End If
End Sub


' ## in Modulo1 ##
Sub deleteShapes() 'utilizzata una sola volta per eliminare tutte le forme (pulsanti) dal foglio
Dim i As Long
   For i = 1 To Foglio10.Shapes.Count
       Foglio10.Shapes.Item(1).Delete
   Next i
End Sub


Public Sub Riga_On_Off(Riga As Long, Hide As Boolean)
Dim v As String
   Application.ScreenUpdating = False
   v = Sheets("Commesse").Cells(Riga, 1) & ":" & Sheets("Commesse").Cells(Riga, 1)
   With Sheets("Movimenti Magazzino")
      .Unprotect Password:=12
      Sheets("Movimenti Magazzino").Columns(v).EntireColumn.Hidden = Hide
      .Protect Password:=12
   End With
   If Hide Then
      Sheets("Commesse").Range("G" & Riga) = "Chiusa"
   Else
      Sheets("Commesse").Range("G" & Riga) = "Aperta"
   End If
   Application.ScreenUpdating = True
End Sub

Private Sub CommandButton1_Click()
r = Split(CommandButton1.TopLeftCell.Address(, 0), "$")(1)  'indica la riga su cui si trova l'angolo in alto a sx del pulsante
riga_297_On (r)     'richiama la macro passando il valore della riga
End Sub

Sub riga_297_On(riga As Long)
    v = Sheets("Commesse").Cells(riga, 1)
    Sheets("Movimenti Magazzino").Columns(v).EntireColumn.Hidden = False
    Cells(riga, 6) = "Aperta"
End Sub

Private Sub Workbook_Open()
For Each ws In ThisWorkbook.Worksheets
    ws.Protect password:"12" , userinterfaceonly:=True
Next
End Sub

Private Sub Workbook_Open()
For Each ws In ThisWorkbook.Worksheets
    ws.Protect Password:="12", userinterfaceonly:=True
Next
End Sub