È 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