Altri Linguaggi - Inserire commenti con protezione foglio

Forum - Altri Linguaggi - Inserire commenti con protezione foglio

trittico69 (Normal User)
Pro

Messaggi: 144
Iscritto: 02/04/2010

Postato alle 18:20
Sabato, 07/05/2011

È 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 sorgente - presumibilmente VB.NET

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