vba editor

[mandozPartecipante mandoz]

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.

[PMC77Partecipante PMC77 Karma: 18 pts]

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!

[Marius44Moderatore Marius44 Karma: 58 pts]

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!

[mandozPartecipante mandoz]

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

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao vado a memoria e, quindi, controlla prima.

Togli la spunta da Risolutore e da Strumenti di analisi fra i Componenti aggiuntivi.

 

Ciao,

Mario

[Marius44Moderatore Marius44 Karma: 58 pts]

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

[mandozPartecipante mandoz]

grandissimo marius

risolto

 

grazie

roberto

[OscarPartecipante Oscar Karma: 45 pts]

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

[mandozPartecipante mandoz]

Oscar. leggo solo ora. scusa e grazie.

[Autore]

Articoli