Excel Forum

	Soluzioni Excel Domande e Risposte
		VBA blocco celle dopo salvataggio

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

VBA blocco celle dopo salvataggio

Ultimo Aggiornamento: 16/10/2019 21:42

MicheleGio

Post: 1

Registrato il: 16/10/2019

Età: 31

Utente Junior

2013

OFFLINE

16/10/2019 18:42

00#1

Buonasera, spero che qualcuno possa aiutarmi, sto creando un file per gestire la contabilità di una sala scommesse ed ho bisogno che una volta inseriti i dati all'interno dei campi consentiti, questi restino modificabili finchè non si salva il file dove poi vengono bloccati.

Nelle discussioni cercate all'interno del forum ho trovato una soluzione, mi sono accorto però che questa viene applicata solo alla scheda 1 ma ho bisogno che si ripeta anche nelle altre schede.

Ho allegato il file sulla quale sto lavorando con inserito il VBA che ho trovato.

Spero di aver fornito abbastanza informazioni.

Download

[Modificato da MicheleGio 16/10/2019 18:57]

GiuseppeMN

Post: 3.510

Registrato il: 03/04/2013

Utente Master

Excel 2000 - 2013

OFFLINE

16/10/2019 19:57

10#2

Buona sera, Michele;
posso solo proporti ciò che farei:

Option Explicit
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim cella As Range
Dim x As Byte   '   Byte, presumendo che i Fogli di lavoro da trattare siano <= 255, altrimenti Integer
    
    For x = 1 To Sheets.Count
        Sheets(x).Unprotect "Oliver"
            For Each cella In Sheets(x).Range("B13:T136")
                If Not IsEmpty(cella) Then
                    cella.Locked = True
                End If
            Next cella
            Sheets(x).Protect "Oliver"
    Next x
End Sub

Poi, ovviamente, vedi tu.

A disposizione.

Buona serata.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013

MicheleGio

Post: 1

Registrato il: 16/10/2019

Età: 31

Utente Junior

2013

OFFLINE

16/10/2019 21:42