Macro attivata da tasto destro

Hai un problema con Excel?

Nuova discussione

Tasto destro
di Riccardo (utente non iscritto) data: 12/11/2009
Ho creato questa macro per far apparire un form alla pressione del tasto destro

e l'ho inserita in thisworkbook del file tastodx.xlsb, per farla partire automaticamente
ho salvato il file in xlstart per avviarlo automaticamente con l'apertura di excel

il problema è questo:
funziona solo per il file tastodx.xlsb, in cui è stata inserita la macro; io vorrei che la macro funzionasse per tutte le cartelle aperte.

e' possibile.

grazie anticipatamente

riccardo
la macro

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type

Sub Repos()
'Richiama le API POINAPI per leggre la posizione del cursore
Dim lngCurPos As POINTAPI
GetCursorPos lngCurPos
'Definisce la distanza del form dalla posizione del cursore
ANALISI.Top = lngCurPos.y * 0.75
ANALISI.Left = lngCurPos.x * 0.75 + 50
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    'Richiama la funzione per posizionare il form vicino al cursore
    Call Repos
    On Error GoTo handleCancel
    Application.EnableCancelKey = xlErrorHandler
    
    ANALISI.Show
    'Cancel = True
    Exit Sub
handleCancel:
If Err = 18 Then
    MsgBox "You cancelled"
End If
    'Cancel = True
    Exit Sub
End Sub

di Riccardo (utente non iscritto) data: 17/11/2009
Secondo me devi inserirla nel personal.xls
ciao
riccardo

Vuoi Approfondire?