Risolto Macro Elimina Macro da bottone

iGab1984

Nuovo utente
8 Agosto 2019
11
1
Voghera
Excel 2013
0
Ciao a tutti,
ho un richiesta che penso non sia stata fatta ancora qui sul forum. L'ho cercata ma senza risultati.
Ho un file che viene generato direttamente da un "masterfile".
Il file viene copiato solo con i dati "valore", senza portarsi dietro le formule per una questione di peso del file finale.

Nel file che viene creato, sul logo, ho applicato una macro per il salvataggio direttamente in un percorso specifico.
La macro è del "Masterfile", quindi escludo l'eliminazione della macro, ma vorrei comunque sapere se esiste un modo per eliminare la macro dal solo bottone (logo).

Ho bisogno di questo per evitare che una volta che il file verrà aperto su un altro PC, non compaia il messaggio di richiesta aggiornamento o di attivazione del contenuto in quanto chi lo riceve non ha bisogno di quella macro.

Spero di aver spiegato abbastanza comprensibilmente il mio problema.

Fatemi sapere se vi occorre altro.

Grazie
Gabriele
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
18.842
113
Como
2011MAC 2016WIN
353
Ciao,
la richiesta non è chiarissima, almeno per me, però se vuoi eliminare la macro basterebbe salvare il file con estensione .xlsx invece che .xlsm
 

iGab1984

Nuovo utente
8 Agosto 2019
11
1
Voghera
Excel 2013
0
Ciao,
la richiesta non è chiarissima, almeno per me, però se vuoi eliminare la macro basterebbe salvare il file con estensione .xlsx invece che .xlsm
Ciao ges,
la macro è su un altro file (Masterfile) e quando creo dal mastefile il file solo con valori, la macro gira perché il masterfile è aperto. Chi riceve il file solo con valori non ha anche il masterfile, di conseguenza riscontra i messaggi sopra.

Il file che condivido con i clienti è già in formato xlsx

Purtroppo, essendo di gestione interna e per lavoro, non posso condividerti file :(

Fammi sapere se così ti risulta più chiara la situazione.

Grazie
Gabriele
 

Cesco80

Utente abituale
13 Luglio 2019
204
28
Verona Provincia
2016
8
Ciao a tutti,
ho un richiesta che penso non sia stata fatta ancora qui sul forum. L'ho cercata ma senza risultati.
Ho un file che viene generato direttamente da un "masterfile".
Il file viene copiato solo con i dati "valore", senza portarsi dietro le formule per una questione di peso del file finale.

Nel file che viene creato, sul logo, ho applicato una macro per il salvataggio direttamente in un percorso specifico.
La macro è del "Masterfile", quindi escludo l'eliminazione della macro, ma vorrei comunque sapere se esiste un modo per eliminare la macro dal solo bottone (logo).

Ho bisogno di questo per evitare che una volta che il file verrà aperto su un altro PC, non compaia il messaggio di richiesta aggiornamento o di attivazione del contenuto in quanto chi lo riceve non ha bisogno di quella macro.

Spero di aver spiegato abbastanza comprensibilmente il mio problema.

Fatemi sapere se vi occorre altro.

Grazie
Gabriele
Da quello che ho capito io, quando copi riporti anche il bottone della macro, basta modificare la macro escludendo quest'ultimo dalla copia.
Riesci a postare il codice?
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
18.842
113
Como
2011MAC 2016WIN
353
Cioè nei file .xlsx rimane il bottone? E' quello che vorresti togliere?
 

iGab1984

Nuovo utente
8 Agosto 2019
11
1
Voghera
Excel 2013
0
Ciao a tutti,
ho un richiesta che penso non sia stata fatta ancora qui sul forum. L'ho cercata ma senza risultati.
Ho un file che viene generato direttamente da un "masterfile".
Il file viene copiato solo con i dati "valore", senza portarsi dietro le formule per una questione di peso del file finale.

Nel file che viene creato, sul logo, ho applicato una macro per il salvataggio direttamente in un percorso specifico.
La macro è del "Masterfile", quindi escludo l'eliminazione della macro, ma vorrei comunque sapere se esiste un modo per eliminare la macro dal solo bottone (logo).

Ho bisogno di questo per evitare che una volta che il file verrà aperto su un altro PC, non compaia il messaggio di richiesta aggiornamento o di attivazione del contenuto in quanto chi lo riceve non ha bisogno di quella macro.

Spero di aver spiegato abbastanza comprensibilmente il mio problema.

Fatemi sapere se vi occorre altro.

Grazie
Gabriele
Da quello che ho capito io, quando copi riporti anche il bottone della macro, basta modificare la macro escludendo quest'ultimo dalla copia.
Riesci a postare il codice?
Ciao,
il codice di salvataggio è questo di seguito ed è quello assegnato al bottone/Logo:

Save File Macro:
Sub SavePickList()

'Sub Save
   
    If Range("J18") = "1" And Range("R1") = "RTV" Then
   
    nome = Range("P1").Value & "_" & Range("Q1").Value
    ChDir "S:\logistic\SupplyChain\RETURNS\- RTV\CHECKLIST_SENT\"
    ActiveWorkbook.SaveAs Filename:= _
    "S:\logistic\SupplyChain\RETURNS\- RTV\CHECKLIST_SENT\" & nome, _
    FileFormat:=51, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Columns("I:S").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveWorkbook.Save
    MsgBox "File salvato correttamente con il nome: " & nome & ".xlsx in CHECKLIST_SENT"
     
    Exit Sub
     
    Else

'Sub Save

    If Range("J18") = "" And Range("R1") = "RTV" Then
    nome = Range("P1").Value & "_" & Range("Q1").Value
    ChDir "S:\logistic\SupplyChain\RETURNS\- RTV\CHECKLISTS_COMPLETED\"
    ActiveWorkbook.SaveAs Filename:= _
    "S:\logistic\SupplyChain\RETURNS\- RTV\CHECKLISTS_COMPLETED\" & nome, _
    FileFormat:=51, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Columns("I:S").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveWorkbook.Save
    MsgBox "File salvato correttamente con il nome: " & nome & ".xlsx in CHECKLIST_COMPLETED"
   
    Exit Sub
   
    Else
   
'Sub Save

    If Range("R1") = "PRN" Then
   
    nome = Range("P1").Value & "_" & Range("Q1").Value
    ChDir "S:\logistic\SupplyChain\RETURNS\- PRN\"
    ActiveWorkbook.SaveAs Filename:= _
    "S:\logistic\SupplyChain\RETURNS\- PRN\" & nome, _
    FileFormat:=51, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Columns("I:S").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveWorkbook.Save
    MsgBox "File salvato correttamente con il nome: " & nome & ".xlsx in PRN"
     
    End If
    End If
    End If
End Sub
Vorrei aggiungere alla fine del salvataggio una condizione che elimini questa macro dal bottone (che non voglio eliminare in quanto logo aziendale).

Ciao
Gabriele
 

iGab1984

Nuovo utente
8 Agosto 2019
11
1
Voghera
Excel 2013
0
Cioè nei file .xlsx rimane il bottone? E' quello che vorresti togliere?
Si nel file .xlsx rimane il bottone con la macro legata al masterfile .xlsm.
Io vorrei solo sapere se esiste una macro che elimini dal bottone la macro di salvataggio, ma senza eliminare la macro dal masterfile. In sostanza che dissoci la macro dal bottone.
 
Ultima modifica:

Powerwin

VBA Expert
Expert
17 Marzo 2016
3.782
63
vicino a Milano
2019
56
Una soluzione potrebbe essere quella di creare un bottone uguale e incollare quello al posto di quello con associata la macro se si vuole mantenere il logo
Oppure associare quella macro ad una cella del foglio e lasciare libero il pulsante
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
18.842
113
Como
2011MAC 2016WIN
353
Visual Basic:
For Each myShape In ActiveSheet.Shapes
  myShape.Delete
Next
Questa macro elimina tutti i bottoni del foglio
Se non sei nel foglio attivo cambia Activesheet con il nome del foglio
 

iGab1984

Nuovo utente
8 Agosto 2019
11
1
Voghera
Excel 2013
0
Una soluzione potrebbe essere quella di creare un bottone uguale e incollare quello al posto di quello con associata la macro se si vuole mantenere il logo
Ciao Power, avevo già fatto un bottone "Save Me" che veniva eliminato per intero alla fine della macro...
Ma visto che
Visual Basic:
For Each myShape In ActiveSheet.Shapes
  myShape.Delete
Next
Questa macro elimina tutti i bottoni del foglio
Se non sei nel foglio attivo cambia Activesheet con il nome del foglio
Si la macro per eliminare il bottone la conoscevo, ma non era la mia necessità. Io il bottone non voglio eliminarlo, voglio solo che non abbia più una macro associata!
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
18.842
113
Como
2011MAC 2016WIN
353
Ma io non ho capito come fa a rimanere la macro se salvi il file in .xlsx :unsure:
 

iGab1984

Nuovo utente
8 Agosto 2019
11
1
Voghera
Excel 2013
0
Una soluzione potrebbe essere quella di creare un bottone uguale e incollare quello al posto di quello con associata la macro se si vuole mantenere il logo
Oppure associare quella macro ad una cella del foglio e lasciare libero il pulsante
Ciao Flavio,
si avevo inizialmente creato un bottone "Save Me" che a fine macro si autoeliminava, ma volevo sfruttare il logo, far girare la macro, e una volta finita la macro dissociare la macro dal bottone. Manualmente si fa, faccio click di dx sul bottone, assegna macro, canc sulla dicitura in alto e click su ok. Così facendo mi rimane il bottone senza macro associate.

Io vorrei sapere se esiste una macro che faccia questo:
1. click di dx sul bottone
2. assegna macro
3.canc sulla dicitura in alto
4.click su ok
5.Macro dissociata
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
18.842
113
Como
2011MAC 2016WIN
353
Ma questa è una cosa contro le leggi della natura Stranito_pazzo
Puoi allegare un file .xlsx senza dati sensibili in cui è presente la macro?
 

iGab1984

Nuovo utente
8 Agosto 2019
11
1
Voghera
Excel 2013
0
Ma questa è una cosa contro le leggi della natura Stranito_pazzo
Puoi allegare un file .xlsx senza dati sensibili in cui è presente la macro?
La macro funziona benissimo, io il problema non ce l'ho sulla macro 🙂
Io vorrei solo sapere se esiste una macro che dissocia una macro esistente da un bottone, senza eliminare la macro o il bottone.
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
18.842
113
Como
2011MAC 2016WIN
353
La macro funziona benissimo
Non sto discutendo se funziona o meno la macro, ma poichè dici che nel file che salvi in estensione .xlsx rimane la macro associata al bottone ( e io su questo ho molti dubbi, per non dire certezze ) mi piacerebbe vedere quel file.
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
18.842
113
Como
2011MAC 2016WIN
353
Come immaginavo nel file non c'è nessuna macro (e non ci poteva essere!).
C'è invece un collegamento, se vuoi eliminare quello puoi usare questa macro
Visual Basic:
Sub EliminaCollegamenti()
    Dim WB As Workbook
    Set WB = Application.ActiveWorkbook
    If Not IsEmpty(WB.LinkSources(xlExcelLinks)) Then
        For Each link In WB.LinkSources(xlExcelLinks)
            WB.BreakLink link, xlLinkTypeExcelLinks
        Next link
    End If
End Sub
 

iGab1984

Nuovo utente
8 Agosto 2019
11
1
Voghera
Excel 2013
0
Come immaginavo nel file non c'è nessuna macro (e non ci poteva essere!).
C'è invece un collegamento, se vuoi eliminare quello puoi usare questa macro
Visual Basic:
Sub EliminaCollegamenti()
    Dim WB As Workbook
    Set WB = Application.ActiveWorkbook
    If Not IsEmpty(WB.LinkSources(xlExcelLinks)) Then
        For Each link In WB.LinkSources(xlExcelLinks)
            WB.BreakLink link, xlLinkTypeExcelLinks
        Next link
    End If
End Sub
Grandissimo! Mi hai illuminato MiInchino

Il mio problema era eliminare il collegamento al file master dal file estrapolato.

Ho risolto con questa aggiunta alla macro sopra:

Save File Macro:
Sub SavePickList()

'Sub Save
    
    If Range("J18") = "1" And Range("R1") = "RTV" Then
    
    nome = Range("P1").Value & "_" & Range("Q1").Value
    ChDir "S:\logistic\SupplyChain\RETURNS\- RTV\CHECKLIST_SENT\"
    ActiveWorkbook.SaveAs Filename:= _
    "S:\logistic\SupplyChain\RETURNS\- RTV\CHECKLIST_SENT\" & nome, _
    FileFormat:=51, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Columns("I:S").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveWorkbook.BreakLink Name:= _
        "S:\logistic\SupplyChain\RETURNS\DDT\DDT_Creator\RTV_PRN_Picklist_Creator.xlsm" _
        , Type:=xlExcelLinks
    ActiveWorkbook.Save
    MsgBox "File salvato correttamente con il nome: " & nome & ".xlsx in CHECKLIST_SENT"
                
    Exit Sub
      
    Else

'Sub Save

    If Range("J18") = "" And Range("R1") = "RTV" Then
    nome = Range("P1").Value & "_" & Range("Q1").Value
    ChDir "S:\logistic\SupplyChain\RETURNS\- RTV\CHECKLISTS_COMPLETED\"
    ActiveWorkbook.SaveAs Filename:= _
    "S:\logistic\SupplyChain\RETURNS\- RTV\CHECKLISTS_COMPLETED\" & nome, _
    FileFormat:=51, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Columns("I:S").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveWorkbook.BreakLink Name:= _
        "S:\logistic\SupplyChain\RETURNS\DDT\DDT_Creator\RTV_PRN_Picklist_Creator.xlsm" _
        , Type:=xlExcelLinks
    ActiveWorkbook.Save
    MsgBox "File salvato correttamente con il nome: " & nome & ".xlsx in CHECKLIST_COMPLETED"
          
    Exit Sub
    
    Else
    
'Sub Save

    If Range("R1") = "PRN" Then
    
    nome = Range("P1").Value & "_" & Range("Q1").Value
    ChDir "S:\logistic\SupplyChain\RETURNS\- PRN\"
    ActiveWorkbook.SaveAs Filename:= _
    "S:\logistic\SupplyChain\RETURNS\- PRN\" & nome, _
    FileFormat:=51, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Columns("I:S").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveWorkbook.BreakLink Name:= _
        "S:\logistic\SupplyChain\RETURNS\DDT\DDT_Creator\RTV_PRN_Picklist_Creator.xlsm" _
        , Type:=xlExcelLinks
    ActiveWorkbook.Save
    MsgBox "File salvato correttamente con il nome: " & nome & ".xlsx in PRN"
    
    End If
    End If
    End If
End Sub
In sostanza prima del msgbox elimina il solo collegamento esistente.

Grazie infinte a tutti!:felice:
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!