Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Inserimento dati in una cella protetta?

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

Re: Inserimento dati in una cella protetta?

Postdi usag » 13/01/14 15:25

Ciao Ricky,
ho aperto il tuo file; anche tu allora hai lasciato sprotette le 2 celle gialle in cui Excel scrive, tramite la macro.
E questa è l'esatta impostazione che sono COSTRETTO ad usare anch'io, pena l'errore famoso.
Infatti, spostando il mio esempio sul tuo file, io vorrei che le celle gialle in cui Excel deve scrivere divenissero 'protette' a scrittura ultimata, in modo da non esser successivamente modificabili 'a mano' da parte dell'utente finale.
Capito adesso cosa intendevo io?
Il funzionamento del mio programma, allo stato attuale delle cose, è esattamente come il tuo esempio di file Excel; tutto protetto, tranne le celle in cui inserire i dati; ma così, tali celle restano sprotette anche dopo che Excel c'ha inserito i dati, 'esponendole' alla modifica 'a mano' dell'utente (nel senso che basta che ci si posizioni sopra e con un CANC cancella il valore nella cella, mentre invece tale cella deve rimanere non modificabile dall'utente, se non appunto tramite la procedura della macro).
usag
Utente Senior
 
Post: 246
Iscritto il: 15/08/07 16:20

Sponsor
 

Re: Inserimento dati in una cella protetta?

Postdi ricky53 » 13/01/14 15:28

Ciao,
avevo lasciato volutamente le celle sprotette per far vedere le due possibilità.

Controlla la cella "B10": viene scritto, tramite macro, "Ciao a tutti" ma la cella è comunque protetta.
Vai sul codice e vedi come ho effettuato tutte le operazioni.


Tu queste prove sul tuo file le avevi fatte ???
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Inserimento dati in una cella protetta?

Postdi usag » 13/01/14 15:38

Ma guarda, o sono cieco oppure ho le traveggole :D .
Nella cella B10 non viene scritto niente; praticamente scrive QWERTY nelle celle A1 e C1, nasconde e scopre il Foglio2, e nasconde il Foglio3 in modalità 'Very hidden'.
Dopodiché conclude le operazioni.
Cmq ora do un'occhiata al codice.
Grazie.
usag
Utente Senior
 
Post: 246
Iscritto il: 15/08/07 16:20

Re: Inserimento dati in una cella protetta?

Postdi ricky53 » 13/01/14 15:45

Ciao,
avevo inserito un file senza quella soluzione e l'ho sostituito.
Scarica nuovamente il file.

Allego una nuova versione; una sola cosa in più: la scrittura di due celle unite ("C4:C5") mediante il contenuto di altre due celle unite ("C1:C2").

Ecco la NUOVA VERSIONE
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Inserimento dati in una cella protetta?

Postdi usag » 13/01/14 16:28

Ciao,
il tuo nuovo file funziona come intendo io; ho provato a ricopiare il codice del foglio di apertura, ma continua coi soliti maledetti errori. A questo punto, o sbaglio a proteggere a monte le celle oppure non saprei cosa pensare.
Mi spiegheresti per favore, a parte il codice (che è tale e quale al tuo, quindi più di così non c'è verso), i passi che esegui per proteggere le celle e il foglio di lavoro? altrimenti non ne vengo fuori.
Grazie, scusa sono di coccio, lo so, ma i problemi sono come le donne... più son difficili, più sono affascinanti :lol: . ;) .
usag
Utente Senior
 
Post: 246
Iscritto il: 15/08/07 16:20

Re: Inserimento dati in una cella protetta?

Postdi ricky53 » 13/01/14 16:34

Ciao,
invia un tuo file di esempio ed allega il codice
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Inserimento dati in una cella protetta?

Postdi usag » 13/01/14 16:54

Allora, il programma serve a calcolare, in base ai dati inseriti dall'utente, quali capitale a inizio anno, versamenti e prelevamenti, con relative date di operazioni, gli interessi e il montante finale, aggiornando tutto in tempo reale (si aggiorna ad ogni nuova operazione), e infine tenere sempre una cella dedicata al montante finale al 31.12 (anche questa ovviamente si aggiorna continuamente, in base ai nuovi dati inseriti dall'utente).
Io ho messo tutte le celle del foglio in protezione, a parte quelle destinate all'utente, quindi versamenti, prelevamenti, date e capitale iniziale; il resto è bloccato, in quanto sono presenti all'interno, le formule ai calcoli dedicati.
Le due celle che io volevo invece tenere bloccate (ma solo contro l'utente) erano quelle relative al nominativo del titolare del conto e all'eventuale delegante. Ho allora dedicato un pulsante apposito che, tramite la sua pressione, chiede all'utente, tramite finestra di dialogo, di inserire nominativi del titolare e dell'eventuale delegante e di scriverli, sempre tramite la macro dedicata al medesimo pulsante, nelle 2 celle relative. Queste celle le ho protette anch'esse, e in questo caso, quando Excel, tramite questa macro, tenta di scriverci dentro, mi dà il famoso errore di run time 9; mentre se le lascio sprotette, funziona tutto alla perfezione, soltanto che non è così che deve andare, in quanto quelle 2 celle rimangono sprotette anche successivamente, quindi l'utente può manipolarle anche 'a mano'; è questo il problema.
Quelle celle devono rimanere protette.
Il codice relativo al pulsante è questo (lo avevo già postato ieri):

Codice: Seleziona tutto
Sub InsNominativo_Click()
  Dim Risp As String
  Dim RispCognome As String
  Dim LibDel As String
  MsgBox "Questo passaggio è richiesto solo la prima volta che usi questo programma." & vbCr & "Dalla prossima volta, puoi utilizzare normalmente questo programma saltando questo passaggio.", vbInformation, "Informazione di routine"
  Risp = InputBox("Inserisci il tuo nome")
    Do While Risp <> "Nome_da_digitare"
      Risp = InputBox("Devi inserire il tuo nome!, vbInformation, "Scrivi qui SOLO il tuo nome")
    Loop
  RispCognome = InputBox("Ok " & Risp & ", "Inserisci il tuo cognome... ", vbInformation, "Scrivi qui il tuo cognome")
    Do While RispCognome <> "Cognome_da_digitare"
      RispCognome = InputBox("Sbagliato. Riprova!")
    Loop
  LibDel = InputBox("A chi è affidata la delega? (Nome e Cognome)." & vbCr & "Se non ci sono deleghe, scrivi 'Me stesso'")
    Do While LibDel = ""
      LibDel = InputBox("Sbagliato. Riprova!" & vbCr & "Se non ci sono deleghe, scrivi pure 'Me stesso'.")
    Loop
  Cells(11, 4).Value = Risp & " " & RispCognome
  Cells(6, 4).Value = LibDel
  MsgBox "Bene, " & Risp & "!" & vbCr & "Premi INVIO per cominciare.", vbInformation, "Saluti finali"
End Sub


Di nuovo, grazie.
usag
Utente Senior
 
Post: 246
Iscritto il: 15/08/07 16:20

Re: Inserimento dati in una cella protetta?

Postdi ricky53 » 13/01/14 17:48

Ciao,
per provare ci costringi a costruirci il tuo file: NON è una bella cosa e poi pensa agli errori che potemmo commettere.
NON può funzionare !

Forza invia un file senza dati riservati.

Se NON vuoi/puoi inviare il file allora:
1. nel tua macro sproteggi il foglio un'istruzione prima rispetto alle celle da aggiornare
2. subito dopo l'aggiornamento di queste celle ri-proteggi il foglio
Ossia
SPROTEGGI prima di
Codice: Seleziona tutto
  Cells(11, 4).Value = Risp & " " & RispCognome
  Cells(6, 4).Value = LibDel

RI-PROTEGGI dopo queste due istruzioni

e "Buona notte ai suonatori" e ... si RISOLVE.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Inserimento dati in una cella protetta?

Postdi usag » 13/01/14 17:59

No, per carità; non intendevo mica questo!
Non avevo capito che dovessi inviare il file; dammi qualche minuto e lo invio.
Mi dispiace per il malinteso.
usag
Utente Senior
 
Post: 246
Iscritto il: 15/08/07 16:20

Re: Inserimento dati in una cella protetta?

Postdi ricky53 » 13/01/14 18:09

Ciao,
non avendo il file ma ho lavorato sul codice, spesso mi dicono che SONO TROPPO BUONO !!!

C'era qualche refuso sugli apici e le virgole, ho sistemato alla meglio.
Per risolvere al volo ho aggiunto le istruzioni che ti avevo scritto prima ... trovi i commenti nel codice

Prova sul tuo file
Codice: Seleziona tutto
Sub InsNominativo_Click()
    Dim Risp As String
    Dim RispCognome As String
    Dim LibDel As String
    MsgBox "Questo passaggio è richiesto solo la prima volta che usi questo programma." & vbCr & "Dalla prossima volta, puoi utilizzare normalmente questo programma saltando questo passaggio.", vbInformation, "Informazione di routine"
    Risp = InputBox("Inserisci il tuo nome")
    Do While Risp <> "Nome"
        Risp = InputBox("Devi inserire il tuo nome!", vbInformation, "Scrivi qui SOLO il tuo nome")
    Loop
    RispCognome = InputBox("Ok " & Risp, "Inserisci il tuo cognome... ", "Scrivi qui il tuo cognome")
    Do While RispCognome <> "Cognome"
        RispCognome = InputBox("Sbagliato. Riprova!")
    Loop
    LibDel = InputBox("A chi è affidata la delega? (Nome e Cognome)." & vbCr & "Se non ci sono deleghe, scrivi 'Me stesso'")
    Do While LibDel = ""
        LibDel = InputBox("Sbagliato. Riprova!" & vbCr & "Se non ci sono deleghe, scrivi pure 'Me stesso'.")
    Loop
   
    Sheets("Foglio1").Unprotect Password:="qaz" ' <<==== Aggiunta
    Sheets("Foglio1").Cells(11, 4).Value = Risp & " " & RispCognome  ' <<==== MODIFICATA
    Sheets("Foglio1").Cells(6, 4).Value = LibDel ' <<==== MODIFICATA
    Sheets("Foglio1").Protect Password:="qaz" ' <<==== Aggiunta
   
    MsgBox "Bene, " & Risp & "!" & vbCr & "Premi INVIO per cominciare.", vbInformation, "Saluti finali"
End Sub


Di più NON POSSO !!!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Inserimento dati in una cella protetta?

Postdi usag » 13/01/14 18:13

Guarda, sto cercando di inviare il file, ma non riesco a trovare il pulsante per gli allegati.
Abbi pazienza ma non volevo darti lavoro in questo senso; appena trovo il modo di allegare il file, lo invio subito, è già pronto.
Grazie mille di nuovo.
usag
Utente Senior
 
Post: 246
Iscritto il: 15/08/07 16:20

Re: Inserimento dati in una cella protetta?

Postdi ricky53 » 13/01/14 18:16

Ciao,
per allegare un file devi utilizzare un servizio di File Hosting Free ad esempio QUESTO

Oppure leggi QUI


Comunque prova il codice che ti ho inviato ... dovremmo risolvere semplificandoci la vita.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Inserimento dati in una cella protetta?

Postdi usag » 13/01/14 18:29

Ok, risolto; ero io che sbagliavo la posizione delle istruzioni che mi hai aggiunto.
Mi dispiace averti rotto le scatole, ti offrirei da bere.
Grazie mille, spero di ricambiare in qualche modo, in futuro (anche se su questo piano, mi sa che possa far poco ;) ).
Di nuovo, grazie. :)
usag
Utente Senior
 
Post: 246
Iscritto il: 15/08/07 16:20

Re: Inserimento dati in una cella protetta?

Postdi ricky53 » 13/01/14 18:56

Ciao,
però sono convinto che era meglio l'altra soluzione ... quella della protezione da codice

Visto che il file l'hai preparato inviacelo e lo proviamo.




Passiamo alle cose VERAMENTE IMPORTANTI:
In merito all'offerta da bere dipende dalla città in cui vivi ... io mi nuovo spesso.
Comunque io gradisco la grappa ... aromatizzata se possibile ... vedi tu !!!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Inserimento dati in una cella protetta?

Postdi usag » 13/01/14 20:37

Eh sì, sicuramente.
Ok, il file può esser prelevato da qui.
La password per lo sblocco è: qaz.
Se poi vuoi anche provarlo, nel caso tu decida di usare il pulsante rosso che trovi in alto a sinistra del foglio, quando ti chiede di inserire il nome, dai Usag, mentre per il cognome, Programma.
Se noti qualcosa che non va, dimmelo pure, non c'è problema.

Piace anche a me la grappa, oltre al vino rosso toscano ;) .
Grazie ciao.
usag
Utente Senior
 
Post: 246
Iscritto il: 15/08/07 16:20

Re: Inserimento dati in una cella protetta?

Postdi ricky53 » 14/01/14 00:50

Ciao,
non hai indicato la password che apre il VBA!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Inserimento dati in una cella protetta?

Postdi usag » 14/01/14 13:18

Ciao,
sì scusa, abbi pazienza; ma ho proprio sbagliato file (si chiamano allo stesso modo).
Prelevalo da qui; è quello giusto; la password che apre il VBA è sempre 'qaz'. vale per tutto.
Grazie.
usag
Utente Senior
 
Post: 246
Iscritto il: 15/08/07 16:20

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Inserimento dati in una cella protetta?":


Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti