[Excel] Proteggere le celle da VBA

[flavio73]

Salve.
Terminato un programmino su excel che fa uso di macro ho cercato di proteggere le celle (da modifiche intenzionali o sbadate sovrascritture) ma, se lo faccio e lancio la macro, questa (siccome utilizza le celle protette) mi dà errore di debug.
Come faccio a far utilizzare il programma su altri pc, lasciando intatto il funzionamento delle macro pur proteggendo le celle?
Grazie.

[taurex]

puoi inserire prima della tua macro l'istruzione

Codice: Seleziona tutto

ActiveSheet.Unprotect

e alla fine

Codice: Seleziona tutto

ActiveSheet.Protect

[taurex]

ovviamente puoi anche usare una password:

Codice: Seleziona tutto

ActiveSheet.Protect ("taurex")

e

Codice: Seleziona tutto

 ActiveSheet.Unprotect ("taurex")

*** Non riportare col quote tutto il messaggio

[flavio73]

grazie, così è perfetto!!!

[flavio73]

Ancora una cosa...
Dopo che ho protetto il foglio vorrei proteggere anche le macro, in modo che sia impossibile la loro modifica senza password.
Ho provato con proteggi e condividi cartella di lavoro ma a quel punto le macro sono sì protette ma non funzionano di nuovo + (debug...)
Esiste un comando vba come ActiveSheet ecc... per poter fare ciò?
Grazie.

[Alexsandra]

ALT+F11 > Menù Strumenti > Proprieta VBA Project nella finestra che appare clicca su Protezione, metti la spunta al campo "Proteggi progetto ..."
Sotto nel campo password inserisci la tua password,la riconfermi,chiudi e salva.

PS. se dimentichi la password son cavoli amari

[flavio73]

Non dimentico MAI le mie password
Spero...
Grazie dell'aiuto, ora provo.

[taurex]

8) Non dimentico MAI le mie password
Spero...
Grazie dell'aiuto, ora provo.

Se le dimentichi non c'è problema....
la vulnerabilità delle pwd di Office è pari almeno alla sua diffusione

[Alexsandra]

Se le dimentichi non c'è problema....
la vulnerabilità delle pwd di Office è pari almeno alla sua diffusione

Non sarei così tanto ottimista
@flavio
Cerca di ricordarle che è meglio

[flavio73]

Ho notato che ogniqualvolta scrivo un programma contenente delle macro (che sul mio pc funziona benissimo) e cerco di utilizzarlo su altri pc (es. ufficio) il programma non funziona più e dà errore di debug!
Eppure il sistema operativo e la versione excel è la stessa. Anche i comandi utilizzati nelle macro sono i classici comandi installati su tutte le versioni di excel. A che cosa può essere dovuto questo problema?

[Alexsandra]

Il foglio che contiene le macro è attivo? se ti manda in debug è probabile che lo hai aperto ma non attivo.
prova con nessun file di Excel aperto (a parte quello che ha le macro)e vedi se ti dà errore

[Anthony47]

Ciao flavio73,
prova a postare un esempio di macro che va in debug, specificando la riga in errore (quella evidenziata quando entri in debug).

A presto,

[Alexsandra]

Vedi il suo post sopra il mio, dice che sul suo pc funziona, dovrebbe solo fare la prova che ho suggerito, può essere che lanci l'apertura di un'altro file e poi cerchi qualcosa nel precedente.

[flavio73]

Dietro front!
Coloro che usano (o perlomeno tentano di usare) il mio progranma mi specificano che il foglio con le macro è attivo ma lanciandole si visualizza:
runtime error 1004
definito dall'applicazione o dall'oggetto.
Che diavolo è 'sto runtime?

[Anthony47]

Ciao flavio73,

prova a postare un esempio di macro che va in debug, specificando la riga in errore (quella evidenziata quando entri in debug).

Riconfermo.

Ciao,

[flavio73]

Di fatto non c'è nessun debug, solo un runtime error 1004 che dà la possibilità di cliccare sulla parola "fine", e basta.
Così mi dicono, perchè io sono sul mio pc, (dove tutto funziona) e non ho modo di controllare su un altro. Se desse un debug farei come mi hai già suggerito. Non appena potrò utilizzare un altro pc direttamente cercherò di essere più chiaro. Grazie.

[flavio73]

Avevate ragione! (ovviamente). Le persone non riuscivano ad indicarmi il debug della macro perchè io avevo protetto le macro stesse per renderle non modificabili!
Ho proceduto personalmente indicando così il seguente errore di debug:

Codice: Seleziona tutto

Selection.Sort Key1:=Range(“C1”),Order1:x1Ascending,Header:=x1Guess,_OrderCustom:=1,MatchCase:=False,Orientation:=x1TopBottom,_DataOption1:=x1SortNormal

Ecco la riga di comando che dà runtime error 1004!
Potete aiutarmi?

[Alexsandra]

fai un ordinamento, bisogna vedere quello che c'è prima, comunque quell'errore è riferito ad una chiamata "Fuori percorso", cioè stai facendo un'operazione o su un file non attivo, oppure hai degli intervalli non definiti.
posta tutta la macro, si vede subito dov'è l'inghippo

[flavio73]

Ecco il tutto:

Codice: Seleziona tutto

 Sub nomemacro()
   ActiveWorkbook.Unprotect ("password")
   ActiveSheet.Unprotect ("password")
    Columns("C:D").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
     DataOption1:=xlSortNormal

     Range("D:D").SpecialCells(xlCellTypeBlanks).Select
     Selection.Delete Shift:=xlUp
   
    Range("H1").Select
    Selection.Copy
    Range("G1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=CORREL(R1C1:R1000C1,R1C4:R1000C4)"
    Range("G2").Select

    Range("G1").Select
    Selection.Copy
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown
   
    ActiveSheet.Protect ("password")
    ActiveWorkbook.Protect ("password")
   
End Sub

[flavio73]

Ovviamente le faccine che ridono le ha messe adesso al posto di duepunti D!