creazione nuovi fogli apertura file



  • creazione nuovi fogli apertura file
    di tacchino (utente non iscritto) data: 29/03/2014 00:28:40

    Salve.
    Avrei bisogno che ad ogni apertura della cartella venisse creato un nuovo foglio e che avessi la possibilita di rinominarlo.
    Grazie




  • di Lucas87 data: 29/03/2014 13:23:34

    Ciao
    Metti il codice in ThisWorkbook
     
    Private Sub Workbook_Open()
    n = InputBox("Inserire il nome per il nuovo foglio: ")
    If n = "" Then
        Worksheets.Add after:=Sheets(Sheets.Count)
    Else
        Worksheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = n
    End If
    End Sub