Inserire commenti con protezione foglio

[trittico69]

È 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

[PcBase]

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

[trittico69]

ok grazie

[ricky53]

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.

[trittico69]

ok grazie