
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
TASTODESTRO.Show
Exit Sub
handleCancel:
If Err = 18 Then
MsgBox "You cancelled"
End If
Exit Sub
End Sub
'codice del form TASTODESTRO
Private Sub CmdAnnulla_Click()
Unload Me
Exit Sub
End Sub
Private Sub CommandButton1_Click()
Application.Run "analisi.xlsb!INIZIALIZZA"
End Sub |
