Eliminare fogli e macro collegate
Hai un problema con Excel? 
Eliminare fogli e macro collegate
di marxitpa data: 01/12/2013 17:10:30
In un file sono presenti diversi fogli. Alcuni di questi fanno riferimento a macro.
E' possibile eliminare alcuni fogli e in contemporanea le macro collegate?
grazie.
di patel data: 01/12/2013 17:24:20
se le macro sono inserite direttamente nel modulo del relativo foglio vengono eliminate insieme al foglio, altrimenti la vedo abbastanza complicata, allega un esempio con spiegazioni
di marxitpa data: 01/12/2013 17:58:55
Con il codice seguente è possibile eliminare il foglio specificato in F1.
Il foglio in effetti viene eliminato.
Tutte le macro rimangono.
Sei così gentile da farmi capire quando 'le macro sono inserite direttamente nel modulo del relativo foglio'?
nb: non ho un'esigenza specifica ma solo per il gusto di cercare ...
Sub EliminaUnFoglio()
Dim NomeFoglio, Risposta
Dim FL As Boolean
Dim WS As Worksheet
NomeFoglio = [F1]
FL = False
For Each WS In Worksheets
If LCase(WS.Name) = LCase(NomeFoglio) Then
FL = True
Risposta = MsgBox("Sicuro di voler eliminare il foglio " & NomeFoglio & "?", vbYesNo, "ATTENZIONE")
If Risposta = vbNo Then Exit Sub
Application.DisplayAlerts = False
Sheets(NomeFoglio).Delete
Application.DisplayAlerts = True
MsgBox "il foglio " & NomeFoglio & " è stao eliminato"
End If
Next
If FL = False Then
MsgBox "il foglio " & NomeFoglio & " non esiste" & vbCr _
& "Impossibile compiere l'operazione"
End If
End Sub |
di patel data: 01/12/2013 18:21:45
crea un pulsante nel foglio1, la macro relativa a quel pulsante viene creata nel modulo Foglio1 e non in Moduli, se elimini Foglio1 sparisce anche il relativo modulo
di marxitpa (utente non iscritto) data: 01/12/2013 18:52:11
grazie!!!!
Vuoi Approfondire?