Errore quando proteggo foglio.

[BOLDOS75Partecipante BOLDOS75]

Buongiorno con il file che allego non riesco a risolvere errore di esecuzione. 

Quando il foglio non è protetto la cella attiva si colora e va bene , ma se io proteggo il foglio e anche una sola cella con: Revisione , Proteggi foglio, cliccando su una cella mi esce "errore definito dall'applicazione o dall'oggetto".

Grazie mille 

Allegati:

You must be logged in to view attached files.

[scossaPartecipante scossa Karma: 37 pts]

Ipotizzando che la tua password sia "psws", aggiungi questa istruzione:

If Foglio1.ProtectionMode Then Foglio1.Unprotect "pswd" 

e Foglio1.Protect "pswd" alla fine della sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)       'Funziona
  Static rPrevCell As Range 'Funziona
'---- aggiunta -----
    If Foglio1.ProtectionMode Then Foglio1.Unprotect "pswd"
'-------------------
    If Not rPrevCell Is Nothing Then 'Funziona
    With rPrevCell.FormatConditions 'Funziona
      If .Count > 0 Then .Item(1).Delete
    End With 'Funziona
  End If 'Funziona
.....
....
'---- aggiunta -----
  Foglio1.Protect "pswd"
'-------------------
End Sub 'Funziona

[BOLDOS75Partecipante BOLDOS75]

Ma non ho nessuna password

[scossaPartecipante scossa Karma: 37 pts]

Allora sostituisci così:

If Foglio1.ProtectContents Then Foglio1.Unprotect

e

Foglio1.Protect

 

[BOLDOS75Partecipante BOLDOS75]

Ma se ho più fogli tipo Foglio1  foglio 2 ecc. come scrivo " If Foglio1.ProtectContents Then Foglio1.Unprotect"

[scossaPartecipante scossa Karma: 37 pts]

If Sh.ProtectContents Then Foglio1.Unprotect

e

Sh.Protect

 

Edit: ovviamente è 

If Sh.ProtectContents Then Sh.Unprotect

[BOLDOS75Partecipante BOLDOS75]

Ringrazio per la collaborazione, ho risolto il mio problema chiudo la discussione.

[scossaPartecipante scossa Karma: 37 pts]

BOLDOS75 ha scritto:

Ringrazio per la collaborazione, ho risolto il mio problema chiudo la discussione.

 

Ovviamente era: If Sh.ProtectContents Then Sh.Unprotect

[Autore]

Articoli