Sbloccare tabella in foglio protetto

[marte1503]

Ciao a tutti,
ai piedi del messaggio posto la macro che ho creato con il registratore, avrei bisogno di un aiuto per modificarla con questi criteri:

- se in CellaA1 di Foglio "Macchine Libere" è presente la scritta "NO" , Foglio "Macchine Libere" deve rimanere interamente protetto.
- se è presente la scritta "SI" , Foglio "Macchine Libere" deve rimanere protetto ma Tabella 213 (sempre in questo Foglio) deve perdere la protezione.

Non so se può complicare o meno l'operazione, ma dico questo dettaglio:
- La rimozione della protezione da Tabella213, avviene per poter selezionare e tagliare una riga a caso della Tabella in questione tramite l'attivazione di un'altra macro.

- Tabella213 ha un range variabile a seconda delle del numero di macchine presenti
- Tabella213 ha come prima riga il Range B12:S12)

Grazie per l'aiuto

Codice: Seleziona tutto

Sub Filtra_Vendite_Confermate_Magazzino()
'
' Filtra le MAcchine con vendita già confermata Macro

'

'
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    ActiveSheet.ListObjects("Tabella213").Range.AutoFilter Field:=18
    ActiveSheet.ListObjects("Tabella213").Range.AutoFilter Field:=10
    ActiveSheet.ListObjects("Tabella213").Range.AutoFilter Field:=9
    ActiveSheet.ListObjects("Tabella213").Range.AutoFilter Field:=3
         ActiveSheet.ListObjects("Tabella213").Range.AutoFilter Field:=2
    ActiveSheet.ListObjects("Tabella213").Range.AutoFilter Field:=3, Criteria1 _
        :="Venduta"
   
     Range("G2").Select
    ActiveCell.FormulaR1C1 = "Vendita Confermata"
    Selection.Font.Size = 18
    Selection.Font.Bold = True
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.Font.Underline = xlUnderlineStyleSingle
    Range("B2:E2").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveSheet.Protect
    Application.ScreenUpdating = True
   
End Sub

'

[Anthony47]

La tua domanda (come proteggere il foglio lasciando pero' la possibilita' di selezionare e tagliare una riga a caso della Tabella in questione tramite l'attivazione di un'altra macro) mi lascia perplesso, perche' mi pare che gia' stai usando ActiveSheet.Unprotect /Protect all'inizio e fine di una macro; quindi la prima risposta e': usa ActiveSheet.Unprotect /Protect anche in quella macro.

Un'altra alternativa e' proteggere il foglio lasciando pero' mano libera alle modifiche da macro. A questo scopo devi impostare questa caratteristica all'apertura del file; esempio:

Codice: Seleziona tutto

Private Sub Workbook_Open()
Sheets("Foglio4").Protect Password:="segreta", UserInterFaceOnly:=True
End Sub


Va messa nel modulo QuestaCartellaDiLavoro /ThisWorkbook; Salva il file, chiudi e riaprilo: a questo punto tutte le macro sono libere da vincoli posti dalla protezione, senza doversi preoccupare di usare ActiveSheet.Unprotect /Protect

[marte1503]

Buon giorno Anthony,
Grazie per l'aiuto.

La seconda soluzione che mi hai proposto non fa a caso mio perchè funziona solo la prima volta che attivo una macro, poi rimane tutto modificabile. A me capita, dopo aver tagliato la riga dalla Tabella e averla spostata altrove, di tornare indietro nella Tabella e selezionare una nuova riga da tagliare, ma a quel punto trovo l'intero foglio senza protezione, non solo la Tabella.

Non so nemmeno se quello che vorrei ottenere sia o meno fattibile, provo a spiegare meglio.

In realtà l'informazione "activesheet.unprotect" l'ho usata ma non mi piace perchè rimuove la protezione da tutto il Foglio, non soltanto da Tabella213.

Visto che il Foglio, oltre alla Tabella contiene dati e formule che se fossero "toccate" o cancellate per errore comporterebbero problemi in altre parti del programma vorrei che:

- La rimozione della protezione dalla Tabella 213 avvenisse solo se in Cella A1 fosse presente la scritta "Sì" , lasciando protetto il resto del foglio

Semplificando, queste sono le informazioni che vorrei aggiungere in testa alla macro postata:

Se A1 ="Sì" rimuovi protezione da Tabella213 ma lascia protetto il resto del Foglio

Può essere fattibile?

Grazie ancora per l'aiuto

[Anthony47]

La protezione con UserInterFaceOnly:=True consente solo alle macro di modificare il foglio, l'utente e' bloccato. Se l'utente si trova il foglio sprotetto magari e' perche' qualche macro non l'ha riprotetto dopo averla sprotetto (ma con UserInterFaceOnly:=True le macro non hanno piu' bisogno di fare Unprotect /Protect!).
Se pensi che le macro possano sbagliare non sei in torto; ma la fase di debug serve proprio a garantire che le cose associate al codice facciano le cose che sono state progettate per fare: perche' il loro comportamento e' deterministico e non probabilistico (al contrario del comportamento di un umano).

Comunque non conosco un metodo per liberare totalmente una tabella e proteggere il resto del foglio; ad esempio con queste impostazioni di "consenti":

Consenti Inserimento righe
Consenti Cancellazione righe
Consenti Inserimento colonne
Consenti Cancellazione colonne

si riesce a inserire righe e colonne ma non a cancellarle; ne' si riesce a inserire righe o colonne all'interno di una tabella (col comando Inserisci /Righe o Colonne); e ovviamente non si riesce a cancellare righe o colonne della tabella

Insomma secondo me il modo piu' sicuro e' usare UserInterFaceOnly:=True
Ciao

[marte1503]

Grazie per le informazioni!

Prima di provare ad applicare i tuoi consigli mi piacerebbe fare un'ultima prova, ho trovato un modo talmente brutto e rozzo per proteggere dati e formule che sicuramente tu non saresti mai arrivato a pensare ma sembra assolvere benissimo il suo compito mi occorre però una riga di codice per rimuovere la protezione che spero tu mi possa dare, sempre ammesso che si possa fare
sempre da mettere in testa alla mia macro:

- se "A1"= "Sì" rimuovi la protezione (questa volta da tutto il foglio) , se A1="NO" messaggio "non è possibile rimuovere la protezione" (per la seconda ipotesi ho già un piano..)

Grazie
Ciao

[Anthony47]

Non voglio conoscere i dettagli; il codice:

Codice: Seleziona tutto

If Sheets("FoglioX").Range("A1").Value = "Sì" Then
    Sheets("FoglioX").Unprotect "segreta"
ElseIf Sheets("FoglioX").Range("A1").Value = "NO" Then
    MsgBox ("Non è possibile rimuovere la protezione")
End If

Attenzione, che Sì è scritto con l'accento grave, come ordina l'Accademia della Crusca; se la cella contiene Si non vale.
Magari conviene mettere una convalida per evitare che qualcuno scriva Si e qualcun'altro scriva Sì... O no?

[marte1503]

Grazie 1000 Antony!
Non ho questo tipo di problema perché la scritta no o si viene inserita tramite macro
Ciao, a presto