PopAds.net - The Best Popunder Adnetwork

Protezione di un foglio Excel

  • Protezione foglio di apoben64
    Ho realizzato un modulo su un foglio protetto e in cui inserisco i dati solo in alcune celle, per caricare nuovi dati ho creato questa macro :
    Sub Nuovoinserimento()
    x = MsgBox("Vuoi inserire nuovi dati ?", vbYesNo)
    If x = vbYes Then
    Worksheets("modulo").Select
    Range("B8,D8,B11,B13,D13,B15,B17,B18,D17,B18,B19,B20,B21,B22").Select
    Selection.Clear
    End If
    Worksheets("fax").Select
    Range("d11") = Date
    End Sub
    Il problema stà nel fatto che la macro non si esegue in quanto il foglio è protetto, ho provato ad inserire qualche istruzione come ActiveWorksheets.Unprotect ma non funziona ugualmente qualcuno mi può aiutare

    di Mauro
    Siccome usi + fogli ti conviene associare il metodo "Protect" o "Unprotect" direttamente al foglio che stai usando. Se usi Activeworksheet dovrebbe andare bene lo stesso ma è + facile fare confusione.
    Quindi:
    '....
    If x = vbYes Then
    Worksheets("modulo").Unprotect
    Worksheets("modulo").Select
    '.....
    Worksheets("modulo").Protect
    End If
    Worksheets("fax").Unprotect
    Worksheets("fax").Select
    '....
    Worksheets("fax").Protect

    di apoben64
    Grazie Mauro , ho inserito l'istruzione prima del "messaggio" e funziona, tra l'altro non ho messo l'istruzione .Protect in quanto provando il foglio mi rimane ancora protetto.