Note: The other languages of the website are Google-translated. Back to English

Come consentire la modifica di oggetti nel foglio di lavoro protetto in Excel?

Per impostazione predefinita, gli oggetti inseriti come forme e caselle di testo non possono essere modificati dopo aver protetto il foglio di lavoro. Se è necessario modificare gli oggetti in un foglio di lavoro protetto, provare i metodi in questo articolo.

Consenti la modifica degli oggetti nel foglio di lavoro protetto selezionando l'opzione Modifica oggetti
Consenti la modifica di oggetti nel foglio di lavoro protetto con codice VBA


Consenti la modifica degli oggetti nel foglio di lavoro protetto selezionando l'opzione Modifica oggetti

Controllare l'opzione Modifica oggetti per consentire la modifica degli oggetti prima di proteggere il foglio di lavoro. Si prega di fare quanto segue.

1. Clic Revisione > Proteggi foglio.

2. Nel Proteggi foglio finestra di dialogo, specificare una password nel file Password per rimuovere la protezione del foglio casella e seleziona il file Modifica oggetti casella nella casella Consenti a tutti gli utenti di questo foglio di lavoro, quindi fare clic su OK pulsante. Conferma la tua password nel file Conferma password la finestra di dialogo. Vedi screenshot:

Ora il foglio di lavoro è protetto e tutti gli oggetti in questo foglio di lavoro protetto sono modificabili.


Consenti la modifica di oggetti nel foglio di lavoro protetto con codice VBA

Se il foglio di lavoro è già stato protetto, puoi provare lo script VBA di seguito per consentire la modifica degli oggetti. Si prega di fare quanto segue.

1. premi il altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa cartella di lavoro sulla sinistra Progetto Pannello. Quindi copia e incolla il codice VBA sottostante nel file ThisWorkbook (codice) finestra.

Codice VBA: consente di modificare gli oggetti nel foglio di lavoro protetto

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

Note:: Nel codice, Sheet3 è il foglio di lavoro protetto che contiene gli oggetti che devi modificare. E il numero "123" è la password del foglio protetto. Si prega di cambiarli come necessario.

3. premi il F5 chiavi per eseguire il codice e tutti gli oggetti in questo foglio di lavoro protetto sono modificabili immediatamente.


Articoli correlati:


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (1)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ciao,
Grazie per l'utile articolo. Ho provato il metodo del codice VBA ma non funziona per me.


Il mio codice (scusate per la formattazione, non è stato possibile copiarlo e incollarlo):


Cartella di lavoro secondaria_Apri ()

Dim ws come foglio di lavoro

Per ogni ws nei fogli di lavoro

ws.Protect UserInterfaceOnly:=Vero, Password:="123"

ws.Abilita filtro automatico = Vero

ws.EnableOutlining = Vero

Se ActiveSheet.Protection.AllowFormattingColumns = False allora

ActiveSheet.Protect AllowFormattingColumns:=Vero

End If

Con fogli di lavoro ("Foglio 1")

.EnableOutlining = Vero

.EnableAutoFilter = Vero

.Proteggi password:="123", _

Contenuti:=Vero, DrawingObjects:=Falso, UserInterfaceOnly:=Vero

Fine Con

La prossima ws

End Sub


Funziona bene, ma non appena salvo, chiudo e riapro il file, lo sono anch'io

- richiesto di inserire la Password (come 5 volte) immediatamente oppure

- in grado di rimuovere la protezione senza alcuna Password per uno dei fogli di lavoro (solitamente "Foglio1" come nel Codice)


Qualcuno riceve il mio stesso errore? O qualcuno può aiutarmi?


Vi ringrazio in anticipo.


BR

Vanessa
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL