Excel - Quando uso la macro mi chiede la pwd

[Sasyjoe]

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

[Flash30005]

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ì?

[Anthony47]

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

[Sasyjoe]

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!

[Flash30005]

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