Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel - Quando uso la macro mi chiede la pwd

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel - Quando uso la macro mi chiede la pwd

Postdi Sasyjoe » 25/05/12 18:54

Salve gente,
ho questo modulo:

Codice: Seleziona tutto
Sub Ordina()
    ActiveSheet.Unprotect
    Range("P23024:P23035").Select
    ActiveWorkbook.Worksheets("Report finanziario").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Report finanziario").Sort.SortFields.Add Key:= _
        Range("P23024"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Report finanziario").Sort
        .SetRange Range("P23024:P23035")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("N23028").Select
    ActiveWindow.SmallScroll Down:=24
    Range("P23039:P23083").Select
    ActiveWorkbook.Worksheets("Report finanziario").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Report finanziario").Sort.SortFields.Add Key:= _
        Range("P23039"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Report finanziario").Sort
        .SetRange Range("P23039:P23083")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B16:K16").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("Report finanziario").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Report finanziario").Sort.SortFields.Add Key:= _
        Range("B16:B23015"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Report finanziario").Sort
        .SetRange Range("B16:K23015")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.Calculation = xlCalculationManual
    Range("B16:M23015").Select
    Selection.Sort Key1:=Range("M16"), Order1:=xlDescending, Header:=xlNo _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Application.Calculation = xlCalculationAutomatic  '
    Application.Calculation = xlCalculationManual
    Range("B16:L23015").Select
    Selection.Sort Key1:=Range("L16"), Order1:=xlDescending, Header:=xlNo _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Range("E12").Select
    Application.Calculation = xlCalculationAutomatic  '
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
    , AllowFormattingColumns:=True, AllowFormattingRows:=True

End Sub


Quando applico questa macro mi chiede la pwd!
Come posso fare per risolvere questo problema?
Vorrei che la macro si eseguisse normalmente. Per non farmi chiedere la password devo proteggere il foglio senza poter inserire la mia password privata.
Grazie.

Se avete anche consigli su come migliorare la macro, li accetto volentieri!
Ciao
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Sponsor
 

Re: Excel - Quando uso la macro mi chiede la pwd

Postdi Flash30005 » 25/05/12 22:45

Non è molto chiaro se hai il foglio protetto e quindi non puoi modificarlo con la macro ma, in questo caso, non ti chiede la password, avrai un messaggio di errore, è così?
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel - Quando uso la macro mi chiede la pwd

Postdi Anthony47 » 25/05/12 23:17

Da quello che scrivi mi sembra che ti meravigli per il fatto che, avendo protetto il foglio con password, la macro ti chiede la password per sproteggerlo.
Come opzioni:
-proteggi il foglio senza password, come d'altra parte fa la macro in fondo (riga ActiveSheet.Protect)
-proteggi con password e poi sproteggi con la password (ActiveSheet.Unprotect Password:="Segreta")
-proteggi il foglio solo dagli utenti, come descritto qui: viewtopic.php?f=26&t=94652#p541772
In questo modo la macro non deve sproteggere il foglio per le sue elaborazioni.

Per favore assegna al codice l' etichetta "Code", la lettura della discussione risultera' piu' semplice; selezioni il testo, premi il tasto Code che trovi in testa al riquadro di scrittura.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel - Quando uso la macro mi chiede la pwd

Postdi Sasyjoe » 27/05/12 16:17

Ragazzi il problema è questo:

io non so scrivere macro, io faccio registra macro, faccio le mie azioni, poi stoppo la registrazione e faccio i copia e incolla dei moduli.

allora la mia macro è corretta, cioè la mia macro fa quello che voglio tranne che mi protegge/sprotegge foglio.
Vorrei poter applicare la macro che ho postato anche se proteggo il foglio e se la pwd è "Pippo" ad esempio.

Spero di essere stato chiaro.
Grazie!
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: Excel - Quando uso la macro mi chiede la pwd

Postdi Flash30005 » 27/05/12 18:12

Allora... Apri una cartella vuota,
in un modulo inserisci questa semplice macro:
Codice: Seleziona tutto
Sub Scrivi()
strPassword = "Pippo"
ActiveSheet.Unprotect Password:=strPassword
'....
Range("A1").Value = "Scrittura"  'Intero codice Tuamacro al posto di questa riga
'....
ActiveSheet.Protect Password:=strPassword
End Sub

Avvi la macro e troverai in A1 la scrittura.
Ora ti è impedito modificare qualsiasi cella del foglio attivo
lo potrai fare "solo" attraverso la macro e saranno fatte tutte le operazioni contenute tra le due righe di codice segnate con puntini ('...)

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Excel - Quando uso la macro mi chiede la pwd":


Chi c’è in linea

Visitano il forum: ninai e 12 ospiti