ultimamente in un file con molte macro ,
quando faccio partire questa macro che serve a cancellare i dati in un foglio:
- Codice: Seleziona tutto
Sub Ritagliasingoloangolorettangolo6_Click()
Sheets("prono").Select
If [c7] = "" Then
MsgBox "PRONO e' gia vuoto...", vbCritical
'--------------------------
'RIATTIVO LE APPLICATION
With Application
.Calculation = xlCal
.EnableEvents = True
.ScreenUpdating = True
End With
'-----------------------------------
Exit Sub
End If
If MsgBox("ATTENZIONE!!!:" & vbNewLine & _
vbNewLine & _
"SI STANNO PER CANCELLARE I DATI DI OGGI " & vbNewLine & _
vbNewLine & _
"HAI: AGGIORNATO I RISULTATI E COPIATO I DATI IN ARCHIVIO? " & vbNewLine & _
vbNewLine & _
"CONTINUARE CON LA CANCELLAZIONE?", _
vbCritical + vbYesNo + vbDefaultButton2, "Cancellazione CELLA") = vbNo Then
Exit Sub
End If
Application.ScreenUpdating = False
Worksheets("prono").Unprotect
'---riattivo righe nascoste------------
Rows.Hidden = False
'--------------------------------------
Sheets("PRONO").Select
Range("g7:H10000").Select
Selection.ClearContents
Range("C7:C1000").Select
Selection.ClearContents
'--metto bianco sfondo--------------
Sheets("PRONO").Select
Range("G7:H2000").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'---metto righe fini---------------------------------------
Range("C7:Z1000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0 '<<< si blocca qui.............
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
ActiveWindow.ScrollRow = 2
ActiveWindow.DisplayGridlines = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Range("a1").Select
End Sub
mi si blocca con questo messaggio:
cosa devo fare ?
cosa posso modificare ?
nel file non ho fatto modifiche.
ringrazio
ciao
