VBA blocco celle dopo salvataggio

Messaggi
OFFLINE

MicheleGio

Post: 1

Registrato il: 16/10/2019

Età: 32

Utente Junior

2013
00 16/10/2019 18:42
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]

OFFLINE

GiuseppeMN

Post: 3.510

Registrato il: 03/04/2013

Utente Master

Excel 2000 - 2013

10 16/10/2019 19:57

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

OFFLINE

MicheleGio

Post: 1

Registrato il: 16/10/2019

Età: 32

Utente Junior

2013

00 16/10/2019 21:42

Perfetto sembra funzionare perfettamente e fare ciò che avevo chiesto.

Grazie Mille 😉
15MediaObject5,0013 1

Excel Forum Per condividere esperienze su Microsoft Excel

VBA blocco celle dopo salvataggio

Anteprima