PASSWORD e BLOCCOSBLOCCO CELLE

Hai un problema con Excel?

Nuova discussione

PASSWORD e BLOCCO/SBLOCCO CELLE
di NICOLA (utente non iscritto) data: 28/04/2016 18:56:05
Ciao,
vorrei chiedere se è possibile fare quanto segue:
1) PASSWORD: ho un file excel che và a prendere i valori di alcune celle di parecchi altri file excel, che però sono tutti bloccati da password diverse (perchè file con dati personali di vari utenti). Ogni volta che apro il file excel di riepilogo devo ovviamente digitare per ogni singolo file excel la sua password, ed è una gran rottura. Esiste per caso una macro o qualcosa di simile che mi permette, inserendo le singole password, di sbloccare in automatico i singoli file, lasciando ovviamnete però la password nel foglio di riepilogo?
2) BLOCCO/SBLOCCO CELLE: avrei la necessità di fare in modo che dopo chevengono inseriti dati in un foglio excel, per evitare che qualcuno vada a correggere/cambiare i dati inseriti, che questi siano bloccati ... e che possano essere sbloccati per modifica solo tramite password. E' possibile?

Non ho allegato file perchè sarebbero molti, ma se è necessario provo a predisporne qualcuno di esempio.

Grazie a tutti

Ciao
di alfrimpa data: 28/04/2016 19:20:19
Ciao Nicola

Se devi aprire un file protetto da password (crittografato) la macro che vedi sotto.

Una volta che hai aperto il file con le solite istruzioni Protect, Password:="pippo" e Unprotect, Password:="pippo"

vai a sbloccare e ribloccare i singoli fogli.

Alfredo
Sub Macro2() Workbooks.Open Filename:="C:Excelalfi.xlsx", Password:="pippo" End Sub
risposta
di NICOLA (utente non iscritto) data: 28/04/2016 23:15:50
Grazie, ho provato ed è OK.
Per caso hai anche una soluzione per il punto 2) BLOCCA/SBLOCCA CELLE?
Grazie
di alfrimpa data: 28/04/2016 23:25:11
Per bloccare sbloccare singole celle devi usare le istruzioni che vedi sotto ad es. per il range a1:a10 ma se fai un esempio concreto è meglio

Alfredo
Range("a1:a10").Locked = True per bloccarle Range("a1:a10").Locked = False per lo sblocco
risposta
di NICOLA (utente non iscritto) data: 29/04/2016 08:49:01
Ciao alfarimpa,
non appena risco vedo di prepararti un file di esempio.
Ad ogni modo il mio problema è questo in merito alla richiesta su BLOCCA/SBLOCCA CELLE: avrei bisogno che quando un utente inserisce dei dati in un foglio di lavoro, in automatico venga bloccata la possibilità di modificarli (sia quelli appena inseriti, sia quelli già inseriti). Lo sblocco e la modifica deve essere consentita solo a chi gestisce il sistema tramite password.

Grazie

Ciao
risposta BLOCCO/SBLOCCO CELLE
di NICOLA (utente non iscritto) data: 29/04/2016 17:14:28
Ciao alfarimpa,
ho ellegato un file di esempio.
E' molto banale, si tratta di un database fornitori, che viene di volta in volta compilato da ogni utente.
Come ti ho scritto nella precedente risposta, quello che mi interessa è bloccare la modifica delle celle una volta inserite, e la possibilità di sbloccarle solo tramite password da chi gestisce il database.

Grazie
di alfrimpa data: 30/04/2016 09:20:21
Ciao Nicola

Quali sono i campi che vuoi bloccare? Tutta la riga da A a J

Qual è l'ultimo campo che viene compilato?

Vuoi che la protezione sia applicata attraverso un pulsante o automaticamente?

Alfredo
risposta
di NICOLA (utente non iscritto) data: 30/04/2016 12:27:45
Ciao alfarimpa,
vorrei che si bloccasseo tutte le celle previste per l'inserimento dati dopo che vengono inserite (ovvero tutte le celle delle righe di ogni colonna che presenta dei campi), e che la protezione sia inserita in modo automatico.
In merito all'ultimo campo che deve essere inserito non è stato definito, quindi magari imposta l'ultimo in ordine di colonna.

Sono stato un pò vago sopra, ma purtroppo quando apro l'allegato che avevo inserito se ne apre un altro riferito ad un albergo che non è il mio, ed il file originale l'ho lasciato in ufficio. Comunque spero tu sia riuscito a capirmi.

Ciao

Grazie

di alfrimpa data: 30/04/2016 15:52:18
Ciao Nicola

Prova con la macro che vedi sotto che ho inserito nel file che ti ho allegato (Nicola_Blocco_xlsm).

La password del foglio è "Nicola"

Va da sé che andrebbe protetto anche il progetto VBA (e quindi le macro)

Fai sapere se era questo quello che volevi.

Alfredo

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ur As Long
ur = Cells(Rows.Count, 1).End(xlUp).Row
If Not Intersect(Target, Range("J6:J" & ur)) Is Nothing Then
    ActiveSheet.Unprotect Password:="Nicola"
    Range("a" & Target.Row & ":" & "J" & Target.Row).Select
    Selection.Locked = True
    ActiveSheet.Protect Password:="Nicola"
    Range("A" & Target.Row).Select
End If
End Sub

Vuoi Approfondire?