Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Blocca celle

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

Blocca celle

Postdi Cedamido » 16/03/20 15:52

Gentilmente vorrei sapere se questa macro creata da Antony il 20/04/2011 blocca le celle di un solo foglio oppure una volta inserita la macro blocca le celle di tutti i fogli.Grazie

Bloccare automaticamente il valore scritto in una cella

Public Preced As Boolean, ACelAd As String
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "D1:D40" '<< L' area da bloccare
If Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
'ACelAd = ActiveCell.Range("A1").Address
If Preced Then
Application.EnableEvents = False
Application.Undo: ACelAd = ActiveCell.Range("A1").Address
MsgBox ("Vietato modificare la cella " & Target.Address)
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If ActiveCell.Address = ACelAd Then Exit Sub
On Error Resume Next
If IsError(Target.Value) Then
Preced = False
Else
If Target.Value <> 0 Then Preced = True Else Preced = False
aaa = Target.Address
End If
End Sub
excel 2003
Cedamido
Utente Senior
 
Post: 302
Iscritto il: 17/08/08 23:26

Sponsor
 

Re: Blocca celle

Postdi Anthony47 » 16/03/20 18:12

Questo codice lavora su un foglio alla volta. Se vuoi la stessa prestazione su piu' fogli allora devi inserire lo stesso codice in ogni modulo vba dei fogli interessati: da Excel ci arrivi rapidamente con Tasto dx sul tab col nome del foglio, scelta=Visualizza codice.

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


Torna a Applicazioni Office Windows


Topic correlati a "Blocca celle":


Chi c’è in linea

Visitano il forum: Nessuno e 44 ospiti