Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

bloccare cella dopo invio

Ultimo Aggiornamento: 19/02/2019 22:57
Post: 1
Registrato il: 16/02/2019
Città: CATANIA
Età: 72
Utente Junior
Office 2010 PRO
OFFLINE
16/02/2019 15:08

Mi potete inviare un esempio esplicativo che ci consente il blocco della cella dopo l'inserimento di un dato. In modo che non possa essere modificato dall'operatore… ma solo dall'amministratore.

Abbiamo provato con il VBA... ma non riusciamo perché ignoranti in materia. Grazie
Post: 4.096
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Master
Excel 365
OFFLINE
16/02/2019 15:33

Ciao Salvatore

Quello che chiedi si può fare solo col VBA

Dovresti fare così

1) sbloccare le celle del foglio
2) proteggere il foglio con password (conosciuta solo dall’amministratore)
3) inserire questa macro nel modulo del foglio interessato

vb
Private Sub Worksheet_Change(ByVal Target as Range) 
    Target.Locked = True
End Sub


In tal modo ogni volta che si modifica una cella questa sarà bloccata e per modificarla sarà necessario sproteggere il foglio con la password.

Alfredo
Post: 1.225
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
19/02/2019 20:03

ciao a tutti [SM=x423028]
ciao Alfredo

ho provato a seguire quanto hai indicato, ma c'è qualcosa che non mi torna:

ti va di dare un'occhiata al file che allego?
grazie

EDIT:
Modifico per avvisarti che il foglio1 è protetto ma privo di password
Frank
[Modificato da tanimon 19/02/2019 20:08]







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Post: 3.261
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
19/02/2019 20:24

Buona sera, Frank.

L'istruzione:
 Target.Locked = True 

deve essere preceduta da:
- Sproteggere il Foglio di lavoro
e seguita da:
- Proteggere il Foglio di lavoro

Ipotizzando che la Password di protezione del Foglio di lavoro sia 123, il codice potrebbe essere:
 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect Password:="123"
        Target.Locked = True
    ActiveSheet.Protect Password:="123"
End Sub


Ovviamente, per evitare che qualche "curioso" scopra la Password di protezione del Foglio di lavoro, la visualizzazione dei Codici VBA dovrà necessariamente essere protetta da Password.



A disposizione.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 1.226
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
19/02/2019 20:40

ciao Giuseppe,
ormai è qualche tempo che ci conosciamoe sò benissimo che a Te,
a parte la pipì, non scappa niente.

Come Tu conosci la mia,
conosco altresì l'intenzione del Tuo intervento e Ti saluto
calorosamente.
P.S.
Ma non troppo.... furbacchione [SM=g27828]

ciao
Frank







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Post: 4.097
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Master
Excel 365
OFFLINE
19/02/2019 21:33

Ciao Frank e Giuseppe.

Il messaggio di errore era chiaro e Giuseppe mi ha preceduto.

Avevo scritto quella macro di fretta dimenticando la sprotezione/protezione del foglio.

Duole però constatare che il richiedente è sparito.

Alfredo
Post: 1.227
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
19/02/2019 22:04

Re:
alfrimpa, 19/02/2019 21.33:


Avevo scritto quella macro di fretta dimenticando la sprotezione/protezione del foglio.

Duole però constatare che il richiedente è sparito.




Ciao Alfredo,
è vero il richiedente è sparito [SM=x423045] ,
altrimenti Ti avrebbe segnalato quanto Ti ho segnalato io.

Non ho neanche dubbi sul fatto che Tu conoscessi il fatto di dovere
sproteggere/proteggere il foglio,

ma coglierei l'occasione per suggerirti di non farti prendere
dall'"ansia di risposta":

NESSUNO di noi rispondendo (correttamente o meno), vince qualcosa,
e la risposta che diamo, che viene visualizzata ANCHE da chi non è
registrato al Forum, se non è la soluzione corretta, in termini di affidabilità genera un riscontro negativo per il Forum.

Conosco anche Te da un pò,
e sò bene lo spirito con cui Ti dedichi al Forum, ma incorri in questo rischio.

Un saluto.
Frank







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Post: 4.098
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Master
Excel 365
OFFLINE
19/02/2019 22:50

Frank posso assicurarti che le ansie possono venirmi per mille motivi diversi ma certamente non per i forum su Excel.

Quella è stata una dimenticanza bella e buona e nient’altro.

Alfredo
Post: 1.228
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
19/02/2019 22:57

ciao Alfredo,

alfrimpa, 19/02/2019 22.50:

Frank posso assicurarti che le ansie possono venirmi per mille motivi diversi ma certamente non per i forum su Excel.



meglio così e ne sono felice per Te.
[SM=x423029]

Rimane il dubbio su come mai il richiedente sia sparito:
speriamo che prima o poi abbia voglia di spiegarcelo.

Ciao
Frank







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 07:28. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com