› Excel e gli applicativi Microsoft Office › vba editor
-
AutoreArticoli
-
ciao a tutti.
ecco la richiesta. quando apro il vba editor vedo quanto in allegato. ci sono 2 progetti .XLAM
uno conosco di cosa si tratta ma non mi serve. il secondo non so cosa sia. sono protetti da pwd. come posso pulire/formattare questa parte di excel
grazie
Allegati:
You must be logged in to view attached files.Buongiorno Mandoz!
Premesso che come al solito si capisce poco, ti posso dire che hai semplicemente due files di Excel aperti e quando entri nel VBA editor ti fa vedere tutto quello che trova aperto!
Se uno dei due non lo vuoi vedere quando apri l'editor VBA sarà sufficiente non aprire altri files se non quello che ti interessa!
Ciao
È un modulo di classe che fa parte del progetto VBA del componente aggiuntivo (add-in) FUNCRES.XLAM che si installa insieme al componente aggiuntivo atpvbaen.XLAM ovvero Analysis ToolPak - VBA (it: Strumenti di analisi).
Probabilmente lo hai installato a tua insaputa
Ciao!
ciao marius. sicuramente è così. li ho installati, almeno uno, senza volerlo. per eliminarli cosa si può fare. non mi servono.
ciao ..77 apro un solo file e non è uno di quelli incriminati
ciao
Ciao vado a memoria e, quindi, controlla prima.
Togli la spunta da Risolutore e da Strumenti di analisi fra i Componenti aggiuntivi.
Ciao,
Mario
Ciao
Ho "rubacchiato" questa macro ad un amico di altro sito.
`Sub ListCOMAddins() Dim lngRow As Long, objCOMAddin As COMAddIn lngRow = 1 With ActiveSheet For Each objCOMAddin In Application.COMAddIns .Cells(lngRow, "A").Value = objCOMAddin.Description .Cells(lngRow, "B").Value = objCOMAddin.Connect .Cells(lngRow, "C").Value = objCOMAddin.progID lngRow = lngRow + 1 Next objCOMAddin End With End Sub`Mettila su un modulo di un file vuoto. Ti elencherà tutti i componenti aggiuntivi installati.
Poi troveremo il sistema per eliminarli (ma dovrebbe essere quello detto prima).
Ciao,
Mario
Un'altra alternativa semplicissima potrebbe essere questa
Sub Attiva_Risolutore() AddIns("Componente aggiuntivo Risolutore").Installed = True End Sub Sub Disattiva_Risolutore() AddIns("Componente aggiuntivo Risolutore").Installed = False End Sub -
AutoreArticoli
