Condividi:        

Blocco celle da scrittura e cancellazione Macro - Aiuto

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

Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi teampenning » 15/04/12 13:51

Buongiorno a tutti. Io avrei un piccolo problemino da risolvere. Ho un foglio di excel, sul quale c'è una tabella. Io ho la necessità di impedire cancellazioni di formule o testo e di inibite la scrittura su alcune celle. Non posso mettere la protezione alla pagina perchè devo poter riordinare il foglio.
Ho provato a inserire la seguente macro, trovata sul web
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
If Selection.Rows.Count > 1 Then
Set rng = Selection
Set rng = Intersect(rng, Range("b4"))
If Not rng Is Nothing Then
MsgBox "cella (B4) non modificabile"
Cells(1, 1).Select
Exit Sub
End If

Il problema è che oltre a non sapere come aggiungere ulteriori Range, una volta che seleziono tutto per ordinare, non mi fa procedere, praticamente non mi consente la selezione delle celle bloccate.
Qualcuno sa dirmi come si può fare?
Grazie a tutti
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12

Sponsor
 

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi wallysimpsons » 15/04/12 16:11

teampenning ha scritto:Buongiorno a tutti. Io avrei un piccolo problemino da risolvere. Ho un foglio di excel, sul quale c'è una tabella. Io ho la necessità di impedire cancellazioni di formule o testo e di inibite la scrittura su alcune celle. Non posso mettere la protezione alla pagina perchè devo poter riordinare il foglio.


Ciao

Quando proteggi c'è la possibilità di decidere cosa fare anche se il foglio è protetto e tra le altre cose c'è anche "Ordina" e questo dovrebbe fare al caso tuo

Altrimenti devi mettere in cima alla tua macro che fa l'ordinamento

Codice: Seleziona tutto
ActiveSheet.Unprotect


e poi alla fine

Codice: Seleziona tutto
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells


Fai sapere
Wally (Excel 2007)
Avatar utente
wallysimpsons
Utente Junior
 
Post: 11
Iscritto il: 25/11/09 14:09

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi teampenning » 15/04/12 17:31

Ciao, intanto grazie per la tua risposta
Nel mentre ho sostituito la macro precedente con questa che si addice di più, mi permette la selezione e l'ordinamento, ma anche questa ha un difetto, non protegge dalla cancellazione delle macro.
Nell'eventualità digito per errore qualcosa sopra alla cella con formula, mi ritorna la formula precedentemente scritta (scusa la ripetizione). Ma se cancello, sparisce tutto.
A questo punto dovrei trovare un'integrazione per impedire la cancellazione!
Grazie mille


Private mB As Boolean
Private v As String

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If mB = True Then Target.Value = v
mB = False
Application.EnableEvents = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.HasFormula = True Then
mB = True
v = Target.Formula
Else
mB = False
End If

End Sub
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi Flash30005 » 15/04/12 18:48

Questa macro nel Vba del Foglio
non ti permette di accedere a nessuna singola cella o range o a tutta la colonna "B"

Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea = "B:B"
If Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then Exit Sub
Range("A1").Select
End Sub


A meno che non disabilitino le macro :D

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi teampenning » 15/04/12 19:39

Ciao Flash e grazie per la tua risposta.
Sono un po imbranata ma spero di essere riuscita ad allegarti un esempio del mio file. Le celle colorate sono quelle che andrebbero protette. Ho circa una decina di fogli con circa 300 righe ciascuno.
Per questo cercavo qualcosa che proteggesse le formule, in modo da non dover impostare tantissimi dati.
Dammi un consiglio!
Quindi nella tua macro al posto del range BB, dovrei mettere cella per cella tutti i riferimenti A3,B3,G3.............Questo per ogni blocco, come ti ho evidenziato? E per tutte le 300 righe? :oops: Panico!
Grazie mille

DEFINITIVA - Copia.xlsm
Ecco, non posso ancora inviare link
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12


Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi teampenning » 15/04/12 19:43

Ripeto che non posso eseguire la protezione di tutto il foglio perche ho necessità di effettuare ordinamenti vari.
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi Flash30005 » 15/04/12 22:15

Ho scaricato i file mi dà errore su celle unite (?)
però, guardando le celle evidenziate da proteggere ho imbastito questa macro che metterai nel foglio "Tappa"
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea1 = "D:E, G:G, R:S, N:P"
CheckArea2 = "A:B, H:K, Q:Q"
If Application.Intersect(ActiveCell, Range(CheckArea1)) Is Nothing Then GoTo esci1
Range("C4").Select
esci1:
If Application.Intersect(ActiveCell, Range(CheckArea2)) Is Nothing Then Exit Sub
UR = Range("A" & Rows.Count).End(xlUp).Row
If (Target.Row - 1) Mod 3 = 0 Then Exit Sub
Range("C4").Select
End Sub


Fai sapere

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi teampenning » 16/04/12 18:11

Ciao Flash
Ho provato a inserirla ma su qualsiasi cella che vado, mi appare "Errore di run-time 1004 Metodo 'range' dell'oggetto worksheet non riuscito
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi teampenning » 19/04/12 19:42

Mi sono dimenticata di dire che ho excel 2010 :)
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi Anthony47 » 20/04/12 18:22

Su XL2010, inserendo nel tuo file DEFINITIVA - Copia.xlsm la macro Worksheet_SelectionChange di Flash non ottengo nessun errore, mentre la selezione di alcune celle e' possibile e di altre impossibile.
Quale riga a te va in errore? Esattamente con la macro di Flash o una variante? Selezionando ad esempio quale cella?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi teampenning » 20/04/12 19:53

Ciao Anthony
Intanto grazie per l'interessamento
Ho usato esattamente la macro di Flash senza nessuna variante.
Appena clicco su qualsiasi cella mi da errore
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi Anthony47 » 21/04/12 00:34

Ok, adesso su quale riga hai "Errore di run-time 1004 Metodo 'range' dell'oggetto worksheet non riuscito"? Ad esempio cliccando su quale cella?
(domande ripetute)

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi teampenning » 23/04/12 14:27

Se inserisco la macro così com'è, mi da errore su qualsiasi cella io clicchi.
Ora, a parte che non sono per niente esperta di macro, ho cercato di interpretarla, correggimi Flash se sbaglio.
Nella check area1 dovrebbero esserci le colonne da bloccare, mentre nella check area 2 quelle da lasciare libere.
Non riesco a capire il riferimento al Range c4.
Nel mio caso, direi che l'area 1 va bene, celle D:E, G:H, R:S,N:P Che sono le celle da bloccare totalmente, mentre nell'area 2 ho qualche perplessità
Io ho bisogno di avere libere le seguenti celle a4, a7, a10, a 13 e così via fino all'infinito con la stessa cadenza, Idem per la colonna b,i,h,j,k,q mentre devo avere totalmente libere le colonne C e F
Infine devo comunque poter selezionare tutto anche se bloccato e devo poter effettuare l'ordinamento.
Magari farà un'impresa impossibile!!!
Grazie a tutti
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi Flash30005 » 23/04/12 15:58

Fammi sapere se hai errore anche con questo file

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Blocco celle da scrittura e cancellazione Macro - [RISOL

Postdi teampenning » 23/04/12 16:38

Grande Flash
sei UN GENIO Funziona alla perfezione. La segreteria della Team Penning ringrazia te e tutti quelli che hanno collaborato.
Grazie di cuore :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol:
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi teampenning » 23/04/12 16:50

Perchè se copio la macro nel file originale non funziona?
Provo ad allegarti la versione definitiva del file, nel quale ho omesso tutti i dati personale.
Ho già inserito pagina per pagina la tua macro, puoi dirmi dove sbaglio?
Ciao e grazie mille

http://uploading.com/files/2fe83954/PROG.%2BGARE.xlsm/
PROG. GARE.xlsm - 1.0 MB
<a href="http://uploading.com/files/2fe83954/PROG.%2BGARE.xlsm/">PROG. GARE.xlsm - 1.0 MB</a>
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi teampenning » 23/04/12 16:57

Altro problemino
Se seleziono le celle per riordinare, non me lo permette :cry:
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi teampenning » 23/04/12 17:22

Contrordine, ho copiato la tua macro e funziona alla perfezione.
Resta solo il problema dell'ordinamento, ma direi che se inserisco la macro per farlo e mi riporto un bottone nella pagina di ogni tappa, dovrebbe funzionare! Che ne dici?
A questo punto mi rimane che adattare la macro anche alla classifica finale, bloccando tutto il foglio meno la colonna A, che deve contenere alcune celle libere. Poi il lavoro è finito.
Grazie ancora per l'aiuto che mi hai dato
teampenning
Utente Junior
 
Post: 27
Iscritto il: 15/04/12 13:12

Re: Blocco celle da scrittura e cancellazione Macro - Aiuto

Postdi Flash30005 » 23/04/12 19:12

Non so quale foglio vorresti ordinare e nemmeno i riferimenti colonna
Presumo foglio "Tappa5" e le colonne dei tempi (I, K ,P)
se così usa questa macro altrimenti modifica secondo l'esigenza
Codice: Seleziona tutto
Sub Ordina()
UR = [a1].End(xlDown).Row
Application.EnableEvents = False  '<<<<<<<<<<<<<<<<<< Aggiungere
    Range("B3:S" & UR).Select
    Selection.Sort Key1:=Range("I3"), Order1:=xlAscending, Key2:=Range("K3") _
        , Order2:=xlAscending, Key3:=Range("P3"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
       
Application.EnableEvents = True '<<<<<<<<<<<<<<<< Aggiungere
End Sub


Per attivarla puoi anche assegnare un tasto di scelta rapida (es.: Ctrl+O) invece del pulsante

Ciao

EDIT ore 20:35 - Modificata macro - vedi modifiche
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "Blocco celle da scrittura e cancellazione Macro - Aiuto":


Chi c’è in linea

Visitano il forum: Nessuno e 58 ospiti