Eliminare fogli e macro collegate



  • 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!!!!