Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Inserire commenti con protezione foglio

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Inserire commenti con protezione foglio

Postdi trittico69 » 07/05/11 17:12

È possibile modificare questo codice…. in modo che mette la protezione ai fogli, che già fa, ma che mi permetta di inserire i commenti alle celle di excel 2003

Codice: Seleziona tutto
Sub NascondirigheVuote()
    Application.ScreenUpdating = False
    Dim ff As Integer
    Dim rr As Integer
    Dim Ws As Worksheet
   
    For ff = 1 To ActiveWorkbook.Worksheets.Count
        Worksheets(ff).Unprotect
        If Worksheets(ff).Name <> "RIEP" Then
            Worksheets(ff).Select
            With Range("B:B,J12,M9,M10,O9,O12")
                .Locked = False
                .FormulaHidden = False
            End With
            For rr = 57 To 14 Step -1
                If Val(Range("A" & rr)) = 0 Then Rows(rr & ":" & rr).EntireRow.Hidden = True
            Next rr
            Range("K:L,P:AW").EntireColumn.Hidden = True
        Else
            With Worksheets("RIEP").Range("C1:C5,J3:J14,A32:A33,A43:A44,C7,D1:D2,A19")
                .Locked = False
                .FormulaHidden = False
            End With
        End If
        Sheets(ff).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next ff
    Application.ScreenUpdating = True
End Sub
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Sponsor
 

Re: Inserire commenti con protezione foglio

Postdi PcBase » 07/05/11 17:55

Ciao

Puoi utilizzare i seguenti comandi per rimuovere e rimpristinare la protezione del foglio abilitando l'inserimento dei commenti, codice da sostituire nelle tue macro.

Codice: Seleziona tutto
Sub Commenti_Ok()
    Sheets(ff).Unprotect
    Sheets(ff).Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Re: Inserire commenti con protezione foglio

Postdi trittico69 » 07/05/11 18:01

ok grazie
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: Inserire commenti con protezione foglio

Postdi ricky53 » 07/05/11 18:28

Ciao,
nella macro che utilizzi sostituisci
Codice: Seleziona tutto
Sheets(ff).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


con
Codice: Seleziona tutto
Sheets(ff).Protect DrawingObjects:=False, Contents:=True, Scenarios:=True


e potrai lavore sempre sui commenti.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Inserire commenti con protezione foglio

Postdi trittico69 » 07/05/11 18:30

ok grazie
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41


Torna a Applicazioni Office Windows


Topic correlati a "Inserire commenti con protezione foglio":


Chi c’è in linea

Visitano il forum: alfrimpa e 7 ospiti