Ciao,
sono appena passato a office 2013 da Office 2010. le macro che prima funzionavano benissimo sono tutte rallentate!
è possibile distinguere le celle che vengono selezionate ad una ad una. sapete per quale motivo?
ciao
Moderatori: Anthony47, Flash30005
Private Sub Workbook_Open()
Sheets("Foglio1").Unprotect Password:="Segretissima"
Sheets("Foglio1").Protect Password:="Segretissima", UserInterFaceOnly:=True
Sheets("Foglio2").Unprotect Password:="Segretissima"
Sheets("Foglio2").Protect Password:="Segretissima", UserInterFaceOnly:=True
'. . . (altri Fogli)
'...
End Sub
Sheets("Foglio1").Unprotect Password:="dominator"
Sheets("Foglio1").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio2").Unprotect Password:="dominator"
Sheets("Foglio2").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio3").Unprotect Password:="dominator"
Sheets("Foglio3").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio3").Unprotect Password:="dominator"
Sheets("Foglio3").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio4").Unprotect Password:="dominator"
Sheets("Foglio4").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio5").Unprotect Password:="dominator"
Sheets("Foglio5").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio6").Unprotect Password:="dominator"
Sheets("Foglio6").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio7").Unprotect Password:="dominator"
Sheets("Foglio7").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio8").Unprotect Password:="dominator"
Sheets("Foglio8").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio9").Unprotect Password:="dominator"
Sheets("Foglio9").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio10").Unprotect Password:="dominator"
Sheets("Foglio10").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio11").Unprotect Password:="dominator"
Sheets("Foglio11").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio12").Unprotect Password:="dominator"
Sheets("Foglio12").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio13").Unprotect Password:="dominator"
Sheets("Foglio13").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio14").Unprotect Password:="dominator"
Sheets("Foglio14").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio15").Unprotect Password:="dominator"
Sheets("Foglio15").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio16").Unprotect Password:="dominator"
Sheets("Foglio16").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio17").Unprotect Password:="dominator"
Sheets("Foglio17").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio18").Unprotect Password:="dominator"
Sheets("Foglio18").Protect Password:="dominator", UserInterFaceOnly:=True
Sheets("Foglio19").Unprotect Password:="dominator"
Sheets("Foglio19").Protect Password:="dominator", UserInterFaceOnly:=True
Aggiungo: sei sicuro che si chiamino esattamente "Foglio3", "Foglio4", "Foglio5", etc?Sei sicuro che nel tuo file ci siano tutti i fogli dall'1 al 19
WS_Count = Worksheets.Count
foglio = ActiveSheet.Index
For i = 1 To WS_Count
Worksheets(i).Unprotect Password:="dominator"
Worksheets(i).Protect Password:="dominator", UserInterFaceOnly:=True
'ActiveWorkbook.Worksheets(I).Select
Next i
Application.ScreenUpdating = False
Debug.Print Application.ScreenUpdating
Dim meseoggi As String 'ESISTENTE
Application.ScreenUpdating = False '
Debug.Print "Wb_Open, 1", Application.ScreenUpdating
Selection.Offset(0, 1).Select
Debug.Print "Wb_Open, 2", Application.ScreenUpdating
Application.Wait (Now + TimeValue("0:00:10"))
Debug.Print "Wb_Open, 3", Application.ScreenUpdating
Stop
WS_Count = Worksheets.Count 'ESISTENTE
UserForm7.Show
Debug.Print "Wb_Open, 10", "Ritorno da UserForm7.Show"
End If
Application.ScreenUpdating = True
End Sub
Dim i As Integer
Debug.Print "CommandButton1_Click - Inizio", Application.ScreenUpdating
Application.ScreenUpdating = False
Debug.Print "Post ScreenUpdating = False", Application.ScreenUpdating
foglio = ActiveSheet.Index
' se i campi utente e password sono vuoti
Wb_Open, 1 Falso
Wb_Open, 2 Falso
Wb_Open, 3 Falso
Falso
CommandButton1_Click - Inizio Vero
Post ScreenUpdating = False Falso
Falso
Wb_Open, 10 Ritorno da UserForm7.Show
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Visitano il forum: Gianca532011 e 57 ospiti